Identifying harddisk

[tyr]

I want to identify a harddisk over a network or any other component in a
computer. The IP address did not work beccause it change everytime.

The following code works fine on a single computer but returns 0 if you try
it over a netword.

Any ideas
thanks
Alfred
'Copy this code into the declarations section of the project.

Private Declare Function GetVolumeInform ation Lib _
"kernel32.d ll" Alias "GetVolumeInfor mationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuf fer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialN umber As Long, lpMaximumCompon entLength _
As Long, lpFileSystemFla gs As Long, ByVal _
lpFileSystemNam eBuffer As String, ByVal _
nFileSystemName Size As Long) As Long

'Code

Function GetSerialNumber (strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInform ation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function

[ManningFan]

Do a search for WScript.Network , there might be a call using that.

tyr wrote:

I want to identify a harddisk over a network or any other component in a
computer. The IP address did not work beccause it change everytime.

The following code works fine on a single computer but returns 0 if you try
it over a netword.

Any ideas
thanks
Alfred
'Copy this code into the declarations section of the project.

Private Declare Function GetVolumeInform ation Lib _
"kernel32.d ll" Alias "GetVolumeInfor mationA" (ByVal _
lpRootPathName As String, ByVal lpVolumeNameBuf fer As _
String, ByVal nVolumeNameSize As Integer, _
lpVolumeSerialN umber As Long, lpMaximumCompon entLength _
As Long, lpFileSystemFla gs As Long, ByVal _
lpFileSystemNam eBuffer As String, ByVal _
nFileSystemName Size As Long) As Long

'Code

Function GetSerialNumber (strDrive As String) As Long
Dim SerialNum As Long
Dim Res As Long
Dim Temp1 As String
Dim Temp2 As String
Temp1 = String$(255, Chr$(0))
Temp2 = String$(255, Chr$(0))
Res = GetVolumeInform ation(strDrive, Temp1, _
Len(Temp1), SerialNum, 0, 0, Temp2, Len(Temp2))
GetSerialNumber = SerialNum
End Function