Enable File and Printer Sharing Through Windows Firewall

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

 

-------------------
Thanks,
http://sccm07.blogspot.com/

Enable File and Printer Sharing Through Windows Firewall

Set objFirewall = CreateObject("HNetCfg.FwMgr")
Set objPolicy = objFirewall.LocalPolicy.CurrentProfile

Set colServices = objPolicy.Services
Set objService = colServices.Item(0)
objService.Enabled = TRUE

 

-------------------
Thanks,
http://sccm07.blogspot.com/

Excelent Artical for WMI Troubleshooting Tips

WMI Troubleshooting Tips

 

 

http://blogs.technet.com/configmgrteam/archive/2009/05/08/wmi-troubleshooting-tips.aspx

-------------------
Thanks,
http://sccm07.blogspot.com/

Excelent Artical for WMI Troubleshooting Tips

WMI Troubleshooting Tips

 

 

http://blogs.technet.com/configmgrteam/archive/2009/05/08/wmi-troubleshooting-tips.aspx

-------------------
Thanks,
http://sccm07.blogspot.com/