Код VBscript для отслеживания запуска скрипта на компьютерах в сети

[Roys]

Здравствуйте, помогите пожалуйста с VBS: мне нужен код, который при запуске себя из скрипта создавал в сетевой папке файл с названием компьютера, на котором он был запущен. А в случае, если такой файл уже существует, завершал работу всего скрипта.

[Iska]

Примерно так:
Option Explicit

Dim strDestFileTemplate
Dim strDestFile


strDestFileTemplate = "\\Server\Share$\<MachineName>.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
strDestFile = Replace(strDestFileTemplate, "<MachineName>", WScript.CreateObject("WScript.Network").ComputerName)

If .FolderExists(.GetParentFolderName(strDestFile)) Then
If Not .FileExists(strDestFile) Then
.CreateTextFile(strDestFile).Close
Else
WScript.Quit 2
End If
Else
'WScript.Echo "Can't find destination folder [" & .GetParentFolderName(strDestFile) & "]."
WScript.Quit 1
End If
End With

WScript.Quit 0

[Roys]

а не могли бы вы помочь объединить ваш код с приложенным скриптом добавления адресной LDAP книги в почтовый клиент Outlook?

[Roys]

сам скрипт

[Iska]

Roys, в каком смысле — объединить? Каким образом Вы видите между ними связь?