Posts
on error resume next
Dim WshShell
Set WshShell = Wscript.CreateObject("Wscript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Acad2006="HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.2\ACAD-4001:409\"
PN=""
PN = WshShell.RegRead(Acad2006 & "ProductName")
If fso.FolderExists("C:\Program Files\AutoCAD 2006") and PN="AutoCAD 2006" Then
Release=""
Release = WshShell.RegRead(Acad2006 & "Release")
If Release="16.2.54.10" Then
WshShell.Run """\\it.local\Acad2006\AutoCAD2006SP1.exe"" /q",1,true
End if
End if
Settling into the holiday spirit
1 day ago
Restored comment
ReplyDeleteR.K. McSwain said...
Nice. I've got to get more educated on scripting. I'm still using BAT files. :-)
Some may want to consider backing up and restoring "acmap.cui" and "land.cui" (in the case of LDT2006) in case your users have modified these files (with their own workspaces).
Ok, I didn't bring that up to debate the whole menu/CUI administrative issue, I'm just saying that it's possible that someone out there has users with modified CUI files.
Thanks for your example.
October 12, 2005