Что нового

Скрипт, проверяющий какая Windows установлена.

Rimm

Новичок
Сообщения
30
Репутация
0
Как написать скрипт, который будет изначально проверять какая Windows установлена, а потом высылать сообщение с названием Windows?
 

joiner

Модератор
Локальный модератор
Сообщения
3,396
Репутация
594
Rimm
а макросы не подходят?
Код:
MsgBox(0,'',@OSType & @CRLF & @OSVersion & @CRLF & @OSBuild & @CRLF & @OSServicePack)
 
Автор
R

Rimm

Новичок
Сообщения
30
Репутация
0
Наверно, подходят, только я хочу, чтоб в итоге получилось:
1. Скрипт проверяет версию Винды.
2. Выдает сообщение, типа, «Установлена windows 7». Нажимаем ОК.
3. Исходя из версии ОС, выполняет тот или иной сценарий.
Как, используя Ваше предложение, это сделать?
 

nu3dell

Осваивающий
Сообщения
139
Репутация
24
Код:
MsgBox(0, "Установлена", _OSVersion()) 

If _OSVersion() = "Windows XP" Then
	run("notepad.exe")
	ElseIf _OSVersion() = "Windows Se7en" Then
	run("calc.exe")
EndIf

Func _OSVersion()
Select
	Case StringInStr("WIN_2000", @OSVersion) 
		Return "Windows 2000" 
		
	Case StringInStr("WIN_XPe WIN_XP", @OSVersion)
        Return "Windows XP"

    Case StringInStr("WIN_2003", @OSVersion)
        Return "Windows Server 2003"

    Case StringInStr("WIN_VISTA", @OSVersion)
        Return "Windows VISTA"

    Case StringInStr("WIN_2008", @OSVersion)
        Return "Windows Server 2008"

    Case StringInStr("WIN_7", @OSVersion)
        Return "Windows Se7en"

    Case StringInStr("WIN_2008R2", @OSVersion)
        Return "Windows Server 2008 R2"

    Case Else
        Return "Other"

    EndSelect
EndFunc
 
Верх