Topic: (vl-registry-read

[ronjonp]

Same here. Standalone installs and curver key is located under "HKEY_CURRENT_USER".

Ron

[ronjonp]

This works now:

Set WSHShell = WScript.CreateObject("WScript.Shell")
curver = WSHShell.RegRead ( "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\curver")
locale = WSHShell.RegRead ( "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\" & curver & "\curver")
serial = WSHShell.RegRead ( "HKEY_LOCAL_MACHINE\Software\Autodesk\AutoCAD\" & curver & "\" & locale & "\SerialNumber")
cprofile = WSHShell.RegRead ( "HKEY_CURRENT_USER\Software\Autodesk\AutoCAD\" & curver & "\" & locale & "\Profiles\")
MsgBox "Current Version: " & curver & CRLF & "Locale Code: " & locale & CRLF & "Serial Number: " & serial & CRLF & "Current

Profile: " & cprofile, vbInformation + vbOKOnly, "AutoCAD Installation Information"

[Keith™]

All I have is stand alone ... perhaps it is a key left from upgrading from previous versions of AutoCAD .. as I have gone from R14 to R2000 to R2002 to R2004 .... or maybe it just isn't there in any AutoCAD 2006 installations ...interesting though .. very interesting

[Bob Wahr]

Could be.  Most of the machines here were updated from 2002 but I did an uninstall of 2002 followed by a clean up of the registry.

[ronjonp]

I found this key under local machine here:

HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.1\ACAD-301:409\CadManagerControl\

hhhmmm

[Bob Wahr]

To install the CAD Manager Control utility

Insert the CD or DVD, and double-click setup.exe.
In the Media Browser, Network Deployment tab, under Install Supplemental Tools, click Autodesk CAD Manager Tools 2.0.
Under Autodesk CAD Manager Tools 2.0, click Install.
After you install the CAD Manager Control utility, you access it from the Start menu (Windows). Information about how to use the utility is available in Help on the CAD Manager Control Utility window.

Might have to look into it.

[cadpoobah]

How can I specify a wild card for this part of a registry key since it is different for each user?

(vl-registry-read "HKEY_USERS\\S-1-5-21-1645522239-861567501-725345543-1129\\......

Ron,

This thread took a detour from your original question. Did you ever get an answer to this? It would handy to know.

Thanks,

[rkmcswain]

Ron,

This thread took a detour from your original question. Did you ever get an answer to this? It would handy to know.

Thanks,

Wasn't that answered in Reply #2?

[ronjonp]

How can I specify a wild card for this part of a registry key since it is different for each user?

(vl-registry-read "HKEY_USERS\\S-1-5-21-1645522239-861567501-725345543-1129\\......

Ron,

This thread took a detour from your original question. Did you ever get an answer to this? It would handy to know.

Thanks,

Wow that was a long time ago! Today I'd grab the SID like so:

Code: [Select]

(defun _sid (/ key)
  (setq key "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\ProfileList\\")
  (car (vl-remove-if-not
(function
   (lambda (x)
     (wcmatch (vl-registry-read (strcat key x) "ProfileImagePath") (getenv "userprofile"))
   )
)
(vl-registry-descendents key)
       )
  )
)
(_sid)