Спасибо!
Исключил проверку, налабал по своему. Проверьте плз, сойдёть ли, вроде работает.
Код:
ServerShare = "\\Server\Share"
UserName = "DC\user"
Password = "123456"
Set NetworkObject = CreateObject("WScript.Network")
NetworkObject.MapNetworkDrive "", ServerShare, False, UserName, Password
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.OpenTextFile(ServerShare & "\Test.log", 8, True)
f.WriteLine Now
f.Close
NetworkObject.RemoveNetworkDrive ServerShare, True, False
скрипт записывает дату/время в файл расположенный в сетевой папке
