[VBS] Daftar Class Dinamis Dan Abstrak Dalam WMI

' Daftar Semua Class WMI Abstract Dan Dinamis
Dim strNameDynamic,strNameAbstract,objWMIService,colClasses,objClass
Set objWMIService=GetObject("winmgmts:{impersonationLevel=" & _
  "impersonate}!\\.\root\cimv2")
Set colClasses = objWMIService.SubclassesOf()
MsgBox "Press OK And Please Wait"
For Each objClass in colClasses
    For Each objClassQualifier In objClass.Qualifiers_
        If LCase(objClassQualifier.Name) = "dynamic" Then
            strNameDynamic = strNameDynamic & objClass.Path_.Class & ": " & _
            objClassQualifier.Name & "=" & _
            objClassQualifier.Value & vbcrlf
        ElseIf LCase(objClassQualifier.Name) = "abstract" Then
            strNameAbstract=strNameAbstract & objClass.Path_.Class & ": " & _
            objClassQualifier.Name & "=" & _
            objClassQualifier.Value & vbCrLf
        End If
    Next
Next
MsgBox strNameDynamic,,"Dynamic WMI Classes"
MsgBox strNameAbstract,,"Abstract WMI Classes"

Jangan Lupa Komentar Yaa..