18 lines
400 B
Plaintext
18 lines
400 B
Plaintext
'
|
|
' test6.vbs
|
|
'
|
|
' enumerate all setup classes
|
|
'
|
|
Dim WshSHell
|
|
Dim DevCon
|
|
Dim SetupClasses
|
|
Dim SetupClass
|
|
|
|
SET WshShell = WScript.CreateObject("WScript.Shell")
|
|
SET DevCon = WScript.CreateObject("DevCon.DeviceConsole")
|
|
|
|
SET SetupClasses = DevCon.SetupClasses()
|
|
FOR EACH SetupClass IN SetupClasses
|
|
WScript.Echo "Class " + SetupClass.Name + " " + SetupClass.Guid + " : " + SetupClass.Description
|
|
NEXT
|