操作系统VBS脚本

Question

是否有人根据客户端操作系统是Windows XP，2000，NT还是95来创建一个switch语句的示例VBS代码？

Answer 1

这会给你的OS版本：

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

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

For Each objOperatingSystem in colOperatingSystems 
    Wscript.Echo objOperatingSystem.Caption & " " & _ 
     objOperatingSystem.Version 
Next 

从这里就可以设置一个SELECT CASE语句（VB语法对于一个开关）并检查.Version与Case“OS”，其中“OS”是从版本返回的各种类型。版本

这里也正是这样做的一个样本：

http://www.computerperformance.co.uk/ezine/ezine52.htm

Answer 2

VBScript示例来获取操作系统版本信息

http://www.activexperts.com/activmonitor/windowsmanagement/scripts/operatingsystem/version/