WMI

WMI: list of the methods and properties

Saturday, January 19th, 2008

strComputer = “.”
Set objWMIService=GetObject(”winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
 
For Each objclass in objWMIService.SubclassesOf()
    intCounter=0
    If Left(objClass.Path_.Class,5) = “Win32″ Then
        For Each Qualifier in objClass.Qualifiers_
            If UCase(Trim(Qualifier.Name)) = “ASSOCIATION” Then
                intCounter = 1
            End If
  [...]

WMI: get the information about the system

Thursday, January 17th, 2008

Option Explicit
On Error Resume Next
Dim strComputer, objWMIService
Dim colItems, objItem
strComputer = “.”
Set objWMIService = GetObject(”winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
Set colItems = objWMIService.ExecQuery (”Select * from Win32_OperatingSystem”)
For Each objItem in colItems
WScript.Echo “Machine Name: ” & objItem.CSName & VbCr & _
“===================================” & vbCr & _
“Description: ” & objItem.Description & VbCr & _
“Manufacturer: ” & [...]

WMI+VBS: how to get the domain name

Monday, January 14th, 2008

Option Explicit
On Error Resume Next
Dim strComputer, objNetwork, objWMIService
Dim colItems, objItem
Set objNetwork = WScript.CreateObject(”WScript.Network”)
strComputer = objNetwork.ComputerName
WScript.Echo “Computer = ” & strComputer
Set objWMIService = GetObject(”winmgmts:{impersonationLevel=impersonate}!\\” & strComputer & “\root\cimv2″)
Set colItems = objWMIService.ExecQuery (”Select * from Win32_ComputerSystem”)
For Each objItem in colItems
 Wscript.Echo “Domain = ” & objItem.domain
Next

There is also WMI FAQ on Microsoft site.

Keep on coding