Set obj = GetObject _
	("winmgmts:\\.\root\cimv2")
Set objTargets = obj.ExecQuery( _
	"select * from Win32_OperatingSystem" _
	)
For Each objTarget in objTargets
	Wscript.Echo "Caption: " & objTarget.Caption
	Wscript.Echo "Version: " & objTarget.Version
	Wscript.Echo "CSName: " & objTarget.CSName
	Wscript.Echo "CSDVersion: " & objTarget.CSDVersion
	Wscript.Echo "WindowsDirectory: " & objTarget.WindowsDirectory
	Wscript.Echo "SystemDirectory: " & objTarget.SystemDirectory
Next