Excel H/D Serial Number (resolved)

[TheFIDDLER]

I need some help with this. I use this code to get the serial number of my drive. Works well in XP, does not work in 98. I need a code that will work for all windows versions. Any suggestions? This is run by my autoopen subroutine in Excel 97.

Private Sub snumber()
' checks serial number of hard disk and stores to name value
    Dim fso, d
    Dim s As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set d = fso.GetDrive(Left(ThisWorkbook.Path, 2))
    s = d.serialnumber
    Names.add Name:="SerialNumber", RefersTo:=Abs(s), Visible:=False
    
End Sub

Thanks.

[Garratt]

I was curious enough to look around for a few seconds.

I found this,
http://www.excelforum.com/t209535-s

But got boerd a few posts down.

[RobDog888]

I would go with the API method over the FSO anyday. Faster and
will work on 95 on up and NT 3.51 and up. Check this site for all
your API needs (serial # examples at bottom of page).

allapi.net

[TheFIDDLER]

Thanks, will work on it and see if we can improve our code. The API site had what I was looking for.

I'm still curious about my code - since I have one user that code an error "Unable To create Object" in Win98 with the FSO method. But looking back in my records, I have several succesful Win98 installations listed.

I think I will code a double approach. Still using FSO, but coding an OnError that will launch the API call, either way, that makes it more secure that I get my serial number, no matter the platform.

[RobDog888]

No problem, but I still suggest using the API over FSO.

The one error on 98 with not being able to create object is that
system is missing the scripting dependancy files.
FSO = Windows Scripting Host Object Model (wshom.ocx) reference.