mirror of
https://github.com/helpsystems/EFTScriptSamples.git
synced 2024-10-20 01:57:05 -05:00
61 lines
2.2 KiB
Plaintext
61 lines
2.2 KiB
Plaintext
Const ForAppending = 8, AutobanIPRule = 0, ManualIPRule = 1
|
|
Const txtMyOutputFileName = "TESTOut.csv" 'Output file CSV File can be opened with MS Excel
|
|
Dim SFTPServer, CRLF, txtServer, txtPort, txtAdminUserName, txtPassword, SiteName, myFSO, WriteStuff, selectedSite, i, Key, Key2
|
|
|
|
Set SFTPServer = CreateObject("SFTPCOMInterface.CIServer")
|
|
|
|
CRLF = Chr(13) & Chr(10) 'Use the built-in vbCrLf constant instead!
|
|
|
|
'***************************************************
|
|
'***Modify the following to match your EFT Server***
|
|
'***************************************************
|
|
txtServer = "192.168.102.28" 'input server ip or localhost
|
|
txtPort = "1100" 'input port used
|
|
txtAdminUserName = "insight" 'input server admin credentials - username
|
|
txtPassword = "a" 'input server admin credentials - password
|
|
SiteName = LCase("MySite") 'input sitename in the ""
|
|
|
|
If Not Connect(txtServer, txtPort, txtAdminUserName, txtPassword) Then WScript.Quit 0
|
|
|
|
Set myFSO = CreateObject("Scripting.FileSystemObject")
|
|
Set WriteStuff = myFSO.OpenTextFile(txtMyOutputFileName, ForAppending, True)
|
|
|
|
Set selectedSite = Nothing
|
|
|
|
'Move through sites to find the one you're looking for
|
|
For i = 0 To SFTPServer.Sites.Count - 1
|
|
With SFTPServer.Sites.Item(i)
|
|
If LCase(.Name) = SiteName Then
|
|
count = 1
|
|
For Each Key In .GetIPAccessRules
|
|
Select Case Key.Type
|
|
Case ManualIPRule
|
|
WriteStuff.WriteLine Join(Array(Key.Address, Key.Allow, count)
|
|
End Select
|
|
Next
|
|
Else 'LCase(SFTPServer.Sites(i).Name) <> SiteName
|
|
'WriteStuff.WriteLine "Manual Added," & key1.Address & "," & key1.added & ",,,,"
|
|
End If 'Why write "Manual Added, ..." to the .csv file here?
|
|
End With 'The Else branch is executed when the current site isn't
|
|
Next 'the one you're looking for, so why have an Else branch?
|
|
|
|
WriteStuff.Close
|
|
Set WriteStuff = Nothing
|
|
Set myFSO = Nothing
|
|
|
|
SFTPServer.Close
|
|
Set SFTPServer = Nothing
|
|
|
|
MsgBox "Banned IPs can be found in the file """ & txtMyOutputFileName & """", vbInformation
|
|
|
|
Function Connect(serverOrIpAddress, port, username, password)
|
|
On Error Resume Next
|
|
SFTPServer.Connect serverOrIpAddress, port, username, password
|
|
Connect = (Err.Number = 0)
|
|
|
|
If Not Connect Then
|
|
MsgBox "Error connecting to '" & serverOrIpAddress & ":" & port & "' -- " & _
|
|
Err.Description & " [" & CStr(Err.Number) & "]", vbInformation, "Error"
|
|
End If
|
|
End Function
|