mirror of
https://github.com/jonbranan/globalscape.git
synced 2024-10-19 21:47:05 -05:00
34 lines
1.1 KiB
Plaintext
34 lines
1.1 KiB
Plaintext
'
|
|
Dim fso
|
|
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
|
|
Set f = fso.OpenTextFile("C:\Users\fischerc\Desktop\output.csv", 2)
|
|
'
|
|
Set SFTPServer = WScript.CreateObject("SFTPCOMInterface.CIServer")
|
|
txtServer = "localhost"
|
|
txtPort = "1100"
|
|
txtUserName = "sig"
|
|
txtPassword = "Thund3r5truck!"
|
|
|
|
' On Error Resume Next
|
|
SFTPServer.Connect txtServer, txtPort, txtUserName, txtPassword
|
|
If Err.Number <> 0 Then
|
|
WScript.Echo "Error connecting to '" & txtServer & ":" & txtPort & "' -- " & err.Description & " [" & CStr(err.Number) & "]", vbInformation, "Error"
|
|
WScript.Quite(255)
|
|
Else
|
|
WScript.Echo "Connected to " & txtServer
|
|
End If
|
|
set Sites=SFTPServer.Sites
|
|
|
|
For i = 0 to SFTPServer.Sites.Count-1
|
|
set theSite=Sites.Item(i)
|
|
SFTPhrase = theSite.SFTPKeyPassphrase
|
|
SSLPassphrase = theSite.GetPassPhrase()
|
|
f.WriteLine theSite.Name & "," & "SFTP Passphrase," & SFTPhrase
|
|
f.WriteLine theSite.Name & "," & "SSL Passphrase," & SSLPassphrase
|
|
Next
|
|
|
|
Set theSite = nothing
|
|
Set SFTPServer = nothing
|
|
SET WriteStuff = NOTHING
|
|
SET myFSO = NOTHING
|
|
f.Close |