Need some help 1

[North323]

I am not a vb scripter by no means. I have a text file of IP addresses and I would like to append this file to say something like:

We should block 192.168.1.1 Please do this now.

The text file has the IP addresses like so:
192.168.1.1
192.168.1.2

 

[PHV]

What have you tried so far and where in your code are you stuck ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[North323]

i have tried search google for examples. i have not started any code. i have no idea where to start.

 

[HarleyQuinn]

Hmm, go on then, I'm bored at work and in a generous mood so here's a script that will do the job on your sample data (assuming you want all of the IP addresses in the textfile)...

Dim MyString

With CreateObject("VBScript.RegExp")
.MultiLine = True
.Global = True
.IgnoreCase = True
.Pattern = "(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})"
MyString = .Replace(CreateObject("Scripting.FileSystemObject").OpenTextFile("MyFile", 1, False).ReadAll, "We should block $1 Please do this now.")
End With

CreateObject("Scripting.FileSystemObject").OpenTextFile("MyFile2", 2, True).Write MyString

wscript.echo "Done!"

That will append the required text to all of the IP addresses in the file (replace "MyFile" with the file path) and output to another file (replace "MyFile" with the file path).

If you need anything clarifying please post back.

Regards

Andy
---------------------------------
Zebracorn: 50% Zebra, 50% Unicorn = 100% Real.

http://lessthandot.com

 

[North323]

thank you