'February 27, 2006
'Fixes error message "The network connection settings have become corrupted".....
'.... when clicking the "Advanced" tab in Windows Firewall applet (firewall.cpl)
'For Windows XP Service Pack 2 only.
'Copyright © 2006 Ramesh Srinivasan

strComputer = "."
errFlags = 0
sReg = "regsvr32.exe -s "
Set WshShell = CreateObject("Wscript.Shell")
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
 ("Select * from Win32_Service Where Name ='WinMgmt'")
For Each objService in colListOfServices
	If objService.State <> "Running" Then
		rtn = objService.StartService()
		If rtn = 0 Or rtn = 10 Then
			Call RunCMDs
		Else
			errFlags = 1
			Call RunCMDs	
			WScript.Echo "Error " & rtn & " : Error starting WinMgmt service"			
    	End If
    Else
    	Call RunCMDs
    End If    	
Next

Sub RunCMDs
	WshShell.Run "winmgmt /regserver",1, True
	WshShell.Run sReg & "%Windir%\system32\netshell.dll", 1, True
	WshShell.Run sReg & "%Windir%\System32\hnetcfg.dll", 1, True
	WshShell.Run sReg & "%Windir%\system32\wbem\wbemprox.dll", 1, True
	WshShell.Run sReg & "%Windir%\system32\wbem\wbemsvc.dll", 1, True
	WshShell.Run sReg & "%Windir%\system32\wbem\wbemcore.dll", 1, True
	WshShell.Run sReg & "%Windir%\system32\wbem\fastprox.dll", 1, True
	If errFlags = 0 Then
		rtn= MsgBox ("Done. Opening Firewall.cpl applet now", vbOKOnly, "Firewall.cpl fix for Windows XP")
	End If	
End Sub
Set WshShell=Nothing