MS Firewall steuern

T

THRALL

0
in vb kann man per Schnitstelle die MS Firewall an/ausschalten.
Neulich habe ich in einem Installationsassistenten die Option "Zur MS Whitelist hinzufügen" gesehen. Wie wurde das realiesiert? (MS wird doch keine Schnitstelle anbieten mit der man die Firewall nutzlos machen kann)

edit:
Die gibt es !!!
Man kann nach belieben Programme und Ports hinzufügen ohne dass der user was merkt. 8o

Auf wunsch kann ich den Code gerne Posten oder per PN senden
 
Geht das auch wenn der User keine Adminrechte hat? Würd mich mal interessieren.
 
Ich bin mir ziemlich sicher, dass du dafür Adminrechte brauchst.
Man kann ncihtmal als angemeldter User _wissentlich_ die Einstellungen ohne Adminrechte ändern.
 
Hab auch mal danach gesucht und bin fündig geworden. =)
Alle die jetzt einen Source wollen hier ist er:
Zum Source

PS: Denke auch nicht, dass das funktioniert, wenn man nicht Admin ist. Jedoch ist die Chance, dass vor einem Windowsrechner ein "Admin" :P sitzt ziemlich gross.

edit:
noch eine kleine Zugabe:
Wenn die Firewall einfach aus (bzw. danach wieder an) gemacht werden soll geht das auch über
Code: 
shell "net stop SharedAccess"
bzw.
Code: 
shell "net start SharedAccess"

Grüsse
Disenchant
 
Hier der Code fürs Programme hinzufügen (VB.NET)
Code: 
Public Sub addProg(ByVal Name As String, ByVal PathToExe As String)


        Dim fwMgr As NetFwTypeLib.INetFwMgr
        Dim app As NetFwTypeLib.INetFwAuthorizedApplication

        fwMgr = GetFwMgr()
        app = GetAuthApp()
        app.Enabled = True
        app.Name = Name
        app.Scope = NetFwTypeLib.NET_FW_SCOPE_.NET_FW_SCOPE_ALL
        app.IpVersion = NetFwTypeLib.NET_FW_IP_VERSION_.NET_FW_IP_VERSION_ANY

        app.ProcessImageFileName = PathToExe

        fwMgr.LocalPolicy.CurrentProfile.AuthorizedApplications.Add(app)

    End Sub

    Private Function GetFwMgr() As NetFwTypeLib.INetFwMgr
        Dim oINetFwMgr As NetFwTypeLib.INetFwMgr
        Dim NetFwMgrObject As Object
        Dim NetFwMgrType As Type


        NetFwMgrType = Type.GetTypeFromCLSID( _
          New Guid("{304CE942-6E39-40D8-943A-B913C40C9CD4}"))


        NetFwMgrObject = Activator.CreateInstance(NetFwMgrType)
        oINetFwMgr = NetFwMgrObject

        Return oINetFwMgr
    End Function
    Private Function GetAuthApp() As NetFwTypeLib.INetFwAuthorizedApplication
        Dim oINetFwMgr As NetFwTypeLib.INetFwAuthorizedApplication
        Dim NetFwMgrObject As Object
        Dim NetFwMgrType As Type


        NetFwMgrType = Type.GetTypeFromProgID("HNetCfg.FwAuthorizedApplication")


        NetFwMgrObject = Activator.CreateInstance(NetFwMgrType)
        oINetFwMgr = NetFwMgrObject

        Return oINetFwMgr
    End Function
 
Um antworten zu können musst du eingeloggt sein.
Zurück
Oben