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
|