FiveTech Support Forums

Hola a todos,

Alguien prodría probar está función? El parámetro que recibe es la letra de una unidad USB.

En W2000 a mi no me funciona, no entra en el 'For each oJob in oJobs'.

Utilizo Harbour y FWH 8.03.

Saludos y gracias
Carlos G.

Este es el código:
/ ***** */
STATIC FUNCTION GetUSBSerial( cDrive )
Local oLoc := CreateObject( "wbemScripting.SwbemLocator" )
Local oSrv := oLoc:ConnectServer()
Local oJobs := oSrv:ExecQuery( "SELECT * FROM Win32_LogicalDiskToPartition" )
Local oJob
Local cDriveNumber

cDrive = Upper( cDrive )
If Len( cDrive ) == 1
cDrive += ":"
Endif
If Len( cDrive ) > 2
cDrive = SubStr( cDrive, 1, 2 )
Endif

For each oJob in oJobs

If cDrive == StrToken( oJob:Dependent, 2, '"' )
    cDriveNumber = SubStr( StrToken( StrToken( oJob:Antecedent, 2, '"' ), 1, "," ), 7 )

    return GetSerial( oSrv, cDriveNumber )
Endif

Next

Return ""
/ ***** */