Topic: serial_no....

[Andrea]

Hi,

I use (dos_serialno "d:") in a program to detect
if the serial is in some list..

this function come with Doslib 6.1

But to use that, I need to load the Doslib.ARX file.

so the question is.....is there any function doing the same thing without loading any ARX file ?

thanks.

[Bob Wahr]

You can do it without loading autocad.  It's in the registry and can be gotten from there.  Where will depend on version but the key will be something like HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.2\ACAD-4001:409

[Kerry]

This can be done using Microsoft Scripting Runtime library (SCRRUN.DLL)
.. either with VB, VBA or VLisp.

be warned though that some antivirus software has been known to warn the end user that a potential virus is running ... I imagine this is not the thing you will want your users to think.

The version I have built is for a client, and not sharable. A little research will provide an algorithm to suit you.

[Kerry]

Hi Bob, he's after the HardDisk Drive serial No. I thought .. perhaps not

[Berend]

Hold on if someone can explain how to upload a zip
I can share a class to determine which version of acad is installed amongst some others.

It uses the API so you won't need to run a program.
It contains a class and a sample module.

I've  stored it in my image folder (Berend) let's see if I can create a link.....http://www.theswamp.org/screens/index.php?subdir=Berend&sortby=name

well this will have to do.
You can search for version numbers of Acad, word, Excel, acrobat Reader... with this.

[Bob Wahr]

Hi Bob, he's after the HardDisk Drive serial No. I thought .. perhaps not :)

Rereading his post it looks like you are right.  How about
Shell
dir d:

Sure it doesn't return it but it will let you see it :D

[Kerry]

Probably wont suit him ... I imagine he is attempting to build some sort of protection system for software installation .. using the installed drive serial No to feed to a routine to build a unique identifier to compare with the output from a password parser.

.. but I've been wrong before

[ronjonp]

If it is AutoCAD he's after, it can be retrieved by:

(getvar '_pkser)

Ron

[Bob Wahr]

I said it was worthless but it does give it.  You always have to "give the right answer" and "tell them what they want to know" bleh!

Ok, how about

Code: [Select]

Sub MilkToastAnd()
Dim strSerial As String
Dim varDrv As Variant
Dim varFSO As Variant

Set varFSO = CreateObject("Scripting.FileSystemObject")
Set varDrv = varFSO.GetDrive(varFSO.GetDriveName(varFSO.GetAbsolutePathName("D:\")))
strSerial = varDrv.SerialNumber
End Sub

[Kerry]

Works for me Bob,
except that varDrv.SerialNumber returns a long, not a string.

regards
kwb

[Bob Wahr]

true dat.  I figured he wanted it as a string for a list comparison but it is a long by nature.

[Jürg Menzi]

Morning everybody

Duh, was a hard night :crazy:
Visit my homepage -> Free Stuff and search for 'VxGetAcadLicenseInfos' and 'VxGetDriveInfos'