-
AutoIt
(
http://forum.oszone.net/forumdisplay.php?f=103)
Скрипт для проверки версии ОС
Добрый день!
Народ, помогите написать функцию для чтения информации о версии ос из wmi.
Я пробовал написать, но не знаю синтаксиса, у меня выдаются пустые значения...
Код:
Func _showmeos($PC)
$oWMI=ObjGet("winmgmts:\\" & $PC & "\root\CIMV2")
$osinfo=$oWMI.Get("Win32_OperatingSystem")
ConsoleWrite ("$oWMI = " & $oWMI & @CR & "$oProcessColl = " & $oProcessColl & @CR)
EndFunc
|
Цитата:
Цитата HFShak
помогите написать функцию для чтения информации о версии ос из wmi »
|
Чем не устраивают существующие макросы (@OSVersion, @OSType)?
И куски кода следует заключать в соответствующий тег. |
Цитата:
Цитата Creat0R
Чем не устраивают существующие макросы (@OSVersion, @OSType)? »
|
Они разве показывают информацию на удаленной машине? |
HFShak,
Код:
; Generated by AutoIt ScriptOMatic
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"
$OutputTitle = ""
$Output = ""
$OutputTitle &= "Computer: " & $strComputer & @CRLF
$OutputTitle &= "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
Local $Object_Flag = 0
For $objItem In $colItems
$Object_Flag = 1
$Output &= "BootDevice: " & $objItem.BootDevice & @CRLF
$Output &= "BuildNumber: " & $objItem.BuildNumber & @CRLF
$Output &= "BuildType: " & $objItem.BuildType & @CRLF
$Output &= "Caption: " & $objItem.Caption & @CRLF
$Output &= "CodeSet: " & $objItem.CodeSet & @CRLF
$Output &= "CountryCode: " & $objItem.CountryCode & @CRLF
$Output &= "CreationClassName: " & $objItem.CreationClassName & @CRLF
$Output &= "CSCreationClassName: " & $objItem.CSCreationClassName & @CRLF
$Output &= "CSDVersion: " & $objItem.CSDVersion & @CRLF
$Output &= "CSName: " & $objItem.CSName & @CRLF
$Output &= "CurrentTimeZone: " & $objItem.CurrentTimeZone & @CRLF
$Output &= "DataExecutionPrevention_32BitApplications: " & $objItem.DataExecutionPrevention_32BitApplications & @CRLF
$Output &= "DataExecutionPrevention_Available: " & $objItem.DataExecutionPrevention_Available & @CRLF
$Output &= "DataExecutionPrevention_Drivers: " & $objItem.DataExecutionPrevention_Drivers & @CRLF
$Output &= "DataExecutionPrevention_SupportPolicy: " & $objItem.DataExecutionPrevention_SupportPolicy & @CRLF
$Output &= "Debug: " & $objItem.Debug & @CRLF
$Output &= "Description: " & $objItem.Description & @CRLF
$Output &= "Distributed: " & $objItem.Distributed & @CRLF
$Output &= "EncryptionLevel: " & $objItem.EncryptionLevel & @CRLF
$Output &= "ForegroundApplicationBoost: " & $objItem.ForegroundApplicationBoost & @CRLF
$Output &= "FreePhysicalMemory: " & $objItem.FreePhysicalMemory & @CRLF
$Output &= "FreeSpaceInPagingFiles: " & $objItem.FreeSpaceInPagingFiles & @CRLF
$Output &= "FreeVirtualMemory: " & $objItem.FreeVirtualMemory & @CRLF
$Output &= "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF
$Output &= "LargeSystemCache: " & $objItem.LargeSystemCache & @CRLF
$Output &= "LastBootUpTime: " & WMIDateStringToDate($objItem.LastBootUpTime) & @CRLF
$Output &= "LocalDateTime: " & WMIDateStringToDate($objItem.LocalDateTime) & @CRLF
$Output &= "Locale: " & $objItem.Locale & @CRLF
$Output &= "Manufacturer: " & $objItem.Manufacturer & @CRLF
$Output &= "MaxNumberOfProcesses: " & $objItem.MaxNumberOfProcesses & @CRLF
$Output &= "MaxProcessMemorySize: " & $objItem.MaxProcessMemorySize & @CRLF
$Output &= "Name: " & $objItem.Name & @CRLF
$Output &= "NumberOfLicensedUsers: " & $objItem.NumberOfLicensedUsers & @CRLF
$Output &= "NumberOfProcesses: " & $objItem.NumberOfProcesses & @CRLF
$Output &= "NumberOfUsers: " & $objItem.NumberOfUsers & @CRLF
$Output &= "Organization: " & $objItem.Organization & @CRLF
$Output &= "OSLanguage: " & $objItem.OSLanguage & @CRLF
$Output &= "OSProductSuite: " & $objItem.OSProductSuite & @CRLF
$Output &= "OSType: " & $objItem.OSType & @CRLF
$Output &= "OtherTypeDescription: " & $objItem.OtherTypeDescription & @CRLF
$Output &= "PlusProductID: " & $objItem.PlusProductID & @CRLF
$Output &= "PlusVersionNumber: " & $objItem.PlusVersionNumber & @CRLF
$Output &= "Primary: " & $objItem.Primary & @CRLF
$Output &= "ProductType: " & $objItem.ProductType & @CRLF
$Output &= "QuantumLength: " & $objItem.QuantumLength & @CRLF
$Output &= "QuantumType: " & $objItem.QuantumType & @CRLF
$Output &= "RegisteredUser: " & $objItem.RegisteredUser & @CRLF
$Output &= "SerialNumber: " & $objItem.SerialNumber & @CRLF
$Output &= "ServicePackMajorVersion: " & $objItem.ServicePackMajorVersion & @CRLF
$Output &= "ServicePackMinorVersion: " & $objItem.ServicePackMinorVersion & @CRLF
$Output &= "SizeStoredInPagingFiles: " & $objItem.SizeStoredInPagingFiles & @CRLF
$Output &= "Status: " & $objItem.Status & @CRLF
$Output &= "SuiteMask: " & $objItem.SuiteMask & @CRLF
$Output &= "SystemDevice: " & $objItem.SystemDevice & @CRLF
$Output &= "SystemDirectory: " & $objItem.SystemDirectory & @CRLF
$Output &= "SystemDrive: " & $objItem.SystemDrive & @CRLF
$Output &= "TotalSwapSpaceSize: " & $objItem.TotalSwapSpaceSize & @CRLF
$Output &= "TotalVirtualMemorySize: " & $objItem.TotalVirtualMemorySize & @CRLF
$Output &= "TotalVisibleMemorySize: " & $objItem.TotalVisibleMemorySize & @CRLF
$Output &= "Version: " & $objItem.Version & @CRLF
$Output &= "WindowsDirectory: " & $objItem.WindowsDirectory & @CRLF
If MsgBox(1, "WMI Output", $Output) = 2 Then ExitLoop
$Output = ""
Next
If $Object_Flag = 0 Then MsgBox(1, "WMI Output", $OutputTitle)
Else
MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_OperatingSystem")
EndIf
Func WMIDateStringToDate($dtmDate)
Return (StringMid($dtmDate, 5, 2) & "/" & _
StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _
& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate, 13, 2))
EndFunc ;==>WMIDateStringToDate
ScriptOmatic.au3
|
Цитата:
Цитата HFShak
Они разве показывают информацию на удаленной машине? »
|
А где указано что нужно получать информацию на удалённой машине? |
Спасибо, очень полезный скрипт.
Скажите, а что это за переменные:
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
И что означает:
Цитата:
Цитата madmasles
colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly) »
|
В частоности, что делает "ExecQuery", что такое "WQL" и почему складываются две переменные? |
Отличная ссылка. Читаю...
Вот пример:
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
Почему в C++ или в vbs запрос выглядет так:
objWbemObjectSet = SWbemServices.ExecQuery( _
ByVal strQuery, _
[ ByVal strQueryLanguage ], _
[ ByVal iFlags ], _
[ ByVal objWbemNamedValueSet ] _
)
А в autoit так :
colItems = $objWMIService.ExecNotificationQuery("SELECT * FROM Win32_OperatingSystem", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
Есть где нибудь описание именно для autoit типа:
.ExecQuery ( ...)
.Get ( ... ) |
HFShak, что для WSH, что для AutoIt данный запрос абсолютно одинаков.
|
Почему может возникать вот такая ошибка?
Запуская скрип выше (ScriptOmatic.au3), на одном ПК работает нормально, на другом пишет:
(13) : ==> Variable must be of type "Object".:
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
$colItems = $objWMIService^ ERROR
|
HFShak, судя по всему, причина в неудачном подключении к удалённой машине в предыдущей строке скрипта:
Код:
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
А причин тому может быть множество, например: vbscript: почему не работают скрипты WMI?.
|
А как-нибудь можно сделать, чтобы он пропускал такую машину?, просто с другими скрипт работает нормально, а после ошибки сразу останавливается.
|
Код:
If IsObj($objWMIService) Then
; нужные действия
EndIf
|
Время: 13:28.
© OSzone.net 2001-
