Postada em 05/07/2005 11:07 hs
Sub SERIAL_DRIVE(drive As String)
'FileSystemObject É nessecario MICROSOFT SCRIPTING RUNTIME
Dim fso As New FileSystemObject
Dim Winchester As Scripting.drive
Set Winchester = fso.GetDrive(drive)
Text1.Text = Hex$(Winchester.SerialNumber)
End Sub
' para chamar
Private Sub Command1_Click()
Call SERIAL_DRIVE("C")
End Sub
|
