|
Sujet : SUS |
| ste29 |
bonjour,
ça ne m'aide pas beaucoup
en fait je veux mettre dans mon script l'option 4 que l'on retrouve dans le modele d'administration
slts
stéphane |
| ste29 |
désolé
voici mon script
Dim WSHShell
Set WSHShell = wscript.CreateObject("wscript.Shell" )
Function RegExists(value)
On Error Resume Next
Set WS = CreateObject("WScript.Shell" )
val = WS.RegRead(value)
If (Err.number = -2147024893) Or (Err.number = -2147024894) Then
RegExists = False
Else
RegExists = True
End If
End Function
WSHShell.Run "net stop wuauserv"
Wscript.Sleep 10000
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\wuauserv\start", 2, "REG_DWORD"
Wscript.Sleep 5000
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoUpdate", 0, "REG_DWORD"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\AUOptions", 4, "REG_DWORD"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallDay", 0, "REG_DWORD"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU\ScheduledInstallTime", 8, "REG_DWORD"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\UseWUServer", 1, "REG_DWORD"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\NoAutoRebootWithLoggedOnUsers", 1, "REG_DWORD"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\AU\RescheduleWaitTime", 1, "REG_DWORD"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\WUServer", "http://....", "REG_SZ"
WSHShell.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\WindowsUpdate\WUStatusServer", "http://....", "REG_SZ"
If RegExists ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\windowsupdate\auto update\LastWaitTimeout" ) Then
WSHShell.RegDelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\windowsupdate\auto update\LastWaitTimeout"
else
End If
If RegExists ("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\windowsupdate\auto update\DetectionStartTime" ) Then
WSHShell.RegDelete "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\windowsupdate\auto update\DetectionStartTime"
else
End If
WSHShell.Run "net start wuauserv"
Wscript.Sleep 10000
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colRunningServices = objWMIService.ExecQuery ("Select * from Win32_Service" )
For Each objService in colRunningServices
if objService.DisplayName = "Automatic Updates" then
if objService.State = "Stopped" then
wscript.echo "Automatic Updates a été configuré. Vous devez redémarrer l'ordinateur pour pour que les paramètres soient effectifs."
else
wscript.echo "Automatic Updates a été configuré."
end if
end if
Next
wscript.Quit(0)
merci
slts |
