Определение архитектуры windows

Вверх ↑

Форумы СхемыОпределение архитектуры windows ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 20

Рейтинг: 2

#1: 2012-07-17 20:24:18 ЛС | профиль | цитата

code_28495.txt

Определяет х86 или х64.
Тестим, дополняем, упрощаем

карма: 1

файлы: 1

code_28495.txt [1.9KB] [595]

Ответов: 1173

Рейтинг: 49

#2: 2012-07-17 20:38:03 ЛС | профиль | цитата

Вариант для любителей изврата:
code_28496.txt

карма: 0

файлы: 1

code_28496.txt [1.4KB] [600]

Голосовали:

werdes

Ответов: 1731

Рейтинг: 68

#3: 2012-07-17 21:06:06 ЛС | профиль | цитата

[offtop]Это круто, это КРУТО

[/offtop]
------------ Дoбавленo в 21.06:
Решил определить с помощью VBS.
Но вылетает ошибка: Требуется объект: "

Add(MainForm,2953706,21,105)
{
}
Add(Button,1986153,91,105)
{
 Left=5
 Top=5
 link(onClick,14576096:doArh,[])
}
Add(Label,193577,238,105)
{
 Left=85
 Top=10
}
Add(VBJScript,14576096,161,105)
{
 WorkPoints=#5:doArh|
 EventPoints=#5:onArh|
 Script=#23:Sub doWork(Data, Index)|21:  Select Case Index  |20:    Case "doArh"    |17:    Dim WshShell |57:    Set WshShell = WScript.CreateObject("WScript.Shell") |51:    Set WshProEnv = WshShell.Environment("SYSTEM") |56:    sys.onArh = WshProEnv.Item("PROCESSOR_ARCHITECTURE")|21:  End Select         |8:End Sub |
 UseName=0
 link(onArh,193577:doText,[])
}

карма: 1

Ответов: 20

Рейтинг: 2

#4: 2012-07-17 21:31:31 ЛС | профиль | цитата

Ex_Ex_, можно заюзать переменную окружения %SYSTEMDRIVE% (C

, многие любители изврата переименовывают папку виндовс

Cosinus, наткнулся на вот такую реализацию в vbs
code_28498.txt

Моя поделка себя по странному ведет, если запущена без прав администратора, то на 64, показывает 86

карма: 1

файлы: 1

code_28498.txt [180B] [544]

Ответов: 1731

Рейтинг: 68

#5: 2012-07-17 21:41:46 ЛС | профиль | цитата

Да, вот теперь работает.
code_28499.txt
------------ Дoбавленo в 21.41:
Странно только, что предыдущий скрипт работал нормально как VBS файл.

карма: 1

файлы: 1

code_28499.txt [542B] [572]

Ответов: 20

Рейтинг: 2