We're seeing a few instances of the issue below so I thought I'd send out a preemptive heads up. If you happen to run across this issue at least now you'll know the fix:
Problem: After a WSUS 2.0 SP1 or WSUS 3.0 server are upgraded to WSUS 3.0 SP1, you may notice that clients no longer report into the server. You may also notice the following event in the application event log after starting the WSUS 3.0 service:
"Event ID: 13042" "Self-Update is not working"
Cause: The Service Pack 1 upgrade may encounter an issue during setup that results in the virtual directories "ClientWebService" and "Selfupdate" being removed from the Default Web site, and/or "SelfUpdate" being removed under "WSUS Administration".
Resolution: You can manually re-create these virtual directories to resolve the issue or run the script below to rerun the Selfupdate/Clientwebservice install the same way setup does. If you use the script, copy the text below into a file named rerunSelfupdateSetup.vbs and then copy the vbs file to:
Then just run it with cscript (e.g. C:\Program Files\Update Services\setup>cscript rerunSelfupdateSetup.vbs)
Dim fileSystemObject, file, text, shell
Set fileSystemObject = CreateObject("Scripting.FileSystemObject") Set shell = CreateObject("WScript.Shell") Set file = fileSystemObject.OpenTextFile("installselfupdateonport80.vbs")
' Read the script in, this causes the SxS code to run. This will end up getting run twice, but it is safe text = file.ReadAll file.Close ExecuteGlobal text
' We need to overwrite this method or itll fail the scipt. We set the variables manually so its safe text = "Sub ParseArguments" & vbCrLf & "WScript.Echo ""Skipping ParseArguments""" & vbCrLf & "End Sub" ExecuteGlobal text
' Set the variables that ParseArguments would have gWusWebSiteIndex = GetWUSWebSiteIndex szTargetDirPath = shell.ExpandEnvironmentStrings("%programfiles%\Update Services\")
' Debugging, print them out WScript.Echo "gWusWebSiteIndex: " & gWusWebSiteIndex WScript.Echo "szTargetDirPath: " & szTargetDirPath
' Run the full SelfUpdate install WScript.Echo "SetupSelfupdateTree returned: " & SetupSelfupdateTree
Mike Johnson | Support Escalation Engineer
PingBack from http://engineer.bobtheblog.info/?p=10821