Registrations to Open-AudIT forums are now closed. To ask any new questions please visit Opmantek Community Questions.

Open-AudIT

What's on your network?
It is currently Fri Mar 29, 2024 2:34 am

All times are UTC + 10 hours




Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 4 posts ] 
Author Message
PostPosted: Fri Aug 01, 2008 1:18 am 
Offline
Newbie

Joined: Fri Feb 22, 2008 1:43 am
Posts: 13
I have added the below to my Audit.VBS script to collect a few more product keys for more recent versions of these applications.


[code]
''''''''''''''''''''''''''''''''
' Autocad 2006 LT
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Autodesk\AutoCAD LT\R11\ACLT-4001:409"
name_xp = "Autocad 2006 LT"
release_type = ""
edition_type = ""
path = strKeyPath
subKey = "SerialNumber"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key
if IsNull(key) then
else
strOffXPRUKey = key
form_input = "ms_keys^^^" & name_xp & "^^^" _
& strOffXPRUKey & "^^^" _
& release_type & "^^^" _
& edition_type & "^^^" _
& "autocad_2000" & "^^^"
entry form_input, comment, objTextFile, oAdd, oComment
strOffXPRUKey = ""
release_type = ""
edition_type = ""
form_input = ""
end if

''''''''''''''''''''''''''''''''
' Autocad 2008 LT
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Autodesk\AutoCAD LT\R13\ACLT-6001:409"
name_xp = "Autocad 2008 LT"
release_type = ""
edition_type = ""
path = strKeyPath
subKey = "SerialNumber"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key
if IsNull(key) then
else
strOffXPRUKey = key
form_input = "ms_keys^^^" & name_xp & "^^^" _
& strOffXPRUKey & "^^^" _
& release_type & "^^^" _
& edition_type & "^^^" _
& "autocad_2000" & "^^^"
entry form_input, comment, objTextFile, oAdd, oComment
strOffXPRUKey = ""
release_type = ""
edition_type = ""
form_input = ""
end if

''''''''''''''''''''''''''''''''
' Autocad 2008
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Autodesk\AutoCAD\R17.1\ACAD-6014:409"
name_xp = "Autocad 2008"
release_type = ""
edition_type = ""
path = strKeyPath
subKey = "SerialNumber"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key
if IsNull(key) then
else
strOffXPRUKey = key
form_input = "ms_keys^^^" & name_xp & "^^^" _
& strOffXPRUKey & "^^^" _
& release_type & "^^^" _
& edition_type & "^^^" _
& "autocad_2000" & "^^^"
entry form_input, comment, objTextFile, oAdd, oComment
strOffXPRUKey = ""
release_type = ""
edition_type = ""
form_input = ""
end if

''''''''''''''''''''''''''''''''
' Inventor 2008
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Autodesk\Inventor\RegistryVersion10.0"
name_xp = "Inventor 2008"
release_type = ""
edition_type = ""
path = strKeyPath
subKey = "SerialNumberPrefix"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key1
subKey = "SerialNumberSuffix"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key2
key = key1 & "-" & key2
if IsNull(key) or key = "-" then
else
strOffXPRUKey = key
form_input = "ms_keys^^^" & name_xp & "^^^" _
& strOffXPRUKey & "^^^" _
& release_type & "^^^" _
& edition_type & "^^^" _
& "autocad_2000" & "^^^"
entry form_input, comment, objTextFile, oAdd, oComment
strOffXPRUKey = ""
release_type = ""
edition_type = ""
form_input = ""
end if

''''''''''''''''''''''''''''''''
' SolidWorks 2008
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\SolidWorks\Security"
name_xp = "SolidWorks 2008"
release_type = ""
edition_type = ""
path = strKeyPath
subKey = "Serial Number"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key
if IsNull(key) then
else
strOffXPRUKey = key
form_input = "ms_keys^^^" & name_xp & "^^^" _
& strOffXPRUKey & "^^^" _
& release_type & "^^^" _
& edition_type & "^^^" _
& "SolidWorks" & "^^^"
entry form_input, comment, objTextFile, oAdd, oComment
strOffXPRUKey = ""
release_type = ""
edition_type = ""
form_input = ""
end if

''''''''''''''''''''''''''''''''
' MathCAD 2008
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Mathsoft\Mathcad 14\Install"
name_xp = "MathCAD 2008"
release_type = ""
edition_type = ""
path = strKeyPath
subKey = "SERIALNUMBER1"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key1
subKey = "SERIALNUMBER2"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key2
subKey = "SERIALNUMBER3"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key3
key = key1 & "-" & key2 & "-" & key3
if IsNull(key) or key = "--" then
else
strOffXPRUKey = key
form_input = "ms_keys^^^" & name_xp & "^^^" _
& strOffXPRUKey & "^^^" _
& release_type & "^^^" _
& edition_type & "^^^" _
& "MathCAD" & "^^^"
entry form_input, comment, objTextFile, oAdd, oComment
strOffXPRUKey = ""
release_type = ""
edition_type = ""
form_input = ""
end if
[/code]

_________________
Matt Feider
Internal: OS : Hardy Heron Ubuntu, apache, VM'ed
Auditing: 172 machines
LDAP: Active Directory

External: OS : Don't know as it is hosted
Auditing: 826 machines
LDAP: AD, but not hooked up as it is external


Top
 Profile  
Reply with quote  
PostPosted: Thu Jan 28, 2010 3:20 am 
Offline
Newbie

Joined: Thu Jan 28, 2010 3:08 am
Posts: 1
The below will collect the serial number for AutoCAD LT 2009

[code]
''''''''''''''''''''''''''''''''
' Autocad 2009 LT
''''''''''''''''''''''''''''''''
strKeyPath = "SOFTWARE\Autodesk\AutoCAD LT\R14\ACADLT-7001:409"
name_xp = "Autocad 2009 LT"
release_type = ""
edition_type = ""
path = strKeyPath
subKey = "SerialNumber"
oReg.GetStringValue HKEY_LOCAL_MACHINE, Path, subKey, key
if IsNull(key) then
else
strOffXPRUKey = key
form_input = "ms_keys^^^" & name_xp & "^^^" _
& strOffXPRUKey & "^^^" _
& release_type & "^^^" _
& edition_type & "^^^" _
& "autocad_2000" & "^^^"
entry form_input, comment, objTextFile, oAdd, oComment
strOffXPRUKey = ""
release_type = ""
edition_type = ""
form_input = ""
end if

[/code]


Top
 Profile  
Reply with quote  
PostPosted: Wed Sep 22, 2010 9:45 pm 
Offline
Newbie

Joined: Wed Sep 22, 2010 9:33 pm
Posts: 2
Hi
Thanx for this..
regards


Top
 Profile  
Reply with quote  
PostPosted: Fri Mar 11, 2011 5:55 pm 
Offline
Newbie

Joined: Fri Mar 11, 2011 5:36 pm
Posts: 1
Could someone post a script for AutoCad 2007 LT or i have to look for this path only "strKeyPath ="?


Top
 Profile  
Reply with quote  
Display posts from previous:  Sort by  
Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 4 posts ] 

All times are UTC + 10 hours


Who is online

Users browsing this forum: No registered users and 2 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group