Craig.

I have installed this SSH Protocol and it works fine in Google Chrome and Opera but it doesn’t works in Firefox.

It gives error as”Unable to open connection to ssh Host does not exist”

Any suggestion or clue, what could be wrong.

Thank you
Manish

I have updated the script again as I also now required rdp urls to work. Also should be easy to add your own if needed.

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

strSSH = “C:\URL_Helper\putty.exe”
strRDP = “mstsc /v:”
strPort = “”
strApp = “”

Select Case WScript.Arguments.Count
Case 0
WScript.Echo “No hostname provided. Aborting 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 myRegExp = New RegExp
myRegExp.IgnoreCase = True
myRegExp.Global = True
myRegExp.Pattern = “(\w+)\://((?:\d{1,3}\.){3}\d{1,3})(?:\:(\d+))?”

Set myMatches = myRegExp.Execute(strHost)

If myMatches.count = 1 Then
strApp = lcase(myMatches(0).SubMatches(0))
strHost = myMatches(0).SubMatches(1)
strPort = myMatches(0).SubMatches(2)

Set WshShell = CreateObject(”WScript.Shell”)

Select Case strApp
Case “ssh”
If strPort = “” Then
strPort = “22″
End If
WshShell.Run “”"” & strSSH & “”" -P ” & strPort & ” “”" & strHost & “”"”
Case “rdp”
If strPort “” Then
strPort = “:” & strPort
End If
WshShell.Run strRDP & strHost & strPort
Case Else
WScript.Echo “Invalid application ” & strApp
WScript.Quit
End Select
End If
_____________________________________________________
For each protocol you also need the registry updated. Save the below in a .reg file and install.

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\SSH]
@=”URL:SSH Protocol”
“URL Protocol”=”"

[HKEY_CLASSES_ROOT\SSH\shell]

[HKEY_CLASSES_ROOT\SSH\shell\open]

[HKEY_CLASSES_ROOT\SSH\shell\open\command]
@=”wscript.exe C:\\URL_Helper\\helper.vbs %1″

[HKEY_CLASSES_ROOT\RDP]
@=”URL:RDP Protocol”
“URL Protocol”=”"

[HKEY_CLASSES_ROOT\RDP\shell]

[HKEY_CLASSES_ROOT\RDP\shell\open]

[HKEY_CLASSES_ROOT\RDP\shell\open\command]
@=”wscript.exe C:\\URL_Helper\\helper.vbs %1″

I am trying to use Reflection 12 instead of putty for the default client and it requires a /w switch. I’ve tried a number of places in the vsb script to add the switch, but just cannot seem to find the right spot.

Here are some of my tries.
strSSH = “C:\Program Files\Reflection\r2win.exe /w”
or
WshShell.Run “”"” & strSSH & “/w” & “”" “”" & CleanHostname(strHost) & “”"”

The above change causes the return of the Error “the system cannot find the file specified”

Once I click “okay” to the error message, Relections starts up without any connection info.

If I don’t have the /w switch anywhere then I get a settings file not found message. This is the same message that I get when I telnet without the /w switch. To fix the telnet I was able to put the switch in the URL: telnet protocol in my Windows registered file types.

Thanks in advance for any help
Joe

So you’re saying that you need this script to not only connect with Putty, but also to automate part of that connection? If I’m understanding you correctly, you need this script to send commands to Putty to connect to a remote device after the initial connection is made.

Thank you.
Chuck

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