' Check command line parameters Select Case WScript.Arguments.Count Case 0 ' Default if none specified is local computer (".") Set objWMIService = GetObject( "winmgmts://./root/cimv2" ) Set colItems = objWMIService.ExecQuery( "Select * from Win32_ComputerSystem", , 48 ) For Each objItem in colItems strComputer = objItem.Name Next Case 1 ' Command line parameter can either be a computer name ' or "/?" to request online help strComputer = Wscript.Arguments(0) if InStr( strComputer, "?" ) > 0 Then Syntax Case Else ' Maximum is 1 command line parameter Syntax End Select On Error Resume Next ' Query and display running processes Set objWMIService = GetObject( "winmgmts://" & strComputer & "/root/cimv2" ) ' Display error number and description if applicable If Err.Number Then strMsg = vbCrLf & strComputer & vbCrLf & _ "Error # " & Err.Number & vbCrLf & _ Err.Description & vbCrLf & vbCrLf Syntax End If ' Collect information on OS Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48) For Each objItem in colItems strMsg = "Computer Name : " & objItem.CSName & vbCrLf & _ "Windows Version : " & objItem.Caption & vbCrLf & _ "ServicePack : " & objItem.CSDVersion & vbCrLf & _ "Build Number : " & objItem.BuildNumber & vbCrLf & _ "Serial Number : " & objItem.SerialNumber & vbCrLf Next ' Display the results Wscript.Echo strMsg ' Done WScript.Quit(0) Sub Syntax strMsg = strMsg & vbCrLf & vbCrLf & "WinVer.vbs, Version 1.11" & vbCrLf _ & "Display Windows version for any WMI enabled computer on the network." _ & vbCrLf & vbCrLf _ & "Usage: CSCRIPT WINVER.VBS [ computer_name ]" _ & vbCrLf & vbCrLf _ & "Where: " & Chr(34) & "computer_name" & Chr(34) _ & " is the name of the computer to whose Windows version" & vbCrLf _ & " is to be displayed (without leading backslashes)." _ & vbCrLf & vbCrLf _ & " Default is " & Chr(34) & "." & Chr(34) _ & " (the local computer)." _ & vbCrLf & vbCrLf _ & "Written by Rob van der Woude" & vbCrLf _ & "http://www.robvanderwoude.com" _ & vbCrLf & vbCrLf _ & "Created using Microsoft's Scriptomatic tool" & vbCrLf _ & "http://www.microsoft.com/technet/treeview/default.asp?url=/technet/scriptcenter/WMImatic.asp" Wscript.Echo(strMsg) Wscript.Quit(1) End Sub