Questo script vi permetterà di aggiornare la vostra zona DNS.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\MicrosoftDNS")
Set colItems = objWMIService.ExecQuery _
("Select * from MicrosoftDNS_Zone Where Name = 'zona_dns_da_aggiornare'")
For Each objItem in colItems
objItem.UpdateFromDS()
Next
Nessun commento:
Posta un commento