Vraag : Het plaatsen van automatische updates op vensters 7 met VBS

Hallo,
I am hieronder gebruikend de code om Automatische Updates te plaatsen en het werkt aan mijn de testmachines van Vensters XP.  Wanneer ik binnen op mijn Vensters 7 loop test machines hoewel het een fout van het „Gespecificeerde netwerkmiddel schopt of het apparaat niet meer beschikbaar“ bij Lijn 14 objSettings.NotificationLevel = AU_ENABLE.

I rond heeft gezocht is en ik geen verschillende manier kan vinden om het te doen.  Is er een nieuwe manier met Vensters 7 of Uitzicht?

Thanks,
" codeBody "
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
Set = GetObject („winmgmts: \ \. \ wortel \ cimv2“)
	
	Vastgestelde colServiceList = objWMIService.ExecQuery („selecteer * uit Win32_Service waar Naam = „wuauserv““)
	
	Voor Elke objService in colServiceList
	  objService.StartService ()
	  objService.ChangeStartMode („Automatisch“)
	Daarna
	
	Const AU_ENABLE = 4
	
	Reeks objAutoUpdate = CreateObject („Microsoft.Update.AutoUpdate“)
	Vastgestelde objSettings = objAutoUpdate.Settings
	objSettings.NotificationLevel = AU_ENABLE
	objSettings.Save

Antwoord : Het plaatsen van automatische updates op vensters 7 met VBS

Hallo,

  Als u dit als beheerder in werking stelt zal het werken. Terwijl ik een verschillende fout toen lopend op mijn machine kreeg - het werkte toen het lopen als admin.
Andere oplossingen  
 
programming4us programming4us