Solved

Script that reads information from a text file and outputs to another txt file

Posted on 2008-06-23
5
313 Views
Last Modified: 2011-10-19
Hello everyone. I am looking for some assistance with a script. I am using the cscsniff.exe to locate what shares users have their offline files on. My plan is to run a .bat file and output the information to c:\temp on the local system. Once I have run that I want to take the information from the .txt file and output it into another .txt file with all of the information so  that I can search.

I cannot figure out how to get it to pull the information from the txt file. The only items I that I want written to the final output file are the system name and the share information.

For example, I would like for my final log to have the below information.

TestPC1
\\usatl\test$
\\usatl\user1$

Is this possible?

offline.txt
0
Comment
Question by:Lorrec
  • 3
  • 2
5 Comments
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
ID: 21850725
Try this.

Regards,

Rob.
If WScript.Arguments.Count > 0 Then

	Set arrFiles = WScript.Arguments

Else

	arrFiles = Array( _

		"Offline1.txt", _

		"Offline2.txt" _

		)

End If
 

strOutputFile = "AllOfflines.txt"
 

Set objFSO = CreateObject("Scripting.FileSystemObject")

Const intForReading = 1

Const intForWriting = 2

Const intForAppending = 8

For Each strFile In arrFiles

	MsgBox strFile

	Set objFile = objFSO.OpenTextFile(strFile, intForReading, False)

	boolGetShares = False

	While Not objFile.AtEndOfStream

		strLine = objFile.ReadLine

		If Left(strLine, 18) = "Status of CSC for " Then

			strComputer = Mid(strLine, 19)

			strComputer = Left(strComputer, InStr(strComputer, " ") - 1)

			strDetails = strDetails & VbCrLf & VbCrLf & strComputer

		End If

		If Left(strLine, 5) = "Share" And InStr(strLine, "Offline?") > 0 Then

			boolGetShares = True

		ElseIf boolGetShares = True And Left(strLine, 7) = "SUMMARY" Then

			boolGetShares = False

		ElseIf boolGetShares = True Then

			strDetails = strDetails & VbCrLf & Trim(Left(strLine, InStr(strLine, "0x") - 2))

		End If

	Wend

	objFile.Close

	Set objFile = Nothing

Next
 

Set objOutputFile = objFSO.OpenTextFile(strOutputFile, intForAppending, True)

objOutputFile.Write strDetails

MsgBox strDetails

objOutputFile.Close

Set objOutputFile = Nothing
 

MsgBox "Done. Please see " & strOutputFile

Open in new window

0
 

Author Comment

by:Lorrec
ID: 21856893
Thank you for the response.

I am getting an error message when I run it. It cannot locate a file.

I assume that I can set my strOutputFile to anything such as c:\temp\AllOfflines.txt. How do I tell it where Offline1.txt is located at?

0
 

Author Comment

by:Lorrec
ID: 21857086
I forgot to mention that my plan was to deploy this through SMS. The offline1.txt will be in the same location on each system. How would I set it up to only look at the offline1.txt at a standard location rather reading multiple ones.

Thanks again for the help.
0
 

Author Closing Comment

by:Lorrec
ID: 31469901
Thank you for the assistance.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 21860631
Hi, thanks for the grade. Did you manage to answer your questions? Basically, if you do not define a specific path, it looks by default to the same folder that the script file is located, that it, the current directory.  If you want to use specific named paths, just place the full path there.

For example:
      arrFiles = Array( _
            "C:\Temp\Offline1.txt", _
            "C:\Windows\Temp\Offline2.txt" _
            )

strOutputFile = "\\server\Share\AllOfflines.txt"


Regards,

Rob.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Hello again, all.  For those of you that have been following along, you'll know that this is my third article on this topic (though it is not Part III).  This article is sort of remedial, and probably the topic with which I should have started the s…
Well hello again!  Glad to see you've made it this far without giving up.  In this, the fourth installment of my popular series, I'm going to cover functions and subroutines, what they are, and why they are useful.  Just in case you stumbled onto th…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
This is a video describing the growing solar energy use in Utah. This is a topic that greatly interests me and so I decided to produce a video about it.

932 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now