[Need Help] Get PNP Device ID for USB Drive
Can someone translate this code to AutoIt for me? I'm not sure what is happening here, so I can't translate this correctly. Any assistance would be greatly appreciated! Source: http://home.hot.rr.com/graye/Articles/USB_SerialNumbers.htm Public Function GetSerialNumber(ByVal DriveLetter As String) As String
Dim wmi_ld, wmi_dp, wmi_dd As ManagementObject
Dim temp, parts(), ans As String
ans = ""
' get the Logical Disk for that drive letter
wmi_ld = New ManagementObject("Win32_Lo
Pheeww! Finally. Took me a while. It's not preety but it works Function returns 0 if the drive letter cannot be found. Otherwise it returns the PnpDEVICEID.
Note to self: never volunteer again to write scripts that look easy but aren;t
#include <String.au3>
$test = _GetPNPDeviceID("H:")
MsgBox(0, "Hurray", $test)
Func _GetPNPDeviceID($drive_letter)
Local $drive_letter_found, $drive_letter_found
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colIte