Hard Drive Serial Number (RESOLVED)

[jsalvin]

I have the following code in sub main of my program. Work great in Windows 2000 or XP. In Windows 98 I get RTE '432" "File name or class name not found during Automation operation" The code is to get the hard drive serial number. The error occurs on the highlighted line.

Private Sub Command1_Click()
Dim HD As Object
Dim x As Integer
x = 0
For Each HD In GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery("select * from Win32_LogicalDisk")
If HD.MediaType = 12 Then '/// make sure we only get hard-drives.
If x = 0 Then'/// to allow only first to be shown.
MsgBox HD.Caption & vbCrLf & HD.VolumeSerialNumber
x = 1
End If
End If
Next
End Sub


Has anyone any experience with this. Do I need to declare or register a class/file to get this to work on Win 98 machines?

ANy assistance appreciated....

thanks

-jhs

[jsalvin]

Never mind, had to install WMI Core v1.5 from microsoft first. All works now.