Solved

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

Posted on 2008-06-23
5
340 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 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

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

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…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you! In this Micro Tutorial, you'll learn yo…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.

617 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