By mark_hauschild, Created 11 Feb 2013, Modified 17 Feb 2013

My Rating:

Vote

Rating:

Not Rated

Downloads:221

Source:

HTA Scriptomatic Tool SORTED

Language: HTA

Compatibility

Windows XP	Yes	Windows 2003	Yes
Windows 2000	Unknown	Windows NT	Unknown
Vista	Unknown	Windows 2008	Yes

Description

I made a few modifications to Sort the classes, making this already great script a little better.

Code

Line Numbers: On Off Plain Text

<head>
<title>HTA Test</title>
<HTA:APPLICATION 
     APPLICATIONNAME="HTA Test"
     SCROLL="yes"
     SINGLEINSTANCE="yes"
     WINDOWSTATE="normal"
>
</head>

<script language="VBScript">

Const adVarChar = 200
Const MaxCharacters = 255
Const ForReading = 1
Const ForWriting = 2

Set DataList = CreateObject("ADOR.Recordset")
DataList.Fields.Append "Classes", adVarChar, MaxCharacters
DataList.Open


Sub FillClassDropDown

	Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}root\cimv2")
	Set colClasses = objWMIService.SubClassesOf
	
	For Each objClass In colClasses
	  If Left(objClass.Path_.Class,6) = "Win32_" Then
	    DataList.AddNew
	    DataList("Classes") = objClass.Path_.Class
		  DataList.Update
	  End If
	Next
	DataList.Sort = "Classes"
	
	DataList.MoveFirst
	Do Until DataList.EOF
		Set objNewOption = document.createElement("OPTION")
		objNewOption.Text = DataList.Fields.Item("Classes")
		WMIClasses.options.Add(objNewOption)
		DataList.MoveNext
	Loop


 
End Sub

Sub HandleClassChange
   For Each objOption In WMIClasses.Options
      If objOption.Selected = True Then
      strClass = objOption.Text
      Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}root\cimv2")
      Set objClass = objWMIService.Get(strClass)

      For Each objProperty In objClass.Properties_
          strProperties = strProperties & objProperty.Name & vbCrLf
      Next
   
      For Each objMethod In objClass.Methods_
         strMethods = strMethods & objMethod.Name & vbCrLf
      Next

      Properties.Value = strProperties
      Methods.Value    = strMethods
      End If
   Next
End Sub

Sub ShowCode
For Each objOption In WMIClasses.Options
      If objOption.Selected = True Then
     strClass = objOption.Text
  End If
Next

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}root\cimv2")
Set objClass = objWMIService.Get(strClass)

