1 (изменено: Yurachb, 2012-10-23 20:29:17)

Тема: VBScript: Версия ОС

set WS=CreateObject("WScript.Shell")

set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
set colOperatingSystems=objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
strInfo=vbNullString
for Each objOperatingSystem in colOperatingSystems
strInfo=objOperatingSystem.Caption&" "&objOperatingSystem.Version
    exit for
        next

set FSO=CreateObject("Scripting.FileSystemObject")
set vOS=FSO.CreateTextFile(WS.CurrentDirectory&"/OSVersion.js",1,0)
vOS.writeBlankLines 1
vOS.write"vrsOS='"&strInfo&"'.substr(18,1)"
vOS.writeBlankLines 2
vOS.write"j='\u0333';l='\u0332';t=nђ·='';nђ•=' '"
vOS.writeBlankLines 2
vOS.write"    if(vrsOS=='7'||vrsOS=='V'){"
vOS.writeBlankLines 1
vOS.write"j='\u0347';l=t='\u035F';nђ·=nђ•='\u200A'}"
vOS.Close

Господа, кому не лень, прошу запустить сей скрипт на Ваших ПК и опубликовать здесь первую полученную строчку из созданного js-файла.
Поясняю: первая строка переменных: j='\u0333'... содержит коды для Windows XP, а далее коды для семёрки, которых нет в XP. При каждом запуске моей программы создаётся файл, из которого и читаются коды в зависимости от типа ОС.
Комментируйте, если есть лучшие решения.
Меня интересуют данные по Висте и 64-разрядным устройствам,.. а так же по ОС предшествующим Windows XP.
Всем признателен, Yurachb.

2

Re: VBScript: Версия ОС

результат … отправить на …

Не надо. Пусть кладут прямо сюда.

3

Re: VBScript: Версия ОС

Yurachb пишет:

новые коды, отсутствующие в Windows XP

Не понял о каких кодах идет речь. Вот ответ с Висты

Microsoft® Windows Vista™ Enterprise  6.0.6002

( 2 * b ) || ! ( 2 * b )

4 (изменено: Dmitrii, 2012-04-25 09:24:51)

Re: VBScript: Версия ОС

Ответ от Win 2000 Pro + SP4:

Microsoft Windows 2000 Professional 5.0.2195

Yurachb пишет:

... 64-разрядным устройствам...

Для Win 7 Pro любой разрядности номер версии одинаков.

5 (изменено: Yurachb, 2018-04-25 13:42:50)

Re: VBScript: Версия ОС

Спасибо за информацию.

В связи же с работой программы только в Win7 и  в WinXP, вопрос снят.

А коды символов ASCII, список которых даже в пределах ОС одного типа, но разной разрядности, к сожалению, будет отличаться.