Open-AudIT

What's on your network?
It is currently Wed Jan 17, 2018 11:24 pm

All times are UTC + 10 hours




Forum locked This topic is locked, you cannot edit posts or make further replies.  [ 1 post ] 
Author Message
PostPosted: Fri May 28, 2010 6:55 am 
Offline
Newbie

Joined: Fri May 07, 2010 8:46 am
Posts: 12
I just wanted to post this incase anyone is looking for this solution, since I couldn't find any with a search of this forum. This is an addon to the FAQ located here: viewtopic.php?f=6&t=3095

It does not list that a multistring registry value can be read. Here is how to do it.
*Remember GetMultiStringValue returns an array*

strKeyPath is our base key folder.
szEngineVer is the registry key we want.
display_name is what we will register the key's label as in our database.
oReg.GetStringValue... pulls the string from the registry. If you are pulling a different data value (IE DWORD, Binary) then you will need to tweak this.
Strings = GetSTRINGValue
MultiString = GetMultiStringValue
Dword = GetDWORDValue
Binary = GetBINARYValue

This is how to read the name of a Sysprep image:
Code:
 'Reg-Keys: Add CPR Image to the Software Register
 strKeyPath = "SYSTEM\Setup"
 strValueName = "OEMDuplicatorString"
 display_name = "CPR Image"
 oReg.GetMultiStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,regArray
 regValue = regArray(0)
 form_input = "software^^^" & display_name       & "^^^" _
                   & regValue       & "^^^" _
                   & ""                 & "^^^" _
                   & ""                 & "^^^" _
                   & OSInstall          & "^^^" _
                   & "Company^^^^^^^^^^^^^^^^^^" _
                   & ""                 & "^^^" _
                   & ""                 & "^^^" _
                   & "http://www.company.com"   & "^^^ "
 If regValue <> "" Then
   entry form_input,comment,objTextFile,oAdd,oComment
 End If
 form_input = ""
 regValue = ""


I know that the desired value is in regArray(0). You can output the values of regArray to find its position.

I added a if statement to not collect anything if there is no value since collecting null will just display an empty field and give me more empty fluff.
Replace:
Code:
 If regValue <> "" Then
   entry form_input,comment,objTextFile,oAdd,oComment
 End If

With this:
Code:
entry form_input,comment,objTextFile,oAdd,oComment


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.  [ 1 post ] 

All times are UTC + 10 hours


Who is online

Users browsing this forum: No registered users and 4 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