Append a line to a text file with partial ComputerName (VBScript) 1

[keynoto]

I'm trying to append a line in a file (i.e. "c:\test.txt" ) to insert the last 4 characters of the computename. For example if my computername is COMPUTER1234, I would like the script to read the last 4 characters, "1234" and insert it on a line in the text file that reads "NNN = 1234"
Any ideas, thanks?

 

[KyleS]

Try this thread


Tek-tips



Kyle

 

[markdmac]

Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WSHNetwork = Createobject("Wscript.Network")
strComputer = WSHNetwork.Computername

Set objFile = objFSO.OpenTextFile("filename.txt", ForAppending)

objFile.WriteLine "NNN=" & Right(strComputer,4)
objFile.Close

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[keynoto]

Mark,

Thanks for the reply. This is exactly what I was looking for. You're great man!

Thanks again.