2009-08-18 156 views
1

是否有人根據客戶端操作系統是Windows XP,2000,NT還是95來創建一個switch語句的示例VBS代碼?操作系統VBS腳本

回答

3

這會給你的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

+0

感謝編輯愛德華多。現在語法看起來好多了,因爲它都在代碼塊中。 :) – klabranche 2009-08-18 19:48:23