Операционная система VBS Script

Question

Есть ли у кого-нибудь образец кода VBS, который создает оператор switch на основе того, является ли клиентская ОС Windows XP, 2000, NT или 95?

Answer 1

Это даст вам версию ОС:

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 на случай «OS», где «OS» - это различные типы, возвращаемые с .Version

Вот образец делает именно это:

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

Answer 2

VBScript образцы для получения информации Версия операционной системы

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