Linux

ssh router1@[IP Address]
su - root     #prompted for PW.
su - secadmin2    #We don't get prompted for secadmin2 password :)
cd .ssh
cp authorized_keys authorized_keys_bkup
cat /app2/.ssh/Vkey >> authorized_keys
exit
exit
cd .ssh
cp Vkey Vkey.orig
cat Vkey >> authorized_keys
rm /app2/.ssh/Vkey
exit

# $language = "VBScript"
# $interface = "1.0"
'-------------------------------------------------------------------------------
' BIRDBOYEE
'-------------------------------------------------------------------------------
Sub Main
'------------------------------------------------------------
Dim ObjFSO, InitFSO, Wscript
sDir = "D:\Documents and Settings\BIRDBOYEE"
Set ObjFSO = CreateObject("UserAccounts.CommonDialog")
ObjFSO.Filter = "Text Files|*.txt|All Files|*.*"
ObjFSO.FilterIndex = 1
ObjFSO.InitialDir = sDir
InitFSO = ObjFSO.ShowOpen

If InitFSO = False Then 
  Exit Sub
End If
'-----------------------------------------------------------
Const ForReading = 1

  Dim fso, file, str
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set file = fso.OpenTextFile(ObjFSO.FileName, ForReading, False)

  crt.Screen.Synchronous = True
   crt.Screen.Send "grep rtr /etc/hosts" & vbCr
   crt.Screen.WaitForString ">"
'-----------------------------------------------------------   
 Do While file.AtEndOfStream <> True
  str = file.Readline
 
  crt.Screen.Send "ssh root@" & str & vbCr
  crt.Screen.WaitForString ">"
   crt.Screen.Send "su - root" & vbCr 
  crt.Screen.WaitForString ">"
    crt.Screen.Send "password" & vbCr    '#Manually enter password here.
  crt.Screen.WaitForString ">"
    crt.Screen.Send "su - secadmin2" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "cd .ssh" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "cp authorized_keys authorized_keys_bkup" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "cat /app2/.ssh/Vkey >> authorized_keys" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "exit" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "exit" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "cd .ssh" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "cp Vkey Vkey.orig" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "cat Vkey >> authorized_keys" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "rm /app2/.ssh/Vkey" & vbCr
  crt.Screen.WaitForString ">"
    crt.Screen.Send "exit" & vbCr
  
   Loop
'----------------------------------------------------------
 crt.Screen.Synchronous = False
'----------------------------------------------------------
End Sub