web analytics

WMI: get the information about the system

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: " & […]