>I tried to do a search for code to identify the hard drive serial number and I struck out.
>So I did some research and came up with the below. I hope it helps someone
>
>Determine Drive Serial Number
>objFSO = CreateObject('Scripting.FileSystemObject')
>objDrive = objFSO.GetDrive('C:')
>MESSAGEBOX(objDrive.SerialNumber)

This gives me a negative value which is not right.