[Iska]

Код:

Option Explicit

Dim strShare
Dim strUserName
Dim strPassword

Dim strPath2File

Dim strFullPath2File


strShare     = "\\Server\Share"
strUserName  = "Server\UserName" ' или «Domain\UserName»
strPassword  = "password"

strPath2File = "\001\0001.txt"


With WScript.CreateObject("WScript.Network")
	.MapNetworkDrive "", strShare, False, strUserName, strPassword
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		strFullPath2File = .BuildPath(strShare, strPath2File)
		
		If .FileExists(strFullPath2File) Then
			With .OpenTextFile(strFullPath2File)
				WScript.Echo .ReadAll()
				.Close
			End With
		Else
			WScript.Echo "Can't find file [" & strFullPath2File & "]."
		End If
	End With
	
	.RemoveNetworkDrive strShare
End With

WScript.Quit 0