| Line 320... |
Line 320... |
| 320 |
'
|
320 |
'
|
| 321 |
Private Function ExecuteRemoteCommand(sudoCmd)
|
321 |
Private Function ExecuteRemoteCommand(sudoCmd)
|
| 322 |
Dim plinkPath, plinkCmd, wCmdLine
|
322 |
Dim plinkPath, plinkCmd, wCmdLine
|
| 323 |
Dim pkgCredentails, uname, upasswd
|
323 |
Dim pkgCredentails, uname, upasswd
|
| 324 |
|
324 |
|
| 325 |
pkgCredentails = split(PKGARCHIVE_CREDENTIALS,":")
|
325 |
pkgCredentails = split(Application("PKGARCHIVE_CREDENTIALS"),":")
|
| 326 |
uname = pkgCredentails(0)
|
326 |
uname = pkgCredentails(0)
|
| 327 |
upasswd = pkgCredentails(1)
|
327 |
upasswd = pkgCredentails(1)
|
| 328 |
|
328 |
|
| 329 |
plinkPath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "Release_Manager\scripts\bin\plink.exe"
|
329 |
plinkPath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "Release_Manager\scripts\bin\plink.exe"
|
| 330 |
plinkCmd = "-ssh -batch " & uname & "@" & archive_server & " -pw " & upasswd & " ""sudo " & Replace(sudoCmd,Chr(34),Chr(92)&Chr(34)) & ";"""
|
330 |
plinkCmd = "-ssh -batch " & uname & "@" & archive_server & " -pw " & upasswd & " ""sudo " & Replace(sudoCmd,Chr(34),Chr(92)&Chr(34)) & ";"""
|