B правда, совсем забыл про ver!
ver в семерке возвращает: Microsoft Windows [Version 6.1.7600]
]]>B правда, совсем забыл про ver!
ver в семерке возвращает: Microsoft Windows [Version 6.1.7600]
]]>
]]>echo off
ver | find " 9"
if not errorlevel 1 goto win9x
ver | find " 5."
if not errorlevel 1 goto win2k
ver | find " 6."
if not errorlevel 1 goto vista
ver | find " 7."
if not errorlevel 1 goto win7
echo XZ!
goto next
:win9x
echo win9x
goto next
:win2k
echo win2k
goto next
:vista
echo vista
goto next
:win7
echo win7
:nextWindows 7 6.1.7600
Windows Server 2008 R2 (ранее известна как Windows Server 7) 6.1.7600
Спасибо, что предупредили! Это действительно так 
Видимо, [странному] Microsoft это [побоку], как частенько бывает...
Что же делать?
Случаев, когда важны сразу платформа, версия, архитектура, сервер/нет ли, и чтобы это все в .cmd, наверное, не так уж и много. А в редких таковых придется строить громоздкие конструкции, улавливающие все особенности или делать консольную утилиту с реализацией на языке более высокого уровня, чтобы не морочиться с cmd.
****!
а не интересует заодно x86 или x64 ?
Это, конечно, хорошо, но:
OSArchitecture
Architecture of the operating system, as opposed to the processor.
Note: Windows Server 2003, Windows 2000, Windows NT 4.0, Windows XP, and Windows Me/98/95: This property is not available.
а это 90% всех машин.
Под XP даст что-то вроде "5.1.2600", под 7 - "6.1.7600"
B пожалуй да - по версии судить будет легче.
Оттуда же:
Windows 7 6.1.7600
Windows Server 2008 R2 (ранее известна как Windows Server 7) 6.1.7600
Есть и другие совпадения.
]]>/^\S+\s\S+\s7\s.+$/igЭто значит "Начало Слово Пробел Слово Пробел 7 Пробел Все-что-угодно Конец".
Upd Туплю-туплю! 
Мы же в пакетном файле а не под WSH!
Можно и версию посмотреть:
wmic.exe os get versionПод XP даст что-то вроде "5.1.2600", под 7 - "6.1.7600". Vista, насколько помню, должна определяться как 6.0.чего-то-там
B пожалуй да - по версии судить будет легче.
Кстати, удобно смотреть, что еще можно нарыть с помощью следующего .cmd:
set alias=OS
wmic.exe %alias% list >> %alias%.txtАлиасы см. "wmic /?"
]]>Microsoft Windows 7 МаксимальнаяДумаю по Caption не пойдёт... у семёрки этих разновидностей....
ИМХО может как-то по версии ядра лучше ?:/
а не интересует заодно x86 или x64 ?
For Each objOS in GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem")
WScript.Echo "Version = " & objOS.Version & vbcrlf & "Architecture = " & objOS.OSArchitecture
NextOption Explicit
Dim objSWbemObjectEx
With GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
For Each objSWbemObjectEx In .ExecQuery("SELECT Caption FROM Win32_OperatingSystem WHERE Primary = True")
'WScript.Echo objSWbemObjectEx.Caption
Select Case objSWbemObjectEx.Caption
Case "Microsoft Windows XP Professional", "Microsoft Windows XP Home Edition"
Call Windows_XP
Case "-= Place here Captions from Windows Vista =-"
Call Windows_Vista
Case "-= Place here Captions from Windows 7 =-"
Call Windows_7
Case Else
' Nothing to do
End Select
Next
End With
WScript.Quit 0
Sub Windows_XP
' Place here scenario from 1.vbs
WScript.Echo "Place here scenario from 1.vbs"
End Sub
Sub Windows_Vista
' Place here scenario from 2.vbs
WScript.Echo "Place here scenario from 2.vbs"
End Sub
Sub Windows_7
' Place here scenario from 3.vbs
WScript.Echo "Place here scenario from 3.vbs"
End SubКак выглядят «Caption» в случае «Vista» и «Windows 7» — не знаю, добавьте их в сценарий сами, перечислив возможные значения в соответствующих «Case …» через запятую.
]]>wmic.exe os get caption@echo off
set res=%ALLUSERSPROFILE% | find "ProgramData"
if "%res%" neq "" (
rem win 7
set def_u_p=%homedrive%\Users\Default\ntuser.dat
) else (
rem win XP, 2000, ...
set def_u_p="%homedrive%\Documents and Settings\Default User\ntuser.dat"
)
echo %def_u_p%