Wsus not updating itself


Been wanting to do that but haven't gotten around to request it.Have to go through a lot of steps to get it approved and have the powers at be create the second policy for servers. Count = 0 Then str Computer = Input Box("Enter the Name or IP Address for a computer to check its Automatic Update settings", "AUBehave - Read Auto Update settings", str Def Computer) Else str Computer = o Args(0) End If If str Computer = "" Then WScript.Additionally, if Windows Update on the computer is in such a state that automatic self-updates are failing, you can't use the WUA API to recover from that state.When necessary, to ensure that users have the latest WUA, prompt them to install KB949104 or the latest WUA.I am part of a hugh organization so I don't have admin rights to create my own gpo's. I get this now 2006-04-26 912 b5c AU Triggering AU detection through Detect Now API 2006-04-26 912 768 AU ############# 2006-04-26 912 768 AU ## START ## AU: Search for updates 2006-04-26 912 768 AU ######### 2006-04-26 912 768 AU Hey you work at FSU and live in Tally? '------------------ ' ver 2.8 17-Nov-2003 ' Check Automatic Update settings ' '------------------ On Error Resume Next Set obj Wsh Net = Create Object("Wscript. Quit End if str Computer = lcase(str Computer) if left(str Computer,2)="\\" then str Computer=right(str Compu 0 Then msgbox "Connection Error to computer:" & VBCRLF & VBCRLF & " " & str Computer & VBCRLF, vb Critical, "Connection Error" WScript.Quit End If Resultmsg = "Automatic Update Settings " & VBCRLF & VBCRLF str Msg = "No Auto Update: " str Key Path = "Software\Policies\Microso Resultmsg = Resultmsg & str Msg & Get No Auto Update(dw Value) & VBCRLF & VBCRLF Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured in Policy" & VBCRLF & VBCRLF End If str Msg = "Use SUS Server: " str Key Path = "Software\Policies\Microsoe Resultmsg = Resultmsg & str Msg & str Value & VBCRLF Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured in Policy" & VBCRLF End If str Msg = " - SUS Status Server: " str Key Path = "Software\Policies\Microsoe Resultmsg = Resultmsg & str Msg & str Value & VBCRLF & VBCRLF Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured in Policy" & VBCRLF & VBCRLF End If Else Resultmsg = Resultmsg & VBCRLF End If Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured in Policy" & VBCRLF Resultmsg = Resultmsg & " - Client will download updates from windowsupdate.Resultmsg = Resultmsg & str Msg & getday(dw Value) & VBCRLF Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured in Policy" & VBCRLF End If str Msg = " - Scheduled Install Time: " str Key Path = "Software\Policies\Microso Resultmsg = Resultmsg & str Msg & dw Value &":00" & VBCRLF & VBCRLF Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured in Policy" & VBCRLF End If Else Resultmsg = Resultmsg & VBCRLF End If Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured in Policy" & VBCRLF str Msg = " - User controlled setting: " str Key Path = "Software\Microsoft\Window Resultmsg = Resultmsg & str Msg & getday(dw Value) & VBCRLF Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured" & VBCRLF End If str Msg = " - Scheduled Install Time: " str Key Path = "Software\Microsoft\Window Resultmsg = Resultmsg & str Msg & dw Value &":00" & VBCRLF & VBCRLF Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured" & VBCRLF & VBCRLF End If Else Resultmsg = Resultmsg & VBCRLF End If Else Resultmsg = Resultmsg & str Msg & "Setting Not present" & VBCRLF & VBCRLF End If End If str Msg = "No Auto Reboot with Logged on Users: " str Key Path = "Software\Policies\Microso Resultmsg = Resultmsg & str Msg & Get No Auto Reboot(dw Value) & VBCRLF & VBCRLF Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured in Policy" & VBCRLF Resultmsg = Resultmsg & " - Default action: Users will be given a 5 minute countdown" & VBCRLF & VBCRLF End If str Msg = "Reschedule Wait Time: " str Key Path = "Software\Policies\Microso If dw Value = "0" Then Resultmsg = Resultmsg & str Msg & "Disabled by setting value: " & dw Value & VBCRLF & VBCRLF End If If dw Value = "1" Then Resultmsg = Resultmsg & str Msg & dw Value &" minute" & VBCRLF & " - Any missed scheduled installation will occur after startup" & VBCRLF & VBCRLF End If If dw Value "60" Then Resultmsg = Resultmsg & str Msg & "Invalid setting" & VBCRLF & " - Value is outside of expected range for this setting: " & dw Value & VBCRLF & VBCRLF End If Else Resultmsg = Resultmsg & str Msg & "Setting Not Configured in Policy" & VBCRLF Resultmsg = Resultmsg & " - Any missed scheduled installations will be rescheduled to a later time" & VBCRLF & VBCRLF End If str Msg = "AU State: " str Key Path = "Software\Microsoft\Window Resultmsg = Resultmsg & str Msg & Get AUState(dw Value) & VBCRLF & VBCRLF Else Resultmsg = Resultmsg & str Msg & "Setting Not present" & VBCRLF & VBCRLF End If Resultmsg = Resultmsg & "AUBehave utility is under development, check back for updates and report errors. SUSserver.com/ ~ Take control of your Windows Updates" Msg Box Resultmsg,,str Computer set o Reg = nothing Function Get No Auto Update(Index) Select Case Index Case 0 Get No Auto Update = "0 - Auto Updates are Enabled by Policy" Case 1 Get No Auto Update = "1 - Auto Updates are Disabled by Policy" Case Else Get No Auto Update = "Error in this value" End select End Function Function Get Use WUServer(Index) Select Case Index Case 0 Get Use WUServer = "0 - Client will download updates from windowsupdate.microsoft.com" Case 1 Get Use WUServer = "1 - Client will connect to your SUS Server" Case Else Get Use WUServer = "Error in this value" End select End Function Function Get Day(Index) Select Case Index Case "0" Get Day = "Every Day" Case "1" Get Day = "Every Sunday" Case "2" Get Day = "Every Monday" Case "3" Get Day = "Every Tuesday" Case "4" Get Day = "Every Wednesday" Case "5" Get Day = "Every Thursday" Case "6" Get Day = "Every Friday" Case "7" Get Day = "Every Saturday" Case Else Get Day = "Error in this value" End select End Function Function Get AUOptions(Index) Select Case Index Case "0" Get AUOptions = "0" Case "1" Get AUOptions = "1 - Disabled in User Settings" Case "2" Get AUOptions = "2 - Notify Admin-priv user of a pending update waiting to be downloaded.