Архив форумов ЦИТФорума

[AndDem]

Хотелось бы, чтобы MsgBox выдавал в текстовом виде версию windows (Win98, WinNT ну или как-то еще).
Подскажите, плиз, как это можно сделать.
Заранее спасибо!

[4u3u]

strComputer = "."
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\cimv2")
Set colOS = objWMI.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOS in colOS
Wscript.Echo objOS.Caption & " " & _
" SP" & objOS.ServicePackMajorVersion & _
"." & objOS.ServicePackMinorVersion & VbCrLf _
& "version: " & objOS.Version
Next