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

Windows Audit Issues
https://www.open-audit.org/phpBB3/viewtopic.php?f=5&t=4427
Page 2 of 2

Author:  Mark [ Sun Mar 06, 2011 12:24 am ]
Post subject:  Re: Windows Audit Issues

Find some VBScript code on the net to retrieve the keys you need and post it here.
It just needs to be added to the audit script and output as per the other keys do.
If you can't find what you need - what is the software that you need the keys for called ?

Author:  djmohr [ Sun Mar 06, 2011 12:51 am ]
Post subject:  Re: Windows Audit Issues

@ mark

I need it for AutoCAD LT 2010, AutoCAD LT 2011 and AutoCAD 2011 Civil 3D. All these apps are provided by Autodesk.

Author:  Mark [ Mon Mar 07, 2011 9:47 am ]
Post subject:  Re: Windows Audit Issues

You will find the code for those (2010 at least) in the forums.
Insert it into your audit script.
I have now merged them all (as well as AutoCAD 2011) into the audit script for OAv2.

An easy way to do it yourself is to inspect the registry on the machines in question, as per the code in the audit script. Just change the key locations and you should be fine.

HINT - 2011 AutoCAD key
strKeyPath = "SOFTWARE\Autodesk\AutoCAD\R18.1\ACAD-9001:409"
subKey = "SerialNumber"

Author:  djmohr [ Mon Mar 07, 2011 4:11 pm ]
Post subject:  Re: Windows Audit Issues

Awesome, I'll have a look.

Author:  djmohr [ Mon Mar 07, 2011 9:57 pm ]
Post subject:  Re: Windows Audit Issues

nice one Mark

I have added the code to my audit.vbs and it seems to be running fine, it just won't display the keys though, is there something else that needs changing?

Author:  djmohr [ Mon Mar 07, 2011 9:59 pm ]
Post subject:  Re: Windows Audit Issues

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

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