如何能够得知现在运行的操作系统的信息？

下面的代码相信能够解决你的问题：

Set WSHShell = WScript.CreateObject("WScript.Shell")
set objSysInfo = Wscript.CreateObject("SYSINFO.Sysinfo")
wscript.echo objSysInfo.OSBuild
wscript.echo objSysInfo.OSPlatform  '输出操作系统平台
wscript.echo objSysInfo.OSVersion   '输出操作系统版本号

如何你想操作一下注册表，下面的代码对你会有所帮助：

Function GetOS()

If bDebug then wscript.echo "FUNCTION: GETOS"
Dim strOS

On Error Resume Next
Err.Clear

Credit: Nick Brown

strOS=oShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\ProductOptions\ProductType")
If Hex(err)="80070002" Then

Err.Clear
strOS=oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersionVersionNumber")
If err<> 0 Then

GetOS=Null
Exit Function

End if

End If

Select Case strOS

Case "LanmanNT"

GetOS="NTD"

Case "ServerNT"

GetOS="NTS"

Case "WinNT"

GetOS="NTW"

Case "4.00.950"

GetOS="95A"

Case "4.00.1111"

GetOS="95B"

Case "4.10.1998"

GetOS="98"

Case "4.10.2222"

GetOS="98SE"

End Select

End Function