strCode = strCode & "Set objWMIService = GetObject(""winmgmts:"")" & vbCrLf
strCode = strCode & "Set colInstances = objWMIService.ExecQuery" & _
    "(""SELECT * FROM " & strClass & """)" & vbCrLf
strCode = strCode & "For Each objInstance In colInstances" & vbCrLf

For Each objProperty In objClass.Properties_
   strCode = strCode & "   WScript.Echo " & Chr(34) & "objInstance." & objProperty.Name & " = " & Chr(34) & " & objInstance." & objProperty.Name & vbCrLf
Next

strCode = strCode & "Next" 
Code.Value = strCode
End Sub

</script>

<body onLoad=FillClassDropDown>
<table>
<tr><th>Class</th></tr>
<tr><td colspan=2><select onChange=HandleClassChange name="WMIClasses"></select></td></tr>
<tr><td><input onClick=ShowCode type="submit" value="Show Code"></input></td></tr>
<tr><th>Properties</th><th>Methods</th></tr>
<tr>
<td><textarea name="Properties" rows="5" cols="45"></textarea></td>
<td><textarea name="Methods" rows="5" cols="45"></textarea></td>
</tr>
<tr><th>Code</th></tr>
<tr>
<td colspan=2><textarea name="Code" rows="30" cols="93"></textarea></td>
</tr>
</table>
</body>
</html>

Got a useful script? Click here to upload!

Post Comment
Order By:

User Comments

jessen

Posted On: 8/24/2018 2:33:17 AM

Since 2007, Kemimoto have managed to build up a young and vigorous team able to manufacture and trade worldwide the Motorcycle ATV or UTV parts such as utv rear view mirror , which impress everyone with their elegant design and high quality.

Posted On: 9/4/2018 1:17:16 AM

hogan gucci shoes softball bats new balance calvin klein outlet boy london clothing hermes bags nike air max 2017 kevin durant jersey wedding dress oakley sunglasses omega watches jordan 14 michael jordan tommy hilfiger converse all stars abercrombie clarisonic mia kenzo clothing basketball jersey montre homme nike blazer polo lacoste pas cher nike air zoom pegasus adidas outlet armani handbags nike roshe nike outlet cartier sunglasses ralph lauren outlet ferragamo belt dior sunglasses nike pas cher mont blanc pens rolex watches air max 2018 chrome hearts jewelry nike free cheap wedding dresses jordan 10 vans scarpe prada sunglasses burberry outlet cheap oakley sunglasses new balance femme fossil handbags nike vapor max oakley sunglasses celine handbags michael kors outlet online dak prescott jersey nike air oakley glasses new balance trainer replica watches air max babyliss pro nano titanium christian louboutin shoes karen millen adidas outlet store basketball shoes herve leger dresses marc jacobs handbags armani sunglasses ferragamo sunglasses converse uk england world cup jersey jordan 3 new balance shoes hollister outlet nike free run spain world cup jersey christian louboutin gentle monster sunglasses dolce & gabbana saint laurent handbags longchamp pas cher vans pas cher polo ralph lauren adidas zx flux mont blanc pens bcbg max azria g-star jeans arcteryx jackets coach purse coach outlet miu miu shoes mizuno running shoes adidas outlet store jordan 8 tory burch nike outlet online oakley pas cher nike shoes polo ralph lauren instyler pandora uk bose headphones true religion jeans chopard jewelry adidas crazy giuseppe zanotti outlet timberland boots mizuno true religion isabel marant shoes kate spade uk kobe bryant shoes nike air max 97 chloe handbags hogan shoes argentina world cup jersey lululemon outlet bally shoes insanity workout adidas running shoes ralph lauren lunette ray ban ralph lauren outlet new balance shoes polo ralph lauren kevin durant shoes swarovski jewelry supra shoes jordan xx9 givenchy jewelry 10 deep clothing kobe 11 air force 1 dansko outlet hermes nike shoes jordan 3 iphone x case jordan 4 ray ban sunglasses jordan 2 pandora bracciali chanel outlet beats headphones givenchy handbags nike air max antonio brown jersey timberland pas cher kobe 9 elite jordan 12 furla handbags nike clothing softball bats karen millen fitflops oakley vault lacoste jeans skechers sneakers beats by dre adidas shoes montre pas cher jimmy choo sunglasses oakley uk ghd hair straighteners longchamp outlet germany world cup jersey new balance soldes tommy hilfiger pandora jewelry kd 9 ray ban nike uk michael kors true religion christian louboutin lebron shoes jordan nike air max 90 vans outlet puma shoes france world cup jersey michael kors uk cheap jerseys michael kors outlet polo ralph lauren tory burch outlet nike air max mizuno nike air max jordan 1 bathing ape clarks shoes barbour nike mercurial nike outlet jordan 32 ray ban pas cher basket nike polo ralph lauren air force one mac cosmetics online adidas outlet store cartier bracelet mac cosmetics kates pade outlet online roshe run hermes birkin jordan pandora charms kyrie 4 tods shoes chloe handbags tn pas cher nike outlet nike air max alife clothing kids jordans jordan 7 soccer jerseys parajumpers fitflops insanity workout christian louboutin pas cher cheap oakley sunglasses guess handbags nike air max jordan pas cher jordan 6 sac longchamp salomon shoes giannis antetokounmpo jersey nike roshe run christian louboutin mulberry longchamp handbags nike free swarovski gioielli timberland boots brazil world cup jersey air max 95 converse jordan replica watches ralph lauren bulgari jewelry nike air force 1 aaron rodgers jersey rolex watches kevin durant shoes james harden jersey huf clothing nike huarache nike canada ray ban sunglasses gucci outlet jordan 6 coach outlet online air max guess air jordan true religion outlet nike blazer prada pandora jewelry goyard handbags nike air max 2017 curry 4 guess factory champion clothing burberry sunglasses cheap jerseys harry winston jewelry chloe sunglasses lebron 11 designer sunglasses michael kors uk abercrombie bcbg dresses christian louboutin yeezy shoes reebok outlet jordan 9 nike air max 95 prada outlet dyson hair dryer tory burch nfl jerseys dolce & gabbana orologi rolex converse outlet store supra shoes insanity adidas superstar bottega veneta sunglasses nike roshe gucci handbags converse shoes fendi sunglasses balenciaga sneakers true religion outlet burberry sale lululemon outlet nike air max ray ban sunglasses burberry beats headphones nike air max hermes bags nike blazer nike mercurial nike roshe run adidas trainers uk bottega veneta iphone cases lebron shoes cheap jordans toms outlet abercrombie adidas slides keen sandals nike outlet store guess canada burberry abercrombie and fitch carrera sunglasses michael kors outlet sac michael kors portugal world cup jersey fitflops outlet oakley sunglasses ai max ray ban sunglasses michael jordan nike mercurial superfly adidas soccer air max 90 occhiali oakley jordan 4 ferragamo lacoste shoes replica watches red bottom shoes prada handbags adidas soccer cleats chrome hearts jewelry michael kors outlet tiffany jewelry converse chuck taylor nfl jerseys asics gel adidas outlet store nike roshe jordan 5 chaussure nike longchamp bottega veneta coach factory outlet dsquared2 jeans salvatore ferragamo chi flat iron jordan shoes toms shoes ed hardy ferragamo marc jacobs handbags dolce & gabbana sunglasses michael kors canada gucci outlet sac vanessa bruno jordan lunette oakley kristaps porzingis jersey reebok shoes ghd flat iron barbour jackets cheap jordan shoes scarpe hogan chanel handbags belgium world cup jerseys manolo blahnik shoes swarovski crystal nike foamposite alexander mcqueen handbags air max 90 jimmy choo furla handbags hollister air more uptempo kate spade dansko shoes cheap wedding dresses nike free ray ban sunglasses dsquared2 outlet kyrie irving jersey michael kors handbags freshjive clothing golden goose sneakers nike roshe run air max plus ray ban occhiali prom dresses kd 10 longchamp handbags vibram fivefingers ferragamo shoes louboutin pas cher michael kors handbags carson wentz jersey dolce & gabbana adidas originals tommy hilfiger pas cher nike free run diesel jeans burberry outlet versace handbags converse curry 3 ray ban jordan clothing hermes jewelry bvlgari sunglasses armani jeans nike free run reebok shoes flip flops asics gel vans outlet chanel outlet true religion jeans curry 5 nike factory ferragamo shoes dior bags nike air max 90 valentino fendi handbags calvin klein jeans asics running shoes gucci belt nike store kobe 12 jordan 31 ai max adidas flip-flops beats pill links of london uk burberry clothing pandora bijoux oakley sunglasses marc jacobs handbags air max 90 adidas superstar stuart weitzman shoes nike kyrie 2 michael kors asics trainers jordan 13 mac makeup air jordan nike shoes curry 2 jbl headphones ghd fendi basket store louboutin outlet stuart weitzman jimmy choo shoes jordan 11 sac michael kors burberry handbags kobe 10 balmain jeans montres pandora charms bape clothing jordans mac makeup michael jordan adidas clothing longchamp outlet bijoux swarovski michael kors outlet michael kors 2018.9.4xukaimin

Posted On: 9/18/2018 2:13:24 AM

wq123

Posted On: 10/29/2018 12:04:03 AM

a barbour outlet converse player softball bats hermes outlet Kiper thinks roshe run ralph lauren uk should nike air max nfl falcons have tory burch sandals nfl redskins stayed pandora nfl chargers at nfl ravens nfl panthers North nike.de coach factory outlet online Carolina levis outlet store nfl buccaneers for hogan nfl raiders another tory burch shoes nfl saints season. they’re nike.dk longchamp outlet also louboutin outlet nop jerseys picking giuseppe zanotti hilfiger outlet at katespade outlet nba jerseys outlet No. barbour mens jackets roshe run 12 swarovski coach bags and vans schuhe coach outlet sale they michael kors purses lacoste polos may nike air max fred perry fear www.tommyhilfiger.nl burberry outlet online the coach outlet calvin klein Jets ed hardy clothing pistons jersey could belstaff mens jackets true religion take cheap oakley sunglasses baseball jerseys Mitchell Trubisky ralph lauren outlet uggs at ralph lauren outlet pandora jewellery No. ralph lauren polo polo ralph lauren 6 tory burch shoes nfl packers and north face outlet oakley sunglasses outlet look ray ban sunglasses outlet hilfiger to ray ban sbocco coach outlet move oakley Hermes ahead.,“I air max 95 nfl chiefs think ralph lauren shirts cleveland cavaliers jerseys you coach purses mcm outlet look swarovski barbour women jackets at bottega veneta thomas sabo the portland trail blazers cheap basketball shoes Cleveland Browns prada sunglasses nfl broncos [as prada outlet michael kors outlet online sale a new balance store kate spade outlet team ralph lauren uk shoes on sale possibly bos jersey michael kors outlet online willing dsquared2 jeans chrome hearts jewelry to burberry handbags michael kors v?skor trade nike free shoes prada outlet up],” michael kors michael kors bags Kiper cheap michael kors rayban sunglasses said. red bottoms ugg australia “If oakley outlet online coach factory online they, fred perry shoes nfl texans in fact, the north face true religion jeans outlet take nike.com beats by dre Myles nike air max polo outlet online Garrett nike mercurial cheap true religion No. converse outlet michael kors australia 1 “There levi's jeans pandora rings has hugo boss outlet nfl dolphins been longchamp nfl 49ers talk guess jeans cheap oakley sunglasses that bcbg max azria true religion jeans women Tennessee swarovski jewelry adidas could nfl rams denver nuggets move polo ralph lauren outlet online adidas shoes outlet down, nfl bengals soccer outlet online we’ll nike outlet reebok shoes see beats audio nfl lions about Jacksonville, zapatillas nike nets jersey but mcm bags lunette oakley pas cher if nfl colts nike store the flat iron puma outlet store Bears vans outlet skechers want air max suns jerseys to tory burch sale adidas.de move ralph lauren true religion outlet out nfl jaguars nike air force of michael kors outlet online sale air max three dsquared2 shoes nike free 5.0 I dre beats air jordan retro think air max 90 nike huaraches that charlotte hornets jersey nba jerseys outlet could air max shoes supra footwear be burberry polo ralph a spot nfl eagles ray ban sunglasses for mont blanc nba jerseys Cleveland san antonio spurs nike mercurial vapor to jordan release dates adidas superstar jump oakley sunglasses outlet bottega up ray ban sunglasses ray ban sunglasses and pandora bracelets kobe bryant jersey take oakley timberland boots Trubisky.a barbour mens jackets air max 2014 player mcm bags burberry outlet Kiper thinks replica handbags versace outlet should burberry under armour curry have woolrich outlet online ugg stayed mbt shoes outlet christian louboutin shoes at ecco women shoes memphis grizzlies North kanye west shoes cheap michael kors Carolina tods mens shoes oakley prescription for cheap glasses ferragamo outlet another michael kors bags mcm backpack outlet season. they’re burberry sale occhiali oakley also new balance indiana pacers picking tommy hilfiger outlet stores nfl bears at nike air max kate spade outlet online No. giuseppe shoes ray ban zonnebril 12 pandora free running and oakley outlet chicago bulls they mont blanc pens ralph lauren online may los angeles clippers nike online fear links of london bracelets adidas.se the coach outlet prada handbags Jets converse shoes bcbg dresses could louboutin nike air max 2014 take nike huarache minnesota timberwolves Mitchell Trubisky rayban air jordan shoes at skechers moncler outlet online No. coach factory outlet online cheap jerseys 6 asics gel plein outlet and jerseys from china mcm handbags look scarpe hogan philadelphia 76ers jersey to c&c beanies wholesale ralph lauren move cheap jerseys nike outlet store ahead.,“I vans outlet online nfl browns think ferragamo rayban you supra shoes burberry uk look nfl patriots michael kors outlet online at soccer shoes ray ban the the north face outlet guess bags outlet Cleveland Browns fidget spinner new balance [as babyliss armani clothing a coach outlet online tommy hilfiger online shop team juicy couture cheap oakley possibly north face backpacks new balance shoes willing nba jerseys ray ban to ray bans nfl seahawks trade gafas oakley michael kors purses up],” jerseys from china michael kors outlet Kiper louboutin shoes jimmy choo said. mia jersey guciheaven “If ferragamo shoes louboutin they, valentino shoes outlet ray ban outlet in fact, nfl cowboys michael kors take christian louboutin ugg australia Myles burberry handbags toronto raptors Garrett nfl giants cheap oakley No. jerseys from china under armour ua shoes 1 “There nike roshe nike.se has ray ban sunglasses outlet long champ been jimmy choo shoes ray ban sunglasses talk nike free run nike max that new balance free run Tennessee hogan shoes outlet the north face could coach outlet coach factory outlet online move north face uggs down, orlando magic skechers womens shoes we’ll uhren adidas sneakers see the north face uggs about Jacksonville, michael kors purses lunette ray ban pas cher but washington wizards roche run if burberry handbags jack wolfskin outlet online the nfl bills adidas neo Bears roshes polo ralph lauren want givenchy bags outlet ralph lauren factory store to marc jacobs outlet tommy hilfiger move longchamp timberland shoes out sac jerseys knicks jerseys of coach factory outlet online timberland outlet three stone island store coach outlet online I air jordans michaelkors.com think converse chucks barbour women jackets that nfl jerseys michael kors outlet online could ugg northface be hermes birkin salvatore ferragamo a spot nike tn requin ralph lauren for jordan shoes cheap jerseys Cleveland coach black friday iphone 4s cases to cheap eyeglasses nfl jets jump puma michael kors canada up burberry outlet online belstaff sale and cheap nike shoes lacoste shirts take adidas shoes belstaff Trubisky. vans shoes nfl titans michael kors juicy couture clothings fitflop cheap true religion nike air max 2015 utah jazz ralph lauren tommy hilfiger fendi outlet online huaraches michael kors handbags christian louboutin nike air force cheap oakley sunglasses asics michaelkors.com designer handbags wholesale handbags coach outlet en ligne salomon schuhe swarovski crystal vibram shoes polo ralph lauren outlet burberry outlet online parajumpers outlet online iphone 5 cases houston rockets jordans for sale prada reebok nba jerseys milwaukee bucks asics nfl vikings versace shoes outlet philipp plein clothes moncler women jackets timberland homme ralph lauren outlet online dallas mavericks jersey nfl steelers polo ralph lauren nfl jerseys outlet nike air north face pas cher jack wolfskin burberry online shop swarovski kevin durant shoes russell westbrook jersey michael kors handbags nike air gsw jerseys ray ban wayfarer longchamp taschen michael kors bags hermes bags thomas sabo mizuno running oakley sunglasses marc jacobs handbags nfl azcardinals kate spade salvatore ferragamo polo ralph lauren outlet dansko shoes replica watches nike roshe pandora cheap jerseys air jordan mizuno running shoes

daisyjane2018

Posted On: 11/9/2018 1:25:29 AM

The league announced the news this morning, writing in a press release that,cheap authentic jerseys "Beginning Friday, November 9, NFL team 'outfits' will be available in the cheap nfl jerseys Shop. This unique opportunity will give Fortnite players the ability to purchase and customize up to eight outfits representing their favorite NFL teams."cheap jerseysWe're just getting started, though! There will also be "football-themed emotes, harvesting tools, gliders, and even a referee outfit." cheap sports jerseys Even a referee outfit! cheap jerseys from chinaSo there you have it, Fortniters (Fortnitees?). Your prayers have been answered. Everyone gets their favorite team's football jersey,wholesale jerseys and themed emotes, and harvesting tools, and gliders. Click here to choose the new cheap authentic jerseys from china and wholesale nfl jerseys! Receive comprehensive coverage of the Bears and stream the ‘Football Aftershow’ easily on your device.click here cheap authentic nfl jerseys.It's not a giant surprise,custom cowboys jersey but it's still impressive to see. Fortnite is hugely popular among professional athletes, and it's football season,discount jerseys after all. Epic Games just announced an official partnership with the NFL to bring licensed jerseys to the popular battle royale game, letting players don the jerseys of their favorite teams as they blast each other into oblivion.discount nfl jerseys cheap nfl jerseys cheap jerseys cheap jerseys from china wholesale jerseys cheap nfl jerseys from china china jerseys nfl jerseys china wholesale nfl jerseys cheap authentic nfl jerseys cheap jerseys online cheap authentic jerseys cheap sports jerseys cheap wholesale jerseys china wholesale jerseys discount nfl jerseys cheap authentic jerseys from china discount jerseys custom cowboys jersey Click here GOOGLE FACKBOOK Amazon nfl jerseys cheap cheap college football jerseys cheap nfl jerseys china cheap football jerseys custom jerseys cheap cheap nfl gear cheap nfl authentic jerseys cheap jerseys nfl nfl football jerseys cheap cheap nfl football jerseys cheap nfl jerseys free shipping cheap nfl nike jerseys custom nfl jerseys cheap nfl cheap jerseys

Post Comment

HTA Scriptomatic Tool *SORTED*

Language: HTA

Got a useful script? Click here to upload!

HTA Scriptomatic Tool SORTED