オペレーティングシステムVBSスクリプト

Question

クライアントOSがWindows XP、2000、NT、または95であるかどうかに基づいてswitch文を作成するサンプルVBSコードを持っている人はいますか？オペレーティングシステムのバージョン情報を取得するため

Answer 1

これはあなたのOSのバージョン与えます：あなたはセットアップこのことから、Select Caseステートメント（VBの構文を

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 

をすることができますスイッチの場合）、 "OS"が返されたさまざまな種類の "OS"の場合の.Versionを確認します.Version

はここでまさにそれを行うためのサンプルです：編集エドゥアルドため

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

Answer 2

VBScriptのサンプル

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