能不能做出直接自动执行的脚本

不进一环

有2台主机，分别是solaris A 和rhel B

想脚本自动执行关机命令：
在A上的命令是 sync; init 5
B上执行的命令是 sync; init 0


能不能有什么办法，像批处理文件一样，做好放桌面上，点击运行就自动连接到两台主机，执行关机命令

目前是ssh连接，实在不行可以开telnet

现在就是用的 SecureCRT 自动登录，但是需要手工选择主机。用 SecureCRT，可以实现这个功能么。或者其他什么软件也可以。

emperor

SCRT可以做到，达到你这个目的，写个极其简单的vbs或者perl就行。。。。。。。。

不进一环

原帖由 emperor 于 2009-10-30 12:32 发表
SCRT可以做到，达到你这个目的，写个极其简单的vbs或者perl就行。。。。。。。。

能不能给个例子，你说的这两个全不会啊  

emperor

自行参考修改
点script--〉run。 调用下面这个vbs。。。。。。。

1. '* date =2009-10-30
   
2. 
   
3. ' § define §
   
4. dim Tab0,Tab1
   
5. dim usernameA,passwordA,usernameB,passwordB
   
6. 
   
7. ' § init §
   
8. usernameA=xxx
   
9. passwordA=yyy
   
10. usernameB=aaa
    
11. passwordB=bbb
    
12. 
    
13. ' § start §
    
14. 
    
15. ' §login to SolarisA and shutdown §
    
16. Set Tab0= crt.Session.ConnectInTab ("/ssh  " &SolarisA& " 22")
    
17.   Tab0.Screen.WaitForString  "ogin: "
    
18.   Tab0.Screen.send usernameA& chr(13)
    
19.   Tab0.Screen.WaitForString  "sword: "
    
20.   Tab0.Screen.send passwordA& chr(13)
    
21.   Tab0.Screen.WaitForString  "# "
    
22.   Tab0.Screen.send "sync; init 5"& chr(13)
    
23. 
    
24. ' §login to SolarisB and shutdown  §
    
25. Set Tab1= crt.Session.ConnectInTab ("/ssh  " &SolarisB& " 22")
    
26.   Tab1.Screen.WaitForString  "ogin: "
    
27.   Tab1.Screen.send usernameB& chr(13)
    
28.   Tab1.Screen.WaitForString  "sword: "
    
29.   Tab1.Screen.send passwordB& chr(13)
    
30.   Tab0.Screen.WaitForString  "# "
    
31.   Tab0.Screen.send "sync; init 0"& chr(13)

复制代码

weizhishu

1. 
   
2. #!/bin/bash
   
3. 
   
4. HOSTLIST=("1.2.3.4|testa|123456|init 0" "5.6.7.8|testb|123456|init 5")
   
5. 
   
6. SSHD_PORT=22
   
7. SSH_ARGS="-oStrictHostKeyChecking=no  -oUserKnownHostsFile=/dev/null "
   
8. 
   
9. for((i=0; i<=1; i++))
   
10. do
    
11.        HOSTNAME=$(echo ${HOSTLIST[i]}  | cut -d'|' -f1)
    
12.        USERNAME=$(echo ${HOSTLIST[i]}  | cut -d'|' -f2)
    
13.        PASS=$(echo ${HOSTLIST[i]}  | cut -d'|' -f3)
    
14.        CMD=$(echo ${HOSTLIST[i]}  | cut -d'|' -f4)
    
15. 
    
16. expect << EOF
    
17. set timeout 120
    
18. spawn ssh -p ${SSHD_PORT} ${SSH_ARGS} ${USERNAME}@${HOSTNAME}
    
19. expect "*password: "
    
20. send "${PASS}\r"
    
21. expect ".*\@.*#"
    
22. send "${CMD}\r"
    
23. EOF
    
24. 
    
25. done
    

复制代码

不进一环

原帖由 emperor 于 2009-10-30 12:54 发表
自行参考修改
点script--〉run。 调用下面这个vbs。。。。。。。
'* date =2009-10-30

' § define §
dim Tab0,Tab1
dim usernameA,passwordA,usernameB,passwordB

' § init §
usernameA=xxx ...

谢谢

有没有办法能够省略这一部：“点script--〉run”，就是放桌面上，鼠标一点就自动执行。

emperor

当然有。vbs就可以实现。甚至你可以发到win的schedule里。这里仅给个提示：。。。。。

Set WShell = CreateObject("WScript.Shell")
sCmd="C:\Program Files\VanDyke Software\SecureCRT\SecureCRT.exe"
getPath = " /script xxx.vbs"
WShell.Run chr(34) & sCmd& chr(34) & getPath

不进一环

原帖由 emperor 于 2009-10-30 15:34 发表
当然有。vbs就可以实现。甚至你可以发到win的schedule里。这里仅给个提示：。。。。。

Set WShell = CreateObject("WScript.Shell"
sCmd="C:\Program Files\VanDyke Software\SecureCRT\SecureCRT.exe"
...

搞不懂vbs、js，太复杂了

用的批处理文件登陆，再执行 script

这个script也sct自己录制的

总算解决了问题

bat文件

---------------------------------------------
@E:\SecureCRT\SecureCRT.exe /T /SCRIPT e:\关机vbs\down.vbs /SSH2 root@1.1.1.1 /PASSWORD 123456


sct录制的， down.vbs
---------------------------------------------
#$language = "VBScript"
#$interface = "1.0"

crt.Screen.Synchronous = True

' This automatically generated script may need to be
' edited in order to work correctly.

Sub Main
        crt.Screen.WaitForString "# "
        crt.Screen.Send "sync; init 0" & chr(13)
End Sub

--------------------------------------------

emperor

bat 让我不爽的就是从来都有个黑框直到程序结束
当然，在不追求效率的情况下
能用就是最大的成功，计算机应该是给人带来快乐地
用什么形式不是最重要的。。。。。。。

flw

Perl 很容易可以做。
我把全套 Net::SSH:erl 都研究透了……