- 論壇徽章:
- 3
|
本帖最后由 pxf520 于 2011-08-12 16:38 編輯
如果你想對n臺服務(wù)器進行批量管理，從而提高效率，本文或許對你有些幫助
SecureCRT是一款終端仿真程序，支持ssh、Telnet和rlogin協(xié)議，可以在windows平臺通過它對unix、linux進行訪問，相比同類軟件，它的強大之處就在于支持vbs、js等腳本，利用腳本可實現(xiàn)批量操作，如：獲取服務(wù)器相關(guān)信息、部署軟件、修改密碼、升級軟件、上傳/下載、修改文件等等，還能生成excel報表
最大的優(yōu)點，就是無需在服務(wù)器端安裝agent，這是其他軟件無法與之相媲美的，當(dāng)初在給工行做項目的時候，在3000多臺服務(wù)器上部署軟件，用的就是SecureCRT腳本
下面分享一個例子：該腳本用vbs語言編寫，腳本會讀取iplist文件，通過ssh方式連接服務(wù)器，在centos5.5_64bit系統(tǒng)上自動安裝lrzsz軟件，腳本對目標(biāo)服務(wù)器進行了判斷，如已經(jīng)安裝lrzsz軟件則退出，否則執(zhí)行安裝程序。
SecureCRT-vbs腳本使用說明
一．腳本運行環(huán)境
1. 需要在客戶端安裝SecrueCRT軟件
二．腳本使用方法
1．打開SecureCRT，不連接任何會話
1.JPG (18.6 KB, 下載次數(shù): 95)
下載附件
2011-08-12 16:35 上傳
2.選擇腳本菜單----執(zhí)行，選擇你要運行的腳本，
如彈出下面的提示，選擇接受并保存。
2.JPG (25.19 KB, 下載次數(shù): 59)
下載附件
2011-08-12 16:36 上傳
3.腳本執(zhí)行過程中，最好不要進行其他操作，腳本執(zhí)行完后會自動退出
三．自動安裝腳本參數(shù)介紹:
outputpath = ".\install-log.txt" '輸出文件，腳本運行后會自動創(chuàng)建
iplistpath = ".\ip.txt" 'ip列表文件，需提前創(chuàng)建，每行有2列，用1個空格作為分隔符，首尾不能有多余的空格或其他字符,iplist格式如下：
192.168.0.1 123456
192.168.0.2 abcd1234
loginuser = "root" '登陸用戶
productpath = "/usr/local/src" '產(chǎn)品路徑，可自行定義
Ssh、Main部分都已寫成函數(shù)，一般情況下無需更改。你需要的是維護腳本具體執(zhí)行相關(guān)功能部門的函數(shù)即可。- # $language = "VBScript"
- # $interface = "1.0"
- ' Written by Peng Xiaofeng
- ' @ 201107
- ' QQ:5876006
- Const ForReading = 1
- Const ForWriting = 2
- Dim fso, outputpath , iplistpath , file, iplist, Str, StrIp, StrPwd
- Dim loginuser
- Dim index , index1 , n ,productpath
- '======================path and some parameters ==========================================
- outputpath = ".\install-log.txt" '輸出文件
- iplistpath = ".\ip.txt" 'ip列表文件,每行有2列，用1個空格作為分隔符，首尾不能有多余的空格
- loginuser = "root" '登陸用戶
- productpath = "/usr/local/src" '產(chǎn)品路徑
- '=======================define end=================================================
- '=======================open file==================================================
- Set fso = CreateObject("Scripting.FileSystemObject")
- Set file = fso.OpenTextFile(outputpath , ForWriting, True) ' result file path
- Set iplist = fso.OpenTextFile(iplistpath , ForReading, False) ' ip-list file path
- '========================end open==================================================
- '==============================================ssh start===================================================
- Sub Ssh(ip)
- crt.Screen.Synchronous = True
- On Error Resume Next
-
- cmd = "/ssh2 /L " & loginuser &" /PASSWORD " & StrPwd & " /C 3DES " & ip
- crt.Session.Connect cmd
-
- If Err.Number <> 0 Then
- file.Write " Can't connect 22 port:" & vbCr
- index = 99
- crt.Session.Disconnect
- Else
- Do
- index = crt.Screen.WaitForStrings("#" , ">" , 10)
- Select Case index
- Case "0"
- file.Write "login fail:" & loginuser
- index = 99
- Exit Do
- Case "1"
- index = 100
- Exit Do
- Case "2"
- index = 100
- Exit Do
- End Select
- Loop
- If index <> 100 Then
- crt.Session.Disconnect
- End If
- End If
- End Sub
- '==============================================ssh end========================================================
- '==============================================install begin==================================================
- Sub Install
- crt.Sleep 1000
- crt.Screen.Send "cd " & productpath & vbCr
- crt.Screen.Send "LANG=en_US.UTF-8;export LANG" & vbCr
- crt.Sleep 1000
- crt.Screen.Send "LC_ALL=en_US.UTF-8;export LC_ALL" & vbCr
- crt.Sleep 1000
- crt.Screen.Synchronous = False
- crt.Screen.Send "uname -rsm" & vbCr '判斷系統(tǒng)版本
- Do
- index1 = crt.Screen.WaitForStrings("Linux 2.6.18-194.el5 x86_64", "Linux 2.6.9-55.ELsmp i686", "Linux 2.6.18-194.el5 i686", "Linux 2.6.18-164.ESX x86_64", 5)
- Select Case index1
- Case "0"
- Exit Do
- Case "1"
- 'CENTOS5.5 64bit
- crt.Screen.Send "wget ftp://ftp.sunet.se/pub/Linux/distributions/centos/5.6/os/x86_64/CentOS/lrzsz-0.12.20-22.1.x86_64.rpm" & vbCr
- crt.Sleep 12000
- crt.Screen.Send "ls" & vbCr
- crt.sleep 1000
- Exit Do
- Case "2"
- 'RHEL4U4 32bit
- crt.Screen.Send "ls" & vbCr
- crt.sleep 1000
- Exit Do
- Case "3"
- 'CENTOS5.5 32bit
- crt.Screen.Send "ls" & vbCr
- crt.sleep 1000
- Exit Do
- Case "4"
- 'ESX 4.1 64bit
- crt.Screen.Send "ls" & vbCr
- crt.sleep 1000
- Exit Do
- End Select
- Loop
- If index1 = 0 Then
- file.Write " time out! : Cann't confirm os version! "
- Else
- crt.Screen.Send "rpm -qa|grep rzsz" & vbCr '判斷l(xiāng)rzsz是否安裝
- If crt.Screen.WaitForString("lrzsz", 5) = True Then
- file.Write " lrzsz Exists "
- Else
- crt.Screen.Send "ls" & vbCr
- crt.sleep 1000
- crt.Screen.Send "rpm -ivh lrzsz-0.12.20-22.1.x86_64.rpm" & vbCr '執(zhí)行安裝命令
- crt.sleep 3000
- crt.Screen.Send "ls /usr/bin/rz" & vbCr
- If crt.Screen.WaitForString("/usr/bin/rz", 5) = True Then '判斷是否安裝成功
- file.Write "lrzsz install success" '結(jié)果寫進輸出文件中
- crt.Screen.Send "rm -f lrzsz-0.12.20-22.1.x86_64.rpm" & vbCr '刪除安裝程序
- crt.sleep 1000
- Else
- file.Write "lrzsz install fail"
- crt.sleep 1000
- End If
- End If
- End If
- crt.Screen.Send "exit" & vbCr
- End Sub
- '==============================================install end=================================================
- '==============================================Main begin==================================================
- Sub Main
- Do While iplist.AtEndOfStream <> True
- '逐行讀取iplist文件，分別賦予2個變量StrIp和StrPwd
- Str = iplist.Readline
- n = InStr(Str, " ")
- StrIp = Left(Str, n)
- n = Len(Str) - n
- StrPwd = Right(Str, n)
- '下面的把結(jié)果寫到輸出文件中
- file.Write "Ip:" & StrIp & "-"
- Ssh StrIp
-
- If index = 99 Then
- crt.Sleep 1000
- Else
- crt.Screen.Send "id " & vbCr
- If crt.Screen.WaitForString("uid=0", 3) = True Then
- crt.Sleep 1000
- Install '執(zhí)行install過程
- End If
- End If
- crt.Session.Disconnect
- file.Write vbCrLf
- Loop
- End Sub
- '===============================================Main end===================================================
SecureCRT腳本.zip
(35.12 KB, 下載次數(shù): 935)
2011-08-12 14:06 上傳
點擊文件名下載附件
|
|
免費注冊
發(fā)表于 2011-08-12 14:04
