Client Management Suite

 View Only

TECH155903 - PD / QD task returns a failure with error code 1073807364

  • 1.  TECH155903 - PD / QD task returns a failure with error code 1073807364

    Posted Jun 28, 2013 08:30 PM

    Hi,

    This is a script I been testing on XP x32, W7 x32, and W7 x64. On W7 I  been getting failure with error code 1073807364. Most of my testing has been with XP x32. Looking at the history in Altiris it appears I did some testing for the other platforms, but I honestly don't recall doing that. Either way prior testing was coming back as success, return code 0. When you step through the code you see a MSI is installed after which a Do command begins a loop where every 5 minutes the pop up box will appear prompting for a restart. Once clicked Yes the system restarts. I am not sure at which point Altiris is ready to log this. Probably once the code exits, which would be prompted by the user clicking Yes. I don't see an Exit line in the code. Should I add one?

    So now to TECH155903 do I need to log 1073807364 as a success code? Reason why I ask is because before was Altiris was logging this as success, return code 0. So what I am wondering is why the inconsistency within Altiris logging when this runs?

     

    Dim oShell, fso, prodir, strKeyPath
    Dim path, i, dpath
    Dim strComputer
    Dim strDirectory, sScriptDir

    Dim sTitle: sTitle = "My Title"
    Dim sLogHeader : sLogHeader = sTitle & VbCrLf
    'Wscript.Echo sTitle
    strComputer = "."

    set oShell= CreateObject("Wscript.Shell")
    set oEnv = oShell.Environment("PROCESS")
    oEnv("SEE_MASK_NOZONECHECKS") = 1


    Set fso = CreateObject("Scripting.FileSystemObject")

    sScriptDir = "C:\Program Files\Altiris\Altiris Agent\Agents\SoftwareManagement\Software Delivery\{2803ADA4-5C8E-45BD-87BC-459445C57B2E}\cache\"

    'Wscript.Echo sScriptDir

    If fso.FileExists(sScriptDir & "MyApp.msi") Then

    path = Chr(34) & sScriptDir & "MyApp.msi" & Chr(34)
    sSwitch1 = " /qn"
    sSwitch2 = " /norestart"

    'wscript.echo path

    i = 0
    i = oShell.Run(path & sSwitch1 & sSwitch2 , 0 ,True)

    If (i = 0) Or (i = 3010) Then

    do

    varRestart = oShell.Popup ("My pop up message", 3600, sTitle, vbExclamation+vbYesNo+vbSystemModal)


    if (varRestart = vbYes) then
    strShutdown = "shutdown -r -t 120 -f -m \\" & strComputer
    oShell.Run strShutdown
    end if
    wscript.sleep 300000
    loop
    End If
    End If

     

    Help much appreciated. Thank you.