Gesammtes Netzwerk blockieren

[winduff]

Juten Tach,

Gibts einen Befehl / Prozedur / API , alle Netzwerkverbindungen (Internet etc) zu blockieren?

Lg
Chris

[DarkDragon]

ZoneAlarm mäßig, was? Nein nein nein, so geht das doch nicht. Wenn jeder wüsste wie das geht gäbe es ja nurnoch Spyware, Viren, ..., die die Blockade wieder entblocken. Und so ist das ja nicht gedacht.

[stbi]

Gibts einen Befehl / Prozedur / API , alle Netzwerkverbindungen (Internet etc) zu blockieren?

Nach den eher etwas mechanisch orientierten Ansätzen hätte ich folgende Ideen:

1. Netzwerkverbindung über DHCP:
Es genügt, das DHCP-Lease aufzugeben. Das geht zum einen über den Shell-Befehl

Code: Alles auswählen

IPCONFIG /RELEASE

, zum anderen über WMI:

Code: Alles auswählen

strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration " _
        & "Where IPEnabled = True")
For Each objNetCard in colNetCards
    objNetCard.ReleaseDHCPLease()
Next

Vielleicht kann hier jemand den VB-Code auf PB umsetzen, ich hab gerade keine Zeit, sorry.

Statische IP-Verbindungen lassen sich per WMI jedoch nicht de-/aktivieren. Und mit

Code: Alles auswählen

IPCONFIG /RENEW

bekommst Du wieder ein DHCP-Lease.

2. Die Routing-Methode:
Du änderst den Eintrag fürs Default Gateway auf einen Unfugswert, dann gehen alle Datenpakete ins Nirwana. Auch das geht über WMI

Code: Alles auswählen

strComputer = "."
Set objWMIService = GetObject( _
    "winmgmts:\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * from Win32_NetworkAdapterConfiguration " _
        & "where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
 
For Each objNetAdapter in colNetAdapters
    errEnable = objNetAdapter.EnableStatic( _
        strIPAddress, strSubnetMask)
    errGateways = objNetAdapter.SetGateways(_
        strGateway, strGatewaymetric)
Next

oder per Shell-Befehl ROUTE.

So, falls mir noch mehr einfällt, melde ich mich nochmal.

Gruß Stefan

[Kiffi]

> Vielleicht kann hier jemand den VB-Code auf PB umsetzen, ich hab
> gerade keine Zeit, sorry.

oder aber man verwendet die ScriptControl-Lib von Thomas.

Grüße ... Kiffi

[bobobo]

hab mal aufgeräumt .. der Rest im Mülleimer


zum Thema fällt mir da noch devcon.exe ein .. ein Tool aus
dem WinXP RSDK mit dem man Geräte (auch Netzwerkkarten) aus
und anschalten kann.

[winduff]

danke, darauf hab ich gewartet

[Kaeru Gaman]

> devcon.exe

cool, DeviceControl...

hat aber nix mit DEFCON (DefenseCondition) zu tun..