(view source code of winver.vbs as plain text)
' 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
page last modified: 2024-04-16; loaded in 0.0065 seconds