Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
Dim objFirewall As Object
Dim objPolicy As Object
Dim objPort As Object
Dim colPorts As Object
objFirewall = CreateObject("HNetCfg.FwMgr")
objPolicy = objFirewall.LocalPolicy.CurrentProfile
objPort = CreateObject("HNetCfg.FwOpenPort")
objPort.Port = 1433
objPort.Name = "SQL Server"
objPort.Enabled = True
colPorts = objPolicy.GloballyOpenPorts
Open in new window
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.