If it makes you feel any better, Frank, Bob's nasty code doesn't work
here. :-)

We disable WSH at ever reboot.

Getting it to die is another matter though.

Frank Kabel wrote:

Hi Bob
this is not fair
I had the same idea but my code is much longer :-)

--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:

Here is one way, get the C drive volume number

Function DiskVolumeId() As String
Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")
DiskVolumeId = Format(CDbl(FSO.Drives("C:").SerialNumber))
End Function


"CAA " wrote in message
...

Hello, ..Hope you all enjoyed the jollies

Does anybody know a routine to get an unique ID from each computer.

I

would like to use it for preventative copying.

Thanks for looking
CAA


---
Message posted from http://www.ExcelForum.com/