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/ |