Registrations to Open-AudIT forums are now closed. To ask any new questions please visit Opmantek Community Questions.

Open-AudIT

What's on your network?
It is currently Fri Mar 29, 2024 7:03 am

All times are UTC + 10 hours




Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 21 posts ]  Go to page Previous  1, 2
Author Message
 Post subject: Re: Windows Audit Issues
PostPosted: Sun Mar 06, 2011 12:24 am 
Offline
Site Admin
User avatar

Joined: Mon Jun 07, 2004 11:48 am
Posts: 1964
Location: Brisbane, Australia
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 ?

_________________
Support and Development hours available from [url=https://opmantek.com]Opmantek[/url].
Please consider a purchase to help make Open-AudIT better for everyone.


Top
 Profile  
Reply with quote  
 Post subject: Re: Windows Audit Issues
PostPosted: Sun Mar 06, 2011 12:51 am 
Offline
Newbie

Joined: Wed Feb 23, 2011 4:06 pm
Posts: 14
@ mark

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


Top
 Profile  
Reply with quote  
 Post subject: Re: Windows Audit Issues
PostPosted: Mon Mar 07, 2011 9:47 am 
Offline
Site Admin
User avatar

Joined: Mon Jun 07, 2004 11:48 am
Posts: 1964
Location: Brisbane, Australia
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"

_________________
Support and Development hours available from [url=https://opmantek.com]Opmantek[/url].
Please consider a purchase to help make Open-AudIT better for everyone.


Top
 Profile  
Reply with quote  
 Post subject: Re: Windows Audit Issues
PostPosted: Mon Mar 07, 2011 4:11 pm 
Offline
Newbie

Joined: Wed Feb 23, 2011 4:06 pm
Posts: 14
Awesome, I'll have a look.


Top
 Profile  
Reply with quote  
 Post subject: Re: Windows Audit Issues
PostPosted: Mon Mar 07, 2011 9:57 pm 
Offline
Newbie

Joined: Wed Feb 23, 2011 4:06 pm
Posts: 14
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?


Top
 Profile  
Reply with quote  
 Post subject: Re: Windows Audit Issues
PostPosted: Mon Mar 07, 2011 9:59 pm 
Offline
Newbie

Joined: Wed Feb 23, 2011 4:06 pm
Posts: 14
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...


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.  [ 21 posts ]  Go to page Previous  1, 2

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