I would use WMI for the job.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem",,48)
For Each objItem in colItems
Wscript.Echo "BootDevice: " & objItem.BootDevice
Wscript.Echo "BuildNumber: " & objItem.BuildNumber
Wscript.Echo "BuildType: " & objItem.BuildType
Wscript.Echo "Caption: " & objItem.Caption
Wscript.Echo "CSDVersion: " & objItem.CSDVersion
Next
Where you can substitute strComputerName with any computername on the
network. "." represents localhost.
--
Regards
Matjaz Ladava, MCSE, MCSA, MVP
Microsoft MVP - Active Directory
(e-mail address removed), (e-mail address removed)
http://ladava.com