No se registran clientes en WSUS

Puedes copiar y pegar el siguiente script:

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'|Este script configura el agente de Windows Update en el servidor cliente, |
'|modificando los valores de las llaves del registro respectivas |
'| |
'| Edgard Hersen, Grupo DeploIT, C.A. |
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

on error resume next
Const ForAppending = 8
Const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
strKeyPathAU = "SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU"
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

' Aqui debes especificar la direccion IP del servidos WSUS entre comillas
WSUSServer =

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("Log.txt", ForAppending, true)
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "oot\default:StdRegProv")
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "oot\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='wuauserv'")

For Each objService in colServiceList
objService.StopService()
next

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'|-Especificacion de la ubicacion de WSUS |

objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"WUServer",WSUSServer

'|-Especificacion de la ubicacion del servidor de Estado de WSUS|

objReg.SetStringValue
HKEY_LOCAL_MACHINE,strKeyPath,"WUStatusServer",WSUSServer

'|-Especificacion del Grupo de Computador donde el servidor estara en el WSUS

'objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,"TargetGroup","<Nombre
del Grupo de Computadores>"

'| |
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

objReg.CreateKey
HKEY_LOCAL_MACHINE,"SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU"
objReg.SetDWordValue HKEY_LOCAL_MACHINE,strKeyPathAU,"UseWUServer","1"

'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
'| Configuracion de Automatic Update: |
'| |
'|-NoAutoUpdate |
'| 0: Automatic Updates enabled |
'| 1: Automatic Updates disabled |

objReg.SetDWordValue HKEY_LOCAL_MACHINE,strKeyPathAU,"NoAutoUpdate","0"

'| |
'|-AUOptions |
'| 2: Notify of download and installation |
'| 3: Auto-download and notify of installation |
'| 4: Auto-download and scheduled installation |

objReg.SetDWordValue HKEY_LOCAL_MACHINE,strKeyPathAU,"AUOptions","2"

'| |
'|-ScheduledInstallDay |
'| 1-7: Indicates the days of the week, starting at 1 for Monday|

'objReg.SetDWordValue
HKEY_LOCAL_MACHINE,strKeyPathAU,"ScheduledInstallDay","2"

'| |
'|-ScheduledInstallTime |
'| 0-23: Time of day in 24-hour format |

'objReg.SetDWordValue
HKEY_LOCAL_MACHINE,strKeyPathAU,"ScheduledInstallTime","2"

'| |
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

For Each objService in colServiceList
objService.StartService()
next

Set autoUpdateClient =
CreateObject("Microsoft.Update.AutoUpdate",strComputer)
AutoUpdateClient.detectnow()

If Err.Number <> 0 Then
objFile.WriteLine strComputer & VbTab & Err.Description
msgbox "El Script finalizo con errores: " & Err.Description
Err.Clear
else
objFile.WriteLine strComputer & VbTab & "Listo"
msgbox "El script finalizo sin errores"
End if

objFile.Close



"ezequiel" wrote:

Instale la version wsus 3.0 y no estoy usando Active Directory y tengo 4 pc
con windows xp home y 4 con windows 2000 pro, el problema es que en la
consola no me aparece ninguna de las 8 pc. Alguien sabe que hay que tocar en
la registry para poder configurarlo a mano, ya que en windows xp home, no
puedo editar las politicas de seguridad local.

Por favor agradezco toda ayuda!
Muchas gracias.