Some file parsing and batch file stuff

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Some file parsing and batch file stuff

Logged in as: Guest

arrSession:exec spGetSession 2,16,31557

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Some file parsing and batch file stuff
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Some file parsing and batch file stuff - 2/26/2006 7:18:45 PM

mreider

Posts: 1
Score: 0
Joined: 2/26/2006
Status: offline

Thought I'd share this one...

I have a batch file that does md5 encoding like this md5encoder.bat bunnyrabbit55
it returns the code like this 'bunnyrabbit55:fsad09swnksdf0sdi2sdfsdf84nsd'

I also have an xml file of users with format like this <users password="bunnyrabbit55" name="jim">

My goal was to parse the xml file and apply the md5encoder for each user. It creates a new xml file called users.enc.xml

Here it is!

XMLFileAddress = "c:\users.xml"
OutputFileAddress= "c:\users.enc.xml"
Md5Address="cmd c:\MD5Encoder.bat"

'the variable strContents
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objFile,objOtherFile
Set objFile = objFSO.OpenTextFile(XMLFileAddress)
Dim strContents
strContents = objFile.ReadAll
'Clean up...
objFile.Close
Set objFile = Nothing
'Create a regular expression object
Dim objRegExp
Set objRegExp = New RegExp
'Set our pattern
objRegExp.Pattern = "password=""[^""]+"
objRegExp.IgnoreCase = True
objRegExp.Global = True
'Get the matches from the contents of our XML file, strContents
Dim objMatches,otherobj
Set objMatches = objRegExp.Execute(strContents)
Set oShell = CreateObject("WScript.Shell")
If objMatches.Count > 0 then
 For Each x in objMatches
     pword=Mid(x.Value, 11, Len(x.Value))
   commandermd5= Md5address & " " & pword
   Set commanderProcess = oshell.Exec(commandermd5)
   Do Until commanderProcess.StdOut.AtEndOfStream
    stuffme = commanderProcess.StdOut.ReadLine()
   Loop
   howLong = Len(pword)+2
   objRegExp.Pattern = pword & ":(.*)"
   Set otherobj= objRegExp.Execute(stuffme)
   if otherobj.Count = 0 then
   end if
   newpword = Mid(otherobj(0).value, howLong, Len(otherobj(0).value))
   strContents = Replace(strContents,pword,newpword)  
 Next
Else
 WScript.Echo "Parsing Error"
End If
strContents = Replace(strContents,"false","true")
Set objOtherFile = objFSO.CreateTextFile(OutputFileAddress, True)
objOtherFile.WriteLine(strContents)
objOtherFile.Close
WScript.Echo("a new xml file was created at " & OutputFileAddress)
Set objFSO = Nothing
Set objRegExp = Nothing
Set objOtherFile = Nothing

Post #: 1

RE: Some file parsing and batch file stuff - 2/27/2006 3:44:08 AM

ebgreen

Posts: 4613
Score: 31
Joined: 7/12/2005
Status: offline

Was there some reason why you did not use the XML parsing abilities that are builtin to windows?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mreider)

Post #: 2

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Some file parsing and batch file stuff

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts