slech
на тему определения версий уже тут немало писалось, да и Misha1989 прав, что новер версии то не меняется и код [more=вроде этого]
Код: Set WSHShell = WScript.CreateObject("WScript.Shell")
strRegKey = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\CurrentVersion"
osVersion = WSHShell.RegRead(strRegKey)
If osVersion = "5.1" Then
WScript.Echo "Windows XP"
WScript.Quit
ElseIf osVersion = "6.0" Then
Wscript.Echo "Windows Vista"
Wscript.Quit
ElseIf osVersion = "7.0" Then
WScript.Echo = "Windows Seven"
WScript.Quit
End If
на тему определения версий уже тут немало писалось, да и Misha1989 прав, что новер версии то не меняется и код [more=вроде этого]
Код: Set WSHShell = WScript.CreateObject("WScript.Shell")
strRegKey = "HKLM\Software\Microsoft\Windows NT\CurrentVersion\CurrentVersion"
osVersion = WSHShell.RegRead(strRegKey)
If osVersion = "5.1" Then
WScript.Echo "Windows XP"
WScript.Quit
ElseIf osVersion = "6.0" Then
Wscript.Echo "Windows Vista"
Wscript.Quit
ElseIf osVersion = "7.0" Then
WScript.Echo = "Windows Seven"
WScript.Quit
End If