1. You are viewing our forum as a guest. For full access please Register. WindowsBBS.com is completely free, paid for by advertisers and donations.

XP SP2 Blocker

Discussion in 'Windows XP' started by Sue, 2005/01/19.

Thread Status:
Not open for further replies.
  1. 2005/01/19
    Sue

    Sue Inactive Thread Starter

    Joined:
    2002/04/12
    Messages:
    284
    Likes Received:
    0
    Can you tell me if this script will block XP sp2 permenantly or will it expire in April? We are having some issue with SP2 and want to block it permenantly.
    I found this on the Microsoft site.


    ' Copyright (c) Microsoft Corporation 2004
    ' File: BlockXPSP2.vbs
    ' Contents: Remotely blocks or unblocks the delivery of
    ' Windows XP SP2 from Windows Update web site or via Automatic
    ' Updates.
    ' History: 8/20/2004 Peter Costantini Created
    ' Version: 1.0

    On Error Resume Next

    ' Define constants and global variables.
    Const HKEY_LOCAL_MACHINE = &H80000002
    strComputer = "." ' Can be changed to name of remote computer.
    strKeyPath = "Software\Policies\Microsoft\Windows\WindowsUpdate "
    strEntryName = "DoNotAllowXPSP2 "
    dwValue = 1

    ' Handle command-line arguments.
    Set colArgs = WScript.Arguments
    If colArgs.Count = 0 Then
    ShowUsage
    Else
    If colArgs.Count = 2 Then
    strComputer = colArgs(1)
    End If
    ' Connect with WMI service and StdRegProv class.
    Set objReg = GetObject _
    ( "winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv ")
    If Err = 0 Then
    If (LCase(colArgs(0)) = "/b ") Or _
    (LCase(colArgs(0)) = "-b" ) Then
    AddBlock
    ElseIf (LCase(colArgs(0)) = "/u ") Or _
    (LCase(colArgs(0)) = "-u ") Then
    RemoveBlock
    Else
    ShowUsage
    End If
    Else
    WScript.Echo "Unable to connect to WMI service on " _
    & strComputer & ". "
    End If
    Err.Clear
    End If

    '*************************************************************

    Sub AddBlock

    'Check whether WindowsUpdate subkey exists.
    strParentPath = "SOFTWARE\Policies\Microsoft\Windows "
    strTargetSubKey = "WindowsUpdate "
    intCount = 0
    intReturn1 = objReg.EnumKey(HKEY_LOCAL_MACHINE, _
    strParentPath, arrSubKeys)
    If intReturn1 = 0 Then
    For Each strSubKey In arrSubKeys
    If strSubKey = strTargetSubKey Then
    intCount = 1
    End If
    Next
    If intCount = 1 Then
    SetValue
    Else
    WScript.Echo "Unable to find registry subkey " & _
    strTargetSubKey & ". Creating ... "
    intReturn2 = objReg.CreateKey(HKEY_LOCAL_MACHINE, _
    strKeyPath)
    If intReturn2 = 0 Then
    SetValue
    Else
    WScript.Echo "ERROR: Unable to create registry " & _
    "subkey " & strTargetSubKey & ". "
    End If
    End If
    Else
    WScript.Echo "ERROR: Unable to find registry path " & _
    strParentPath & ". "
    End If

    End Sub

    '*************************************************************

    Sub SetValue

    intReturn = objReg.SetDWORDValue(HKEY_LOCAL_MACHINE, _
    strKeyPath, strEntryName, dwValue)
    If intReturn = 0 Then
    WScript.Echo "Added registry entry to block Windows XP " & _
    "SP2 deployment via Windows Update or Automatic Update. "
    Else
    WScript.Echo "ERROR: Unable to add registry entry to " & _
    "block Windows XP SP2 deployment via Windows Update " & _
    "or Automatic Update. "
    End If

    End Sub

    '*************************************************************

    Sub RemoveBlock

    intReturn = objReg.DeleteValue(HKEY_LOCAL_MACHINE, _
    strKeyPath, strEntryName)
    If intReturn = 0 Then
    WScript.Echo "Deleted registry entry " & strEntryName & _
    ". Unblocked Windows XP SP2 deployment via Windows " & _
    "Update or Automatic Update. "
    Else
    WScript.Echo "Unable to delete registry entry " & _
    strEntryName & ". Windows XP SP2 deployment via " & _
    "Windows Update or Automatic Update is not blocked. "
    End If

    End Sub

    '*************************************************************

    Sub ShowUsage

    WScript.Echo "Usage:" & VbCrLf & _
    " BlockXPSP2.vbs { /b | /u | /? } [hostname]" & VbCrLf & _
    " /b = Block (deny) Windows XP Service Pack 2 " & _
    "deployment" & VbCrLf & _
    " /u = Unblock (allow) Windows XP Service Pack 2 " & _
    "deployment" & VbCrLf & _
    " /? = Show usage" & VbCrLf & _
    " hostname = Optional. Name of remote computer. " & _
    "Default is local computer" & VbCrLf & _
    "Example:" & VbCrLf & _
    " BlockXPSP2.vbs /b client1 "

    End Sub

    Thanks
     
    Sue,
    #1
  2. 2005/01/19
    Welshjim

    Welshjim Inactive

    Joined:
    2002/01/07
    Messages:
    5,643
    Likes Received:
    0
    Sue--Have you read
    http://www.microsoft.com/technet/prodtechnol/winxppro/maintain/sp2aumng.mspx ?
    Even after April 12, I would assume that at worst you will still have the options in Automatic Update to no longer notify you or download but not install in addition to automatic download/install. It is hard to believe that MS would force you to install SP2.

    You could also call MS at 1-866-PCSAFETY to ask them what will happen.
    Or (888) SP2-HELP
    Both calls are free.
     
    Last edited: 2005/01/19

  3. to hide this advert.

  4. 2005/01/19
    Sue

    Sue Inactive Thread Starter

    Joined:
    2002/04/12
    Messages:
    284
    Likes Received:
    0
    The problem is: we are a college with over 500 laptops. I would like windows updates to install, just not sp2. We are having some compability problems with sp 2. Certain applications that faculty requries them to install will not work. So I need to disable sp2 until atleast this summer when we can build a custom image, with sp2 and all the changes necessary for the applications to run.

    I will call the numbers you listed.

    Thanks
     
    Sue,
    #3
  5. 2005/01/19
    Welshjim

    Welshjim Inactive

    Joined:
    2002/01/07
    Messages:
    5,643
    Likes Received:
    0
  6. 2005/01/20
    Sue

    Sue Inactive Thread Starter

    Joined:
    2002/04/12
    Messages:
    284
    Likes Received:
    0
    We are talking over 500 students. Asking them to do updates is not a possibility. Let alone asking them to omit sp2.
     
    Sue,
    #5
  7. 2005/01/20
    Rockster2U

    Rockster2U Geek Member

    Joined:
    2002/04/01
    Messages:
    3,181
    Likes Received:
    9
    From another perspective - two potential solutions.
    1. Upgrade the faculty and hopefully, those problem apps become a non-issue.
    2. Start Spring Break early and extend it into next fall.

    :rolleyes:

    edit after reading Sue's post below: Must have been my ambiguity - wasn't talking about upgrading Staff to SP2, was suggesting a new staff.
     
    Last edited: 2005/01/20
  8. 2005/01/20
    Sue

    Sue Inactive Thread Starter

    Joined:
    2002/04/12
    Messages:
    284
    Likes Received:
    0
    Staff cannot have the sp2. Our software vendor will not approve it. They will not provide us support if we install it. But they still only support sql 7.0.

    In a few short words....we are in a fix.
     
    Sue,
    #7
Thread Status:
Not open for further replies.

Share This Page

  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.