Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

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

Posted on 2008-06-23
5
Medium Priority
?
347 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
  • 2
5 Comments
 
LVL 65

Accepted Solution

by:
RobSampson earned 2000 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

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

Welcome back!  My apologies for taking so long to write part two of this series; it's been a long time coming!  As I promised in Part 1, this article will focus on how to locate those elusive AD properties that you are searching for.  Why is this us…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
In this video, Percona Solution Engineer Dimitri Vanoverbeke discusses why you want to use at least three nodes in a database cluster. To discuss how Percona Consulting can help with your design and architecture needs for your database and infras…
Suggested Courses

722 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