LePiaf

I made a small mod to your ssh.vbs script to enable it to accept custom ports. Did it quick and dirty could be done a bit better but works.

Tim

‘ Region Description
‘
‘ Name: ssh.vbs
‘ Author: Robert Dunham (Nilpo)
‘ Website: http://www.nilpo.com
‘ Description: This script is for use with a custom SSH protocol for Putty.
‘
‘ EndRegion

strSSH = “C:\ssh\putty.exe”
strPort = “22″

Select Case WScript.Arguments.Count
Case 0
WScript.Echo “No hostname provided. Aborting SSH operation.”
WScript.Quit
Case Else
Set colArgs = WScript.Arguments
For i = 0 To WScript.Arguments.Count - 1
strHost = ” ” & WScript.Arguments.Item(i)
Next
End Select

Set WshShell = CreateObject(”WScript.Shell”)
strHost = CleanHostname(strHost)
WshShell.Run “”"” & strSSH & “”" -P ” & strPort & ” “”" & strHost & “”"”
WScript.Quit

Function CleanHostname(strHost)
strHost = Trim(strHost)
‘Remove protocol if it was passed
If InStr(strHost, “ssh://”) = 1 Then
strHost = Right(strHost, Len(strHost) - 6)
End If
‘Remove trailing slash if present
If InStrRev(strHost, “/”) = Len(strHost) Then
strHost = Left(strHost, Len(strHost) - 1)
End If
If InStrRev(strHost, “:”) > 0 Then
strPort = right(strHost, Len(strHost) - InStrRev(strHost, “:”))
strHost = Left(strHost, InStrRev(strHost, “:”) - 1)
End If
‘Return cleaned hostname
CleanHostname = strHost
End Function

Thanks so much for your help. The insight you gave into the nature of the issue along with the suggestions and ultimately a packaged software solution was exactly what I was looking for. Keep up the great work!

Kyle