Windows XP DNS error fix

  • Thread starter Thread starter iced volvo
  • Start date Start date
I

iced volvo

Hi

Just a quick post to tell people about a quick fix the "dns error" in
windows XP.

I had tried all the "cache" fixes with no joy. However this one works
with no need to reboot or reconnect.

Control Panel -> Admin Tools -> Services.

Find DNS CLient and stop it. wait a few seconds then restart DNS
CLient.

Can continue without a reboot or reconnect.

Jon
 
PA Bear said:
Please report back in 24-36 hours, IV.
Click to expand...

A VBS scipr to do this for you (join strngs back together in Notepad):

strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " &
"{Win32_Service.Name='Dnscache'} Where " &
"AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
objService.StopService()
Next
Wscript.Sleep 10000
Set colServiceList = objWMIService.ExecQuery ("Select * from
Win32_Service where Name='Dnscache'")
For each objService in colServiceList
errReturn = objService.StopService()
Next

Wscript.Echo "Stop Completed"

strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='Dnscache'")
For each objService in colServiceList
errReturn = objService.StartService()
Next
Wscript.Sleep 10000
Set colServiceList = objWMIService.ExecQuery("Associators of " &
"{Win32_Service.Name='Dnscache'} Where " &
"AssocClass=Win32_DependentService " & "Role=Dependent" )
For each objService in colServiceList
objService.StartService()
Next

Wscript.Echo "Start Completed"
 
Back
Top