Обнаружение Windows CE в vBScript (сценарий входа в систему) - PullRequest
Новая
       30

Обнаружение Windows CE в vBScript (сценарий входа в систему)

1 голос
/ 17 ноября 2009

Мне интересно, возможно ли обнаружить Windows CE в сценарии входа в Windows (Scrip запускается в учетной записи пользователя).

Я предполагаю, что это возможно обнаружить с помощью некоторой проверки какого-либо файла, но я надеялся на более "чистое" решение.

1 Ответ

2 голосов
/ 14 марта 2011

Вы можете использовать приведенный ниже код для проверки версии Windows в VBscript с использованием WMI. Замените XXXXXXXXX на соответствующий номер версии. 

strComputer = "." 'We are using computer "here"
set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2") 'Initialize WMI object for this computer

'Displays which operating system is installed on the current computer.  
set colOperatingSystems = objWMIService.ExecQuery _
    ("Select Caption, Version from Win32_OperatingSystem") 'Query WMI for OS Version

'Validate that OS version is valid
for each objOperatingSystem in colOperatingSystems ' Parse results
    if objOperatingSystem.Version = "XXXXXXXXX" Then

        'Do something here

    end if
next

Если вы не уверены, какая версия, попробуйте временно изменить оператор if / then на 

WScript.Echo objOperatingSystem.Version

и запускать его вручную. Это выведет правильную версию # для вашей системы.

...