Moderador: Moderadores
http://www.wizdownloads.com/download/Wi ... serial-dll
http://www.google.com.br/#hl=pt-BR&output=search&sclient=psy-ab&q=DiskSerial.dll+download&oq=DiskSerial.dll+download&gs_l=hp.12...54648.59039.0.60782.10.10.0.0.0.0.283.1848.2-7.7.0...0.0...1c.1.7.psy-ab.IJaR1pjHNxk&pbx=1&bav=on.2,or.r_qf.&bvm=bv.44442042,d.eWU&fp=9ef3a9fdb74c8ab7&biw=1366&bih=633
asimoes escreveu:Só funciona com IDE
FUNCTION DriveSerial( cDisk )
hb_Default( @cDisk, "C:\" )
RETURN Transform( Padl( hb_NumToHex( VolSerial( cDisk ) ), 8 ), "@R XXXX-XXXX" )
hbmk2 -find serial
hbct.hbc (installed):
VolSerial()
FOR EACH oDiskDrive IN oWMIServerA2:ExecQuery( "SELECT * FROM Win32_LogicalDisk" )
hRecord := Nil
hRecord := {=>}
hRecord["Caption"] := oDiskDrive:Caption
hRecord["Description"] := oDiskDrive:Description
hRecord["FileSystem"] := oDiskDrive:FileSystem
hRecord["ProviderName"] := oDiskDrive:ProviderName
hRecord["Purpose"] := oDiskDrive:Purpose
hRecord["Size"] := oDiskDrive:Size
hRecord["Status"] := oDiskDrive:Status
hRecord["SystemName"] := oDiskDrive:SystemName
hRecord["VolumeName"] := oDiskDrive:VolumeName
hRecord["VolumeSerialNumber"] := oDiskDrive:VolumeSerialNumber
aAdd( aResp, hRecord )
NEXT
FUNCTION GetDiskInformation()
LOCAL cDiskNum AS STRING := "", cPnPDeviceID AS STRING := "", oDiskDrive AS OBJECT
LOCAL oWMIObjA AS OBJECT, oWMIServerA AS OBJECT, oWMIDiskDrive AS OBJECT, oWMIObjA2 AS OBJECT, oWMIServerA2 AS OBJECT, ;
oWMILogicalDisk AS OBJECT
oWMIObjA := Win_OleCreateObject( "wbemScripting.SwbemLocator" )
oWMIServerA := oWMIObjA:ConnectServer()
aResp := {}
FOR EACH oDiskDrive IN oWMIServerA:ExecQuery( "SELECT * FROM Win32_LogicalDisk" )
hRecord := Nil
hRecord := {=>}
hRecord["Caption"] := oDiskDrive:Caption
hRecord["Description"] := oDiskDrive:Description
hRecord["FileSystem"] := oDiskDrive:FileSystem
hRecord["ProviderName"] := oDiskDrive:ProviderName
hRecord["Purpose"] := oDiskDrive:Purpose
hRecord["Size"] := oDiskDrive:Size
hRecord["Status"] := oDiskDrive:Status
hRecord["SystemName"] := oDiskDrive:SystemName
hRecord["VolumeName"] := oDiskDrive:VolumeName
hRecord["VolumeSerialNumber"] := oDiskDrive:VolumeSerialNumber
aAdd( aResp, hRecord )
NEXT
FOR EACh oDiskDrive IN oWMIServerA:ExecQuery( "SELECT * FROM Win32_DiskDrive" )
hRecord := Nil
hRecord := {=>}
hRecord["SerialNumber"] := oDiskDrive:SerialNumber
hRecord["Manufacturer"] := oDiskDrive:Manufacturer
hRecord["MediaType"] := oDiskDrive:MediaType
hRecord["Partitions"] := oDiskDrive:Partitions
hRecord["Size"] := oDiskDrive:Size
hRecord["Caption"] := oDiskDrive:Caption
hRecord["Description"] := oDiskDrive:Description
hRecord["DeviceID"] := oDiskDrive:DeviceID
hRecord["Model"] := oDiskDrive:Model
hRecord["SystemName"] := oDiskDrive:SystemName
aAdd( aResp, hRecord )
NEXT
RETURN aResp
Softwhouse escreveu:Olá ASimões,
Pode mostrar como ver as informações do retorno do vetor aDiskInfo ?
Obrigado.
LOCAL oElemento
FOR EACH oElemento In aDiskInfo
? oElemento["VolumeSerialNumber"]
NEXT
Usuários vendo este fórum: Google [Bot] e 5 visitantes