'========================================================================== ' ' ' NAME: ' ' AUTHOR: Ed Wilson , MS ' DATE : 4/22/2006 ' ' COMMENT: ' '========================================================================== Option Explicit 'On Error Resume Next dim strComputer dim wmiNS dim wmiQuery dim objWMIService dim colItems dim objItem strComputer = "." wmiNS = "\root\cimv2" wmiQuery = "Select * from win32_ComputerSystem" Set objWMIService = GetObject("winmgmts:\\" & strComputer & wmiNS) Set colItems = objWMIService.ExecQuery(wmiQuery) For Each objItem in colItems Wscript.Echo "name: " & objItem.name Wscript.Echo "Manufacturer: " & objItem.Manufacturer Wscript.Echo "model: " & objItem.model Wscript.Echo "totalPhysicalMemory: " & objItem.totalPhysicalMemory Wscript.Echo "username: " & (objItem.username) If IsArray(objItem.SystemStartUpOptions) Then Wscript.Echo "SystemStartupOptions: " & join(objItem.SystemStartupOptions, _ vbcrlf) Else WScript.Echo "SystemStartupOptions: " & objItem.SystemStartupOptions End If Next