Search options (Page 1 of 4)

2008-06-20 14:54:40 : <DBG>  0 exceptions have forfilled the requirements to be executed!
2008-06-20 14:54:40 : <KTD>  KTD will not be applied, the DriverPacks will be deleted.
2008-06-20 14:55:20 : <CLNP> Could not delete the DriverPacks, which are located in "C:\D".
2008-06-20 14:55:20 : <CLNP> Added new value to the RunOnce key in the registry: the cleanup of the "C:\D" directory will be retried (through CLI, not through the Finisher) after a reboot.
2008-06-20 14:55:20 : <CLNP> Deleted "C:\hwids.dat"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\DPsFnshr.ini"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\devcon.exe"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\makePNF.exe"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\pmtimer.exe"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\*.ins"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\DSPdsblr.exe"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\DriverPack_*.ini"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\mute.exe"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\DP_Install_Tool.cmd"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\DPINST.exe"!
2008-06-20 14:55:20 : <CLNP> Deleted "C:\DPInst.xml"!
2008-06-20 14:55:20 : <CLNP> Added new value to the RunOnce key in the registry: the DriverPacks Finisher itself will get deleted after the next reboot.
2008-06-20 14:55:20 : Program terminated.

;set parameters for using
Global $UseIntegratedSecurity = True
Global $ProxyServer = "192.168.0.5:8080"
Global $ProxyUser = "" ;if $UseIntegratedSecurity is true (and working), these can be blank
Global $ProxyPass = ""

;create WinHttpRequest object for downloading config info
Global $oHttp = ObjCreate ("WinHttp.WinHttpRequest.5.1")
Global $oBinaryStream = ObjCreate("ADODB.Stream")
$oHttp.SetProxy(2,$ProxyServer) ; PRECONFIG = 0 (default), DIRECT = 1, PROXY = 2

ConsoleWrite("Downloading update.ini..." & @TAB)
$sINI = httpget("http://download.nai.com/products/datfiles/4.x/nai/update.ini")
ConsoleWrite("Complete" & @CRLF)
FileDelete("update.ini")
FileWrite("update.ini",$sINI)

$curSdat = IniRead("update.ini","SuperDat-IA32","FileName","")
$sdatUrl = "http://download.nai.com/products/licens … ish/intel/" & $curSdat
ConsoleWrite("Downloading " & $curSdat & "..." & @TAB)
$sdataBin = httpget($sdatUrl,@ScriptDir & "\" & $curSdat)
ConsoleWrite("Complete" & @CRLF)

func httpget($url,$filename="")
    $COMerrnotify = false
   
    If $UseIntegratedSecurity Then
        $oHttp.SetAutoLogonPolicy(0) ; Always = 0, OnlyIfBypassProxy = 1, Never = 2
    Else
        $oHttp.SetAutoLogonPolicy(2) ; Always = 0, OnlyIfBypassProxy = 1, Never = 2
    EndIf
   
    $status = $oHttp.Open("GET", $url,false)
   
    If Not $UseIntegratedSecurity Then
        $oHttp.SetCredentials($ProxyUser,$ProxyPass,0) ; HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0
    EndIf
   
   
    $oHttp.Send()
    if $oHttp.Status <> "200" then
        $status = $oHttp.Status
        $StatusText = $oHttp.StatusText
        Consolewrite("Status: " & $status & @crlf)
        Consolewrite("StatusText: " & $StatusText & @crlf)
        $COMerrnotify = true
        SetError(1)
        return $status & " - " & $StatusText       
    Else
        $COMerrnotify = true
        SetError(0)
        Consolewrite("Response Headers: " & $oHttp.GetAllResponseHeaders & @crlf)
       
        If $filename <> "" Then
            $adTypeBinary = 1
            $adSaveCreateOverWrite = 2     
            FileDelete($filename)
            $oBinaryStream.Type = $adTypeBinary
            $oBinaryStream.Open
            $oBinaryStream.Write($oHttp.ResponseBody)
            $oBinaryStream.SaveToFile($filename, $adSaveCreateOverWrite)
            Return $oHttp.Status
        EndIf
       
        return $oHttp.ResponseText
    EndIf
   
EndFunc

;_IEErrorHandlerRegister("ComErrFunc")
$oIEErrorHandler = ObjEvent("AutoIt.Error","ComErrFunc")
global $COMerrnotify = true
Func ComErrFunc()
    If IsObj($oIEErrorHandler) Then
        if $COMerrnotify then
            ConsoleWrite("--> ComErrFunc: COM Error Encountered in " & @ScriptName & @CR)
            ConsoleWrite("----> Scriptline = " & $oIEErrorHandler.scriptline & @CR)
            ConsoleWrite("----> Number Hex = " & Hex($oIEErrorHandler.number, 8) & @CR)
            ConsoleWrite("----> Number = " & $oIEErrorHandler.number & @CR)
            ConsoleWrite("----> Win Description = " & StringStripWS($oIEErrorHandler.WinDescription, 2) & @CR)
            ConsoleWrite("----> Description = " & StringStripWS($oIEErrorHandler.description, 2) & @CR)
            ConsoleWrite("----> Source = " & $oIEErrorHandler.Source & @CR)
            ConsoleWrite("----> Help File = " & $oIEErrorHandler.HelpFile & @CR)
            ConsoleWrite("----> Help Context = " & $oIEErrorHandler.HelpContext & @CR)
            ConsoleWrite("----> Last Dll Error = " & $oIEErrorHandler.LastDllError & @crlf)
        EndIf
        $HexNumber = Hex($oIEErrorHandler.number, 8)
        SetError($HexNumber)
    Else
        SetError(1)
    EndIf
    Return 0
EndFunc