Листинг 2: Сценарий мониторинга для выполнения регистрации, модифицированный для работы исключительно в соответствии с соглашением UNC.

' Модификация для выполнения исключительно в соответствии с соглашением 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