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

Iska · Отправлено: **11:15, 28-11-2016** | #2

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

Код:

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 · Отправлено: **16:19, 28-11-2016** | #3

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

Roys · Отправлено: **16:22, 28-11-2016** | #4

сам скрипт

Iska · Отправлено: **07:07, 02-12-2016** | #5

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