[VB6]: Seriale disco fisso (non quello della formattazione)

[pascan2]

Salve! Qualcuno può aiutarmi, mi servirebbe un sorgente per la lettura del seriale dell'Hd e se è possibile anche quello della CPU.
ATTENZIONE!!! non cerco il seriale hd della formattazione, ma proprio quello hardware.
Grazie

[verardoelvis]

ciao devi usare l'fso, ora non ho sotto mano il VB, comunque puoi vedere anche nell'help.

'Leggo il seriale dell'HD.

Set fso = CreateObject("Scripting.FileSystemObject")

Set fsoDriveS = fso.Drives

For Each fsoDrive In fsoDriveS

sDrive = fsoDrive.DriveLetter

If (fsoDrive.DriveType = 2) And (sDrive = "D") Then

Set fsoDrive = fso.GetDrive(sDrive)

SerialNum = fsoDrive.SerialNumber

MsgBox SerialNum

End If
Next

Set fsoDriveS = Nothing


prova, ciao

[elfocaotico]

Originariamente inviato da verardoelvis
ciao devi usare l'fso, ora non ho sotto mano il VB, comunque puoi vedere anche nell'help.

'Leggo il seriale dell'HD.

Set fso = CreateObject("Scripting.FileSystemObject")

Set fsoDriveS = fso.Drives

For Each fsoDrive In fsoDriveS

sDrive = fsoDrive.DriveLetter

If (fsoDrive.DriveType = 2) And (sDrive = "D") Then

Set fsoDrive = fso.GetDrive(sDrive)

SerialNum = fsoDrive.SerialNumber

MsgBox SerialNum

End If
Next

Set fsoDriveS = Nothing


prova, ciao

Ciao,
il Microsoft Scripting Runtime è disponibile e utilizzabile su tutti i so Win?
Grazie

[oregon]

Sì ... non sono sicuro su Win98 dove mi sembra vada installata la libreria ...

In ogni caso, non so se l'hai visto, ma hai risposto ad un thread di due anni fa ... forse era meglio aprire un thread nuovo ...

[zxc80]

Modificando quanto detto da "elfocaotico" io ho scritto il seguente codice:

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoDriveS = fso.Drives
MsgBox fsoDriveS(1).DriveLetter

secondo me dovrei vedere "A:" nel messaggio ma come mai si pianta
Non dovrebbe pinzare il primo elemento che "elfocaotico" prende col primo giro del suo ciclo for-next
non capisco la differenza VVoVe: VVoVe:
Dove è l'errore??