[решено] Проверка разрядности системы

[Raviolo]

Добрый день
На всех компьютерах установлена программа X
Если система 64 - то установлена в папке ProgramFiles x86
Надо запускать программу при входе в систему

Set WshShell = WScript.CreateObject("WScript.Shell")
Command = """C:\Program Files (x86)\"""
WshShell.Run Command

А как сделать для x64 в одном скрипте?

[omegastripes]

Проверка разрядности системы:

if right(wscript.createobject("wscript.shell").environment("system").item("processor_architecture"), 2) = "64" then
msgbox "64 bit"
else
msgbox "32 bit"
end if

[gora]

Set WSS = CreateObject("Wscript.Shell")
xOS = "x64"
If WSS.ExpandEnvironmentStrings("%PROCESSOR_ARCHITECTURE%") = "x86" AND WSS.ExpandEnvironmentStrings("%PROCESSOR_ARCHITEW6432%") = "%PROCESSOR_ARCHITEW6432%" Then xOS = "x86"
msgbox xOS

[Raviolo]

Благодарю, позволило реализовать задуманное более лаконично.