Subversion Repositories DevTools

Rev

Rev 4477 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4477 Rev 4481
Line 105... Line 105...
105 
    Else
 105 
    Else
106 
        rvEvent = "Error ("&rv&")"
 106 
        rvEvent = "Error ("&rv&")"
107 
    End IF
 107 
    End IF
108 
 
 108 
 
109 
ElseIf parTest = "remExec" Then
 109 
ElseIf parTest = "remExec" Then
- 
 
 110 
    rvRemExec = "Testing"
110 
    Set objWSH = Server.CreateObject("WScript.Shell")
 111 
    Set objWSH = Server.CreateObject("WScript.Shell")
111 
    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestArchiveAccess", 0, TRUE)
 112 
    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestArchiveAccess", 0, TRUE)
112 
    Set objWSH = Nothing
 113 
    Set objWSH = Nothing
113 
    If rv = 0 Then
 114 
    If rv = 0 Then
114 
        rvRemExec = "OK"
 115 
        rvRemExec = "OK"