Option Explicit

Dim strComputer, objWMIService, colOperatingSystems, objOperatingSystem

If Wscript.Arguments.Count < 1 Then	' If no machine name passed
  strComputer = "."  'Point to local machine  ' Make machine the local
else
  strComputer = Wscript.Arguments(0)
End If



Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
 
      WScript.Echo "Name - " & objOperatingSystem.Caption 
      WScript.Echo "Service Pack - " & objOperatingSystem.CSDVersion
      WScript.Echo "OS Build - " & objOperatingSystem.Version
      WScript.Echo "Windows Directory - " & objOperatingSystem.WindowsDirectory

Next