How To Restart Windows DNS Service By VbScirpt?
Problem
Sometimes you need to re-start Windows DNS Service periodically in your Windows 2008/2003 server.
Solution
You can write a .vbs script file and schedule it as Windows task.
'Restart DNS
'-----------------------Stopping
DNS----------------------------
Wscript.Echo("Stopping
DNS........")
strComputer
= "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='DNS'}
Where " _
& "AssocClass=Win32_DependentService
" & "Role=Antecedent" )
For each objService
in colServiceList
objService.StopService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service
where Name='DNS'")
For each objService
in colServiceList
errReturn
= objService.StopService()
Next
Wscript.Echo("DNS
Stopped")
Wscript.Sleep 20000
'-----------------------Starting
DNS----------------------------
Wscript.Echo("Starting
DNS........")
strComputer
= "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service
where Name='DNS'")
For each objService
in colServiceList
errReturn
= objService.StartService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='DNS'}
Where " _
& "AssocClass=Win32_DependentService
" & "Role=Dependent" )
For each objService
in colServiceList
objService.StartService()
Next
Wscript.Echo("DNS
Started")
|
Navigator
Other How-Tos
Express Windows Server
CPU: Intel Core 2 Duo E8400
CPU Speed: 3.00GHz
Cache: 6MB
RAM: 4GB RAM
Disk: 2x320GB SATA
RAID: RAID 1
Bandwidth: 1000GB
Windows 2008/2003: Free
IP Addresses: 8
Monthly: $149.00
Detail...
Standard Windows Server
CPU: Quad-Core Xeon E5410
CPU Speed: 2.33GHz
Cache: 12MB
RAM: 4GB RAM
Disk: 2x146GB SCSI
RAID: RAID 1
Bandwidth: 1500GB
Windows 2008/2003: Free
IP Addresses: 8
Monthly: $259.00
Detail...
|