localhost
admin
AM14YqRs4EVZZ4=aME
1100
%CONNECTION_REMOTE_IP%
Sub Main
oServer = CreateObject("SFTPCOMInterface.CIServer")
oServer.Connect( strHostAddress,iPort,strAdminUserName,strAdminPassword )
oSites = oServer.Sites()
End Sub
Sub Main
oSite = oSites.Item(iSite)
End Sub
Sub Main
oSite.AddIPAccessRule sRemoteIP,isAllowEntry, 0
End Sub
Sub Main
oServer.Close()
End Sub