Код VBscript для отслеживания запуска скрипта на компьютерах в сети
Здравствуйте, помогите пожалуйста с VBS: мне нужен код, который при запуске себя из скрипта создавал в сетевой папке файл с названием компьютера, на котором он был запущен. А в случае, если такой файл уже существует, завершал работу всего скрипта.
|
Примерно так:
Код:
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
|
а не могли бы вы помочь объединить ваш код с приложенным скриптом добавления адресной LDAP книги в почтовый клиент Outlook?
|
Roys, в каком смысле — объединить? Каким образом Вы видите между ними связь?
|
Время: 23:57.
© OSzone.net 2001-
