Get a number...

[Arunijus]

Hi,
How I can get a number of HDD or other computer component in VBA.
Thanks

 

[fuzzygeek]

I'm not sure what you are asking for but you may be able to adapt this:

Public Function ScriptingDriveInformation()
'This scripting code identifies the different drives in your computer

Dim fso As Object
Dim Drive_Message As String
Dim dc As Object
Dim n As String
Dim d As Object
Dim strDriveType As String

On Error GoTo diskerror

Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives

For Each d In dc
Drive_Message = Drive_Message & d.DriveLetter & " - "
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
Select Case d.DriveType
Case 0
strDriveType = " (Unknown)"
Case 1
strDriveType = " (Removable)"
Case 2
strDriveType = " (Fixed)"
Case 3
strDriveType = " (Network)"
Case 4
strDriveType = " (CDRom)"
Case 4
strDriveType = " (RamDisk)"
Case Else
strDriveType = " (UnknownOther)"
End Select
'Debug.Print d.drivetype
Drive_Message = Drive_Message & n & " - " & d.DriveType & strDriveType & vbCrLf
Next

MsgBox Drive_Message, vbOKOnly, "Drive List"
diskexit:
Exit Function
diskerror:

If Err.Number = 71 Then 'Trap the "Drive Not Ready" Error.
MsgBox "no disk in removable drive"
Resume Next
End If

End Function

 

[Arunijus]

Thanks for info

But I need a info about a SERIAL NUMBER of compnents for protect my application

 

[fuzzygeek]

From Help Menu

SerialNumber Property


Description

Returns the decimal serial number used to uniquely identify a disk volume.

Syntax

object.SerialNumber

The object is always a Drive object.

Remarks

You can use the SerialNumber property to ensure that the correct disk is inserted in a drive with removable media.

The following code illustrates the use of the SerialNumber property:

Sub ShowDriveInfo(drvpath)
Dim fs, d, s, t
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
Select Case d.DriveType
Case 0: t = "Unknown"
Case 1: t = "Removable"
Case 2: t = "Fixed"
Case 3: t = "Network"
Case 4: t = "CD-ROM"
Case 5: t = "RAM Disk"
End Select
s = "Drive " & d.DriveLetter & ": - " & t
s = s & vbCrLf & "SN: " & d.SerialNumber
MsgBox s
End Sub

 

[Arunijus]

Thanks, good example...

Can I calc number of my tables, forms, reports in database?