' результат всегда "AMD64"
msgbox wscript.createobject("wscript.shell").environment("system").item("processor_architecture")

' результат зависит от разрядности WSH:
' если скрипт выполняется с помощью SysWOW64 - "x86"
' если скрипт выполняется с помощью System32 - "AMD64"
msgbox wscript.createobject("wscript.shell").environment("process").item("processor_architecture")

With CreateObject("WScript.Shell")
  PA   = .Environment("System")("PROCESSOR_ARCHITECTURE")
  PA64 = .Environment("System")("PROCESSOR_ARCHITEW6432")
End With

OS = "x86"

If Len(PA64) Then
  OS = "x64"
ElseIf PA = "AMD64" Then OS = "x64" : End If

MsgBox OS

HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment

cscript //nologo script.js

cscript //nologo //e:jscript script.txt

with (new ActiveXObject('WScript.Shell')) {
  var ver, bit = ExpandEnvironmentStrings("%processor_architecture%"),
      chk = function(ver) {
        switch (bit) {
          case "x86":
            return CurrentDirectory + '\\' + ver + '\\x86\\46_' + ver + '.exe';
          break;
          
          case "x64":
            return CurrentDirectory + '\\' + ver + '\\x64\\46_' + ver + '.exe';
          break;
        }
      };
      
  switch (RegRead("HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\CurrentVersion")) {
    case "5.1":
      //для запуска приложения
      //Run(chk("xp"));
      WSH.echo(chk("xp"));
    break;
    
    case "6.1":
      WSH.echo(chk("7"));
    break;
    
    case "6.2":
      WSH.echo(chk("8"));
    break;
  }
}

Option Explicit

Dim strShare
Dim strComputer
Dim objFSO

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim collSWbemObjectSet
Dim objSWbemObjectEx
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

Dim strCommandLine
Dim lngProcessID

strComputer = "."
strShare   = objFSO.GetParentFolderName(WScript.ScriptFullName)

Dim WshShell
Set WshShell = CreateObject("WScript.Shell") 


Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")
Set collSWbemObjectSet = objSWbemServicesEx.InstancesOf("Win32_OperatingSystem")

For Each objSWbemObjectEx In collSWbemObjectSet
    With objSWbemObjectEx
        Select Case .Version
            Case "5.1.2600"             ' Windows XP X86
                strCommandLine = strShare & "\xp\x86\46_xp.exe"
            Case "5.2.3790"             ' Windows XP X64 (& Windows Server 2003)
                strCommandLine = strShare & "\xp\x64\46_xp.exe"
            Case "6.1.7600", "6.1.7601" ' Windows 7 (& Windows Server 2008 R2)
                Select Case .OSArchitecture
                    Case "32-bit"       ' X86
                    strCommandLine = strShare & "\7\x86\46_7.exe"
                    Case "64-bit"       ' X64
                    strCommandLine = strShare & "\7\x64\46_7.exe"
                End Select
            Case Else
                ' Nothing to do
        End Select
    End With
Next


If Not IsEmpty(strCommandLine) Then
    If objSWbemServicesEx.Get("Win32_Process").Create("""" & strCommandLine & """", Empty, Nothing, lngProcessID) = 0 Then
    Else
    End If
End If

Set collSWbemObjectSet = Nothing
Set objSWbemServicesEx = Nothing
Set objSWbemLocator    = Nothing
Set WshShell           = Nothing

WScript.Quit 0

Case "6.2.9200" ' Windows 8 (& Windows Server 2012 R2)
                Select Case .OSArchitecture
                    Case "x86-based pc"       ' X86
                    strCommandLine = strShare & "\8\x86\46_7.exe"
                    Case "x64-based pc"       ' X64
                    strCommandLine = strShare & "\8\x64\46_7.exe"
                End Select