Sub Main()
	Dim objFile, File
	Dim objClip
	Dim username, password, filename
	
	Set objFile = CreateObject("Scripting.FileSystemObject")
	filename = xsh.Dialog.Prompt ("Filename with full path", "Filename", "", 0)
	'Set File = objFile.OpenTextFile("d:\test.txt", 1)
	Set File = objFile.OpenTextFile(filename, 1)

	username = xsh.Dialog.Prompt ("Username", "User name", "", 0)
    password = xsh.Dialog.Prompt ("Password", "Password", "", 1)

	
	Do Until File.AtEndOfStream
		hostname = File.Readline
		'xsh.Screen.Send(hostname + vbCr)
		xsh.Session.Open "ssh://"+username+":"+password+"@"  + hostname + vbCr
		xsh.Session.Sleep(50)
	Loop	

	File.Close
End Sub