oh, this is what I added to the audit.vbs:
'''''''''''''''''''''''''''''''' ' Autocad 2010 LT '''''''''''''''''''''''''''''''' strKeyPath = "SOFTWARE\Autodesk\AutoCAD LT\R15\ACADLT-8001:409" name_xp = "Autocad 2010 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 2011 LT '''''''''''''''''''''''''''''''' strKeyPath = "SOFTWARE\Autodesk\AutoCAD LT\R16\ACADLT-9001:409" name_xp = "Autocad 2011 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 Civil 3D '''''''''''''''''''''''''''''''' strKeyPath = "SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9000:409" name_xp = "Autocad Civil 3D" 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
Hoping it's right...
|