- Сообщения
- 596
- Репутация
- 157
AutoIt: 3.2.1.2 - 3.3.0.0
Версия: 00.03.08
Категория:
Название: (UDF) Computer Info
Описание: Получение информации о компьютере и его устройствах через WMI.
Код: Пример
Источник: JSThePatriot
Версия: 00.03.08
Категория:
Название: (UDF) Computer Info
Описание: Получение информации о компьютере и его устройствах через WMI.
Код: Пример
Код:
#include "CompInfo.au3" ;If you are wanting to pull WMI data from different computers then Declare $cI_CompName as the computer name before the include.
#region -- Boot Configuration
Dim $BootConfig
_ComputerGetBootConfig($BootConfig)
If @error Then
$error = @error
$extended = @extended
Switch $extended
Case 1
_ErrorMsg($ERR_NO_INFO)
Case 2
_ErrorMsg($ERR_NOT_OBJ)
EndSwitch
EndIf
For $i = 1 To $BootConfig[0][0] Step 1
MsgBox(0, "Test _ComputerGetBootConfig", "Name: " & $BootConfig[$i][0] & @CRLF & _
"Boot Directory: " & $BootConfig[$i][1] & @CRLF & _
"Configuration Path: " & $BootConfig[$i][2] & @CRLF & _
"Last Drive: " & $BootConfig[$i][3] & @CRLF & _
"Description: " & $BootConfig[$i][4] & @CRLF & _
"Scratch Directory: " & $BootConfig[$i][5] & @CRLF & _
"Setting ID: " & $BootConfig[$i][6] & @CRLF & _
"Temp Directory: " & $BootConfig[$i][7])
Next
#endregion Boot Configuration
#region ---- Internal Functions
Func _ErrorMsg($message, $time = 0)
MsgBox(48 + 262144, "Error!", $message, $time)
EndFunc
#endregion Internal Functions