Open-AudIT

What's on your network?
It is currently Mon Jan 22, 2018 10:16 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

_________________
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
       


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:  
cron
Powered by phpBB® Forum Software © phpBB Group