[madmasles]

чтение версии WinVer.exe из первой попавшейся »

У меня, например, на диске C:\ стоит Windows 7, а на E:\ - Windows XP. Какая версия будет нужна?

[KopBuH91]

семейство NT6, то есть от Vista и выше.
а так - под 90% случаев этот вариант подходит - ведь 2 системы на одном HDD - редкость.
к тому же, если нужен конкретный выбор - у нас есть переменная, в которой содержится буква нужного диска.
а нет выбора (/auto) - пусть будет первая попавшаяся, по порядке букв, начиная с C:, исключая X:.

[madmasles]

KopBuH91,
Попробуйте сделать примерно так.

Код:

Global $sPath, $sVers

If $CmdLine[0] Then
    If StringRegExp($CmdLineRaw, '(?<=^|\x{20})([''"]{0,1}/auto[''"]{0,1})(?=\x{20}|$)') Then
        _FindFirstWinDir($sPath)
;~         или, как вариант:
;~         If Not _FindFirstWinDir($sPath) Then Exit MsgBox(16, 'Error', 'Не нашли ни одного диска с папкой Windows')
    EndIf
EndIf
If Not $sPath Then
    $sPath = EnvGet('OFFLINESYSTEM');или OFFLINESYSTEMDRIVE?
    If Not $sPath Then Exit MsgBox(16, 'Error', 'Нет переменной %OFFLINESYSTEM%');или OFFLINESYSTEMDRIVE?
EndIf
$sVers = FileGetVersion($sPath & '\System32\winver.exe')
$sVers = StringRegExpReplace($sVers, '^(\d+\.\d+).*', '$1')
If @extended <> 1 Then Exit MsgBox(16, 'Error', 'Ошибка получения версии winver.exe')
If EnvGet('OFFLINESYSTEMVER') = $sVers Then Exit MsgBox(64, 'Info', 'Переменная OFFLINESYSTEMVER со значением ' & $sVers & ' уже есть')
If Not RegWrite('HKEY_CURRENT_USER\Environment', 'OFFLINESYSTEMVER', 'REG_SZ', $sVers) Then
    Exit MsgBox(16, 'Error', 'Ошибка записи переменной OFFLINESYSTEMVER в реестр')
EndIf

Func _FindFirstWinDir(ByRef $s_Path)
    Local $s_Drive
    For $i = 67 To 90
        If $i = 88 Then ContinueLoop
        $s_Drive = Chr($i)
        If FileExists($s_Drive & ':\Windows\') Then
            $s_Path = $s_Drive & ':\Windows'
            Return 1
        EndIf
    Next
    Return 0
EndFunc   ;==>_FindFirstWinDir

;~ Run('"' & @ScriptDir & '\test.exe" /auto')