Kentoi Seniormester
09. marts 2017 - 10:07

Exitcode er ikke som forventet

Hejsa.
Jeg har lavet noget kode i Autoit. Den kode læser en SQL DB. Hvis det går godt, så er min exitcode 0 ellers er exitcode 99.

Hvis jeg kører min autoit kode i designtime, så kan jeg se at min exitcode er 99.

I mit VBScript kører jeg mit autoit exefil, men der er exitcode 0. Det forstår jeg ikke.

AutoIT kode:
; SetUP internal ADO.au3 UDF COMError Handler
_ADO_ComErrorHandler_UserFunction(_ADO_COMErrorHandler)

_Main()
Exit(0)


Func _Main()
    Local $sConnectionString = 'DRIVER={' & $sDriver & '};SERVER=' & $sServer & ';DATABASE=' & $sDatabase & ';UID=' & $sUser & ';PWD=' & $sPassword & ';', $sQUERY, $oRecordset, $aRecordsetArray, $aRecordset_inner
    Local $oConnection = _ADO_Connection_Create()
    _ADO_Connection_OpenConString($oConnection, $sConnectionString)
    If @error Then SetError(@error, @extended, $ADO_RET_FAILURE)
    $sQUERY = "Select Shipdate from " & $sTableName & " where ComputerName = '" & @ComputerName & "'"
;    $sQUERY = "Select Shipdate from " & $sTableName & " where ComputerName = 'DKSOLT1464'"
;    ConsoleWrite($sQUERY & @TAB)
    $oRecordset = _ADO_Execute($oConnection, $sQUERY)
    If @error Then SetError(@error, @extended, $ADO_RET_FAILURE)
    $aRecordsetArray = _ADO_Recordset_ToArray($oRecordset, False)
    If @error Then SetError(@error, @extended, $ADO_RET_FAILURE)
    $aRecordset_inner = _ADO_RecordsetArray_GetContent($aRecordsetArray)
    If @error Then SetError(@error, @extended, $ADO_RET_FAILURE)
    if Not IsArray($aRecordset_inner) Then Exit(99) ; <----- exit if computer does not exists in SQL DB
    If $aRecordset_inner[0][0] = '' or $aRecordset_inner[0][0] = Null Then Exit(99)
    RegWrite("HKEY_CURRENT_USER\SOFTWARE\ComputerInfo", "Shipdate", "REG_SZ", $aRecordset_inner[0][0])
EndFunc


VBScript kode:

Sub RegComputerInfo
    Const HKEY_CURRENT_USER = &H80000001
    Dim lstrKeyPath, lstrValueName, lstrValue, outFile, objFile, oExec
    lstrKeyPath = "SOFTWARE\ComputerInfo\"
    lstrValueName = "Shipdate"
    if ADHelper.IsCurrentUserMember("DKSO_AllUsers") and (ADHelper.strComputerType <> "Server") then
        objReg.GetStringValue HKEY_CURRENT_USER,lstrKeyPath,lstrValueName,lstrValue
        if IsNull(lstrValue) then
'            msgbox "EC"
            set oExec = WSHShell.exec(strScriptPath & "\Support\Script\ComInventory\GetShipdate.exe")
            msgbox oExec.Exitcode
            msgbox "status " & oExec.status
            msgbox "ProcessID " & oExec.ProcessID
            if oExec.ExitCode = 99 then
                outFile = "\\Server\path" & WSHNetwork.ComputerName & ".txt"
                Set objFile = objFSO.CreateTextFile(outFile,True)
                objFile.Write strUsername & "|" & strModel & "|" & ServiceTag
                objFile.Close
            else
'                msgbox "Test " & oExec.ExitCode       
            End if   
        End If   
    End if
End Sub 'FindShipDate

Håber nogen kan kaste et lys over det.
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Computerworld
Bitcoinen nåede lige at kulminere igen – men så kom krakket
Der blev sat en ny rekord for bitcoinens værdi i år – men godt 24 timer efter blev der høvlet næsten 20.000 kroner af den.
CIO
Podcast: Her er seks gode råd om ledelse og digitalisering fra danske top-CIO'er
The Digital Edge: Vi har talt med 17 af Danmarks dygtigste digitale ledere - og samlet deres seks bedste råd om digitalisering og ledelse. Få alle rådene på 26 minutter i denne episode af podcasten The Digital Edge.
Job & Karriere
Se Waoos forklaring: Derfor har selskabet fyret topchef Jørgen Stensgaard med omgående virkning
Waaos bestyrelse opsiger fiberselskabets topchef, Jørgen Stensgaard, der fratræder med omgående virkning. Se hele forklaringen fra Waao her.
White paper
Kunsten at navigere i en tilpasningsøkonomi
Evnen til at tilpasse sig en verden i konstant forandring bliver afgørende for virksomhedens mulighed for at vækste i fremtiden. Ét af de finansielle håndtag du kan skrue på, er en hel eller delvis outsourcing af it-driften. I e-bogen ”Kunsten at navigere i en tilpasningsøkonomi” får du viden om, hvordan din virksomhed kan bruge tilpasningsøkonomi til at håndtere fremtidens krav til it. Vi spørger blandt andet: - Kan din virksomhed skalere og tilpasse sin digitale kapacitet og økonomi? - Har dine kunder tillid til, at du har de skarpeste it-løsninger? - Ville I kunne styrke forretningen ved at give jeres it mere fokus? - Kan I få øget funktionalitet til samme pris? Vi fokuserer på risiko, økonomi, fokus og valg af it-partner, som er fire opmærksomhedspunkter du skal have styr på for at lykkes med at tilpasse virksomheden til at modstå forandringerne i verden.