Unknow theme, need sugestion. HDDSerial from VirtualMachine.

[Luigi 38]

Hi, I am not create the fuctions below, only rewrite and the original location was maintained...

a] this function with 'select * from win32' is a new thing for me, what's name from this content? I want study more about this. Someone can sugest more about for me please.

b] in the function _HddSerial() work fine, and return the serial from a real HD, but I work with virtual machines too... and this function crash in VM. I don't know to write a condition for _HddSerial for VM's hard disk drive. Ahhh... The fuction crash if have more than one hdd.

Best regards. 8D

Detefon

; http://www.autoitscript.com/forum/topic/69501-drivegetserial-report-different-hdd-serial-no/page__hl__drive++serial
; http://www.codeproject.com/KB/cs/hard_disk_serialno.aspx
ConsoleWrite("Hard Disk Drive Serial[" & _HddSerial() & "]" & @LF)
ConsoleWrite("MacAdress[" & _Mac() & "]" & @LF)
Func _HddSerial()
; Adapted function
; 06/09/2011
; http://www.autoitscript.com/forum/topic/69501-drivegetserial-report-different-hdd-serial-no/page__hl__drive++serial
; http://www.codeproject.com/KB/cs/hard_disk_serialno.aspx
Local $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", 0x10 + 0x20)
If IsObj($colItems) then
  For $objItem In $colItems
   If StringInStr($objItem.Name,"\\.\PHYSICALDRIVE0")>=0 Then Return $objItem.SerialNumber
  Next
Else
  Return False
Endif
EndFunc
Func _Mac()
; Adapted function
; 06/09/2011
; http://www.autoitscript.com/forum/topic/93183-wmi-ip-data/
Local $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
Local $colAdapters = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
If IsObj($colAdapters) then
  For $objAdapter In $colAdapters
   Return $objAdapter.MACAddress
  Next
Else
  Return False
Endif
EndFunc

[Luigi 38]

I try rewrite this... is good?

Func _HddSerial()
; Adapted function
; 06/09/2011
; http://www.autoitscript.com/forum/topic/69501-drivegetserial-report-different-hdd-serial-no/page__hl__drive++serial
; http://www.codeproject.com/KB/cs/hard_disk_serialno.aspx
Local $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive", "WQL", 0x10 + 0x20)
Local $Counter = 0
Local $Result = ""
If IsObj($colItems) then
  For $objItem In $colItems
   If StringInStr($objItem.Name,"\\.\PHYSICALDRIVE" & $Counter)>=0 Then $Result &= $Counter & ":" & $objItem.SerialNumber
   $Counter +=1
  Next
  Return StringMid($Result,1,StringLen($Result)-1)
Else
  Return False
Endif
EndFunc