Ansh-spb

Const ForReading = 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("\\ServerShara\1.txt", ForReading)

strText1 = objTextFile.ReadLine
strUrl1 = objTextFile.ReadLine

objTextFile.Close