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