Средства разработки приложений


Листинг 2: Сценарий мониторинга


' Модификация для выполнения исключительно в соответствии с соглашением UNC Set oShell = Createobject("wscript.shell") On Error Resume Next RunCmd = oShell.Run("\\myserver\ myshare\mylogonscript.vbs", 1, True) Err.clear

On Error GoTo 0 End If Next If SubnetMatch Then aMatchList = split(matchlist, ",") End If End Function




Начало  Назад  Вперед



Книжный магазин