Help with get hdd serial code

[Gregm66]

Hi all,

i have code to get my hdd serial number then code in the Workbook Open, this works fine although what i am wanting to do is have this code check the hdd number and display a msgbox that says hdd serial verified, and also show another msgbox that says serial number not valid then shuts the workbook is this possible. as it is it just closes the workbook if the serial number doesnt match..please see my code below...this code is in the workbook open.

If CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber <> "1012000350" Then Application.Quit

 

[DanteAmor]

Try this

  If CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber <> "1012000350" Then
    MsgBox "Serial number not valid", vbCritical, "Bye"
    Application.Quit
  Else
    MsgBox "hdd serial verified", vbInformation, "Hello"
  End If

 

[Gregm66]

Hi DanteAmor,
Appologise for my late reply, i will try the code and let you know, once again i thankyou for your help and reply.

 

[Gregm66]

Thankyou DanteAmor,
I have just used the code and it functions perfectly.. Thankyou again for you help muchly appreciated..

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.