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.

Hola.
Mira yo tengo instalado WSUS 3.0 en un Directorio Activo 2003 pero al entrar
a la consola de WSUS no me muestra los equipos que estan en el dominio. Que
debo de hacer para que me las muestre?

Gracias.

"Edgard Gerardo" wrote:

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.