Open-AudIT
https://www.open-audit.org/phpBB3/

Additional Key collection
https://www.open-audit.org/phpBB3/viewtopic.php?f=9&t=2915
Page 1 of 1

Author:  mfeider67 [ Fri Aug 01, 2008 1:18 am ]
Post subject:  Additional Key collection

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]

Author:  jimgcgl [ Thu Jan 28, 2010 3:20 am ]
Post subject:  Re: Additional Key collection

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]

Author:  valerie [ Wed Sep 22, 2010 9:45 pm ]
Post subject:  Re: Additional Key collection

Hi
Thanx for this..
regards

Author:  lowmmm [ Fri Mar 11, 2011 5:55 pm ]
Post subject:  Re: Additional Key collection

Could someone post a script for AutoCad 2007 LT or i have to look for this path only "strKeyPath ="?

Page 1 of 1 All times are UTC + 10 hours
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/