Problem Deploying WinXP Hotfix 889320

Home Forums Scripting General Scripting Problem Deploying WinXP Hotfix 889320

Viewing 1 post (of 1 total)
  • Author
    Posts
  • Avatar
    ccook13
    Member
    #128351

    I have been trying and failing to deploy WinXP Hotfix 889320. This is a hotfix you have to request from MS, so I don’t think WSUS would work, not that I can use WSUS anyway (long story).

    The file is copied to the client via a CMD and executes OK and but appears to be unable to unload after finishing execution. As a result, the PC is stuck on the “Running startup scripts” window, until the script times out after 10 minutes. The VBS scriptfails to create a check file that prevents the script from running a second time.

    After the PC finishes booting the hotfix appears under the list of installed programs. When the PC reboots the process repeats itself and the machine hangs again while running startup scripts.

    I have tried various combinations of switches (passive, quiet, forcerestart) but none make a difference.

    I ran into a similar problem trying to run the EXE via a CMD script.

    I am trying to run the script via the Startup section of an Active Directory group policy.

    Any help is appreciated. I’m pretty much a newbie so please be gentle!

    Cliff

    Here is the code for the VBS script:

    ‘**********************************************************************
    Option Explicit

    Dim oShell : set oShell = WScript.CreateObject(“WScript.Shell”)
    Dim oFS : set oFS = WScript.CreateObject(“Scripting.FileSystemObject”)
    Dim checkFileExists : checkFileExists = “C:BrowserHotfixcheckfile.txt”
    ‘define environment variable that specifies the command-line processor cmd.exe
    Dim COMSPEC : COMSPEC = oShell.ExpandEnvironmentStrings(“%COMSPEC%”)

    ‘comment out the following line to unsuppress error message boxes
    On error resume next
    ‘wscript.echo “step 0”

    ‘********************* SETUP FOR WINXP

    if (GetTheOS() = “WXP”) then

    ‘ IF the check file does not exist then run the following steps
    If(NOT oFS.FileExists(checkFileExists)) Then

    ‘define variable to install the Computer Browser Hotfix KB889320
    Dim installBrowserHF : installBrowserHF = “””\ds2Network ServicesWinXP Computer Browser HotfixscriptsWinXP_Hotfix_KB889320_Install.cmd”””

    ‘run script to install KB889320
    oShell.Run COMSPEC & ” /c ” & installBrowserHF , 5, True

    oShell.Run “c:updatesWindowsXP-KB889320-x86-ENU.exe /passive”, 5, True

    writeCheckFile()

    End if

    End if

    ‘ ******************** END MAIN *************************

    ‘ Will work with most versions of WSH (windows shell)
    Function GetTheOS()
    CONST FORREADING = 1
    Dim sResults, fFile
    Dim WshShell : Set WshShell = CreateObject(“WScript.Shell”)
    Dim FSO : Set FSO = CreateObject(“Scripting.FileSystemObject”)
    Dim sTemp : sTemp = WshShell.ExpandEnvironmentStrings(“%TEMP%”)
    Dim sTempFile : sTempFile = “c:runresult.tmp”
    WshShell.Run “%comspec% /c ver >” & sTempFile, 0, True

    Set fFile = FSO.OpenTextFile(sTempFile, FORREADING)
    sResults = fFile.ReadAll
    fFile.Close
    Fso.DeleteFile(sTempFile)

    Select Case True
    Case InStr(sResults, “Windows NT”) > 1 : GetTheOS = “NT4”
    Case InStr(sResults, “Windows 2000”) > 1 : GetTheOS = “W2K”
    Case InStr(sResults, “Windows XP”) > 1 : GetTheOS = “WXP”
    Case Else : GetTheOS = “Unknown”
    End Select
    End Function

    ‘function for writing the checkfile
    Function writeCheckFile()
    Dim checkFile
    Set checkFile = oFS.CreateTextFile(“C:BrowserHotfixCheckfile.txt”, True)
    checkFile.WriteLine(“This file is used by the script BrowserHotfixCheckfile.vbs”)
    checkFile.WriteBlankLines(1)
    checkFile.WriteLine(“If it is the first time the script runs it will write”)
    checkFile.WriteLine(“this file to C:BrowserHotfixCheckfile.txt.”)
    checkFile.WriteBlankLines(1)
    checkFile.WriteLine(“If this file exists the next time the script will skip”)
    checkFile.WriteLine(“the running of the Computer Browser hotfix.”)
    End Function

    ‘*********** CLEAN UP *******************

    Set oFS = Nothing
    Set oShell = Nothing

    WScript.Quit (0)

    ‘********** END CODE ****************

Viewing 1 post (of 1 total)

You must be logged in to reply to this topic.