Public privateKey As String
Public puttyPath As String
Public plinkPath As String
Public winSCPPath As String
Public pscpPath As String
Public Const instanceIdColNum As Integer = 6
Public Const svrColNum As Integer = 4
Public Const acctColNum As Integer = 5
Public Const lPathColNum As Integer = 8
Public Const rPathColNum As Integer = 9
Public list_instance As String
Sub init()
privateKey = Sheets(2).Cells(4, 2).Value
puttyPath = Sheets(2).Cells(5, 2).Value
plinkPath = Sheets(2).Cells(6, 2).Value
winSCPPath = Sheets(2).Cells(7, 2).Value
pscpPath = Sheets(2).Cells(8, 2).Value
End Sub
Function getServerRowNum(ByVal rowNum)
Dim currentRowNum, currentServerRowNum
If rowNum = 0 Then
currentRowNum = ActiveCell.Row
Else
currentRowNum = rowNum
End If
currentServerRowNum = currentRowNum
Do While Cells(currentServerRowNum, svrColNum) = ""
currentServerRowNum = currentServerRowNum - 1
Loop
getServerRowNum = currentServerRowNum
End Function
Sub runPutty()
init
Call Shell("""" & puttyPath & """" & " -i " & """" & privateKey & """ " & Cells(ActiveCell.Row, acctColNum) & "@" & Cells(getServerRowNum(0), svrColNum), vbNormalFocus)
End Sub
Sub runWinSCP()
init
Call Shell(winSCPPath & " scp://" & Cells(ActiveCell.Row, acctColNum) & "@" & Cells(getServerRowNum(0), svrColNum) & ":22 /privatekey=""" & privateKey & """", vbNormalFocus)
End Sub
Sub runCommand(ByVal cmd)
init
getInstanceList
Call Shell("""" & plinkPath & """ -i """ & privateKey & """ " & Sheets(2).Cells(1, 2).Value & "@" & Sheets(2).Cells(1, 1).Value & " " & """" & cmd & " " & list_instance & "; read;""", vbNormalFocus)
Rem MsgBox ("""" & plinkPath & """ -i """ & privateKey & """ " & Sheets(2).Cells(1, 2).Value & "@" & Sheets(2).Cells(1, 1).Value & " " & """" & cmd & " " & list_instance & """")
End Sub
Sub getInstanceList()
Dim rows_selected
For Each area In Selection.Areas
For Each r In area.Rows
If Not r.Row = 1 And Not r.Hidden Then
rows_selected = r.Row & "," & rows_selected
End If
Next
Next
Rem MsgBox (rows_selected)
Dim list_rows
i = 3
Do While i < 200
If Not InStr(rows_selected, "," & i & ",") = 0 Or InStr(rows_selected, i & ",") = 1 Then
list_rows = list_rows & i & " "
End If
i = i + 1
Loop
list_rows = RTrim(list_rows)
list_instance = ""
For Each i In Split(list_rows, " ")
list_instance = list_instance & Cells(i, instanceIdColNum).Value & " "
Next
list_instance = RTrim(list_instance)
Rem MsgBox (list_instance)
End Sub
Sub runDownload()
runCommand ("./util/1_getEAR.sh " & Sheets(2).Cells(2, 2).Value & " '" & Sheets(2).Cells(3, 2).Value & "'")
End Sub
Sub runStop()
runCommand ("./util/2_stop.sh")
End Sub
Sub runDeploy()
runCommand ("./util/3_deploy.sh")
End Sub
Sub runStart()
runCommand ("./util/4_start.sh")
End Sub
Sub runStopNodeAgent()
runCommand ("./util/stopNodeAgent.sh")
End Sub
Sub runStartNodeAgent()
runCommand ("./util/startNodeAgent.sh")
End Sub
Sub runStopDmgr()
runCommand ("./util/stopDmgr.sh")
End Sub
Sub runStartDmgr()
runCommand ("./util/startDmgr.sh")
End Sub
Sub runKill()
runStopNodeAgent
runCommand ("./util/killInstances.sh")
runStartNodeAgent
End Sub
Sub uploadProperty()
init
Dim rows_selected
For Each area In Selection.Areas
For Each r In area.Rows
If Not r.Row = 1 And Not r.Hidden Then
rows_selected = r.Row & "," & rows_selected
End If
Next
Next
Rem MsgBox (rows_selected)
Dim list_rows
i = 3
Do While i < 200
If Not InStr(rows_selected, "," & i & ",") = 0 Or InStr(rows_selected, i & ",") = 1 Then
Call Shell("""" & pscpPath & """" & " -i " & """" & privateKey & """ -p -r """ & Cells(i, lPathColNum) & """ " & Cells(i, acctColNum) & "@" & Cells(getServerRowNum(i), svrColNum) & ":""" & Cells(i, rPathColNum) & """", vbNormalFocus)
Rem MsgBox ("""" & pscpPath & """" & " -i " & """" & privateKey & """ -p -r """ & Cells(i, lPathColNum) & """ " & Cells(i, acctColNum) & "@" & Cells(getServerRowNum(i), svrColNum) & ":""" & Cells(i, rPathColNum) & """")
End If
i = i + 1
Loop
End Sub
相关推荐
SR5-SuperSU-v2.82-SR5-20171001224502,官方最新版本
supersu安装,用于管理root权限,v2.79版本。 .
Super Su2.49版可以满足你的ROOT需求,只需要使用你的recevry刷入即可
android root工具 supersu-v2.79版本。超级授权管理专业工具,它是款对Android手机进行ROOT的超级权限管理工具,超级用户访问权限管理必备利器。Super SU 原生无广告,自带简体中文,支持已ROOT设备上所有应用的超级...
SuperSU-v2.65最新稳定版
N7100 ROOT 包UPDATE-SuperSU-v1.43.zip对于需要root的朋友是福音
supersu 2.76 可用于android5 ,6 ,7 root, 先刷入第三方recovery, 在recovery模式下卡刷压缩包
UPDATE-SuperSU-v2.01
1、下载好的资源在/Users/newmanzhou/Downloads/study_space/Android/SR5-SuperSU-v2 安装App 后打开,退出 2、先以root方式运行adb adb root adb remount adb -e push /Users/mac02/Downloads/SuperSU-v2.79-...
SuperSU-v2.74-2,最新版beta
需要配合 TWRP 使用。参见:https://blog.csdn.net/tabactivity/article/details/88355317 下载后push到手机,进入TWRP,选择 install 安装该文件,重启手机即可获得root权限
SuperSU-v2.82文件, 详情见附件
UPDATE-SuperSU-v2.13.zip
UPDATE-SuperSU-v1.25
第三方recovery 刷机包BETA-SuperSU-v2.11.zip
SuperResolution-master可以实现多幅图像的超分辨重构,需自己选择图像数据路径
资源来自pypi官网。 资源全名:covid19-supermarket-abm-0.0.4.tar.gz
UPDATE-SuperSU-v2.37.zip 在谷歌上下载速度慢,也不容易下载成功。上传此文件让大家下载方便点。
Super CSV是一个速度奇快、免费跨平台的 CSV 格式数据的读写库,可以方便的处理对象、Map、列表的读写操作,以及自动化的类型转换和数据检查功能。 SuperCSV-1.52.jar
superPI--计算PI的东西 可以测试PC稳定性 superPI--计算PI的东西 可以测试PC稳定性 superPI--计算PI的东西 可以测试PC稳定性