Windows 7 Forzare la ricerca aggiornamento di Windows Update

Lanciare da shell il seguente comando

wuauclt /detectnow

Inoltre sotto un script VBS per il lancio del comando, con anche opzione /resetauthorization
per forzare la schedulazione.
Lo script salva in un file di log la data di ultima esecuzione per comando.

'force_check_windows_update.vbs
'Forzatura check di Windows update

'http://technet.microsoft.com/it-it/library/cc708617(v=ws.10).aspx

set objShell = CreateObject("WScript.Shell")
strCommand = "wuauclt.exe /resetauthorization /detectnow"
objShell.Exec(strCommand)



'Scrivo nel file di testo l'ultima esecuzione del comando

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile ("force_check_windows_update_log.txt", ForWriting, True)
objTextFile.WriteLine("Ultima esecuzione wuauclt: " & Now())
objTextFile.Close