Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 363
  • Last Modified:

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

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
Lorrec
Asked:
Lorrec
  • 3
  • 2
1 Solution
 
RobSampsonCommented:
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
 
LorrecAuthor Commented:
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
 
LorrecAuthor Commented:
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
 
LorrecAuthor Commented:
Thank you for the assistance.
0
 
RobSampsonCommented:
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: ZipGrep

ZipGrep is a utility that can list and search zip (.war, .ear, .jar, etc) archives for text patterns, without the need to extract the archive's contents.

One of a set of tools we're offering as a way to say thank you for being a part of the community.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now