[решено] Определить серийный номер устройства с которого запущен скрипт.

[Centrinar]

Собственно как определить серийник если устройство может быть как и флешка так и HDD ну и т.д. Спасибо!

[Iska]

Что подразумевается под «серийный номер устройства»? WMI, класс «Win32_LogicalDisk», свойство «VolumeSerialNumber», оно же «DriveGetSerial ()»?!

[Centrinar]

DriveGetSeria

[madmasles]

Centrinar,
#include <WinAPIEx.au3>

$sProcess = 'notepad.exe'
Run('notepad.exe', '', @SW_MINIMIZE)
Sleep(1000)
$PID = ProcessExists($sProcess)
If $PID Then
$sPath = _WinAPI_GetProcessFileName($PID)
$sDrive = _WinAPI_PathStripToRoot($sPath)
$sSerial = DriveGetSerial($sDrive)
MsgBox(64, 'Info', 'Процесс: ' & $sProcess & @LF & 'Путь: ' & $sPath & @LF & 'Диск: ' & _
$sDrive & @LF & '№: Диска ' & $sDrive & ' = ' & $sSerial)
ProcessClose($sProcess)
EndIf

WinAPIEx.au3 (http://autoit-script.ru/index.php?topic=47.0)

[AZJIO]

Centrinar, MsgBox(0, 'Это что ли?', DriveGetSerial(StringLeft(@ScriptDir, 2)))

[Iska]

#include <file.au3>
AutoItSetOption("MustDeclareVars", 1)

Local $sDrive, $sDir, $sFName, $sExt
_PathSplit(@ScriptFullPath, $sDrive, $sDir, $sFName, $sExt)
ConsoleWrite(Hex(Number(DriveGetSerial($sDrive))) & @CRLF)


Local $oFSO = ObjCreate("Scripting.FileSystemObject")
ConsoleWrite(Hex($oFSO.GetDrive($oFSO.GetDriveName(@ScriptFullPath)).SerialNumber) & @CRLF)
$oFSO = 0


Local $oSWbemLocator = ObjCreate("WbemScripting.SWbemLocator")
ConsoleWrite($oSWbemLocator.ConnectServer(".", "root\cimv2").Get("Win32_LogicalDisk.DeviceID='" & $sDrive & "'").VolumeSerialNumber & @CRLF)
$oSWbemLocator = 0

[AZJIO]

Можно просто hex сделать MsgBox(0, 'Это что ли?', Hex(DriveGetSerial(StringLeft(@ScriptDir, 2))))

[Centrinar]

Для не знающих, что значит HEX

[Iska]

Перевод числа в строку в шестнадцатеричной системе счисления.
Hex

Returns a string representation of an integer or of a binary type converted to hexadecimal.