Hallo Leute,

ich rufe über den powershell folgenden Befehl auf und dieser funktioniert auch:

markieren

Code:

ShellExecute(0, 'runas', 'powershell', 'netsh interface set interface "ethernet" disable', nil, SW_HIDE);

Wenn ich aber mehrere Ethernet Adapter habe und ich möchte "Ethernet 2" deaktivieren, dann funktioniert es nicht mehr z.b.:

markieren

Code:

ShellExecute(0, 'runas', 'powershell', 'netsh interface set interface "ethernet 2" disable', nil, SW_HIDE);

Gebe ich es aber direkt in der Powershell ein funktioniert es.

ACHTUNG: Diese Befehle funktionieren nur als Administrator.

Zusätzlich suche ich einen Befehl wo ich die Namen der Verbindungen rausbekomme. Also "Ethernet 2", "Ethernet 3", "wlan" usw.
Die vorhanden Netzwerkkarten bekomme ich raus aber eben nicht die dazu passenden Namen, Siehe ganz unten:
https://stackoverflow.com/questions/...twork-adapters

Die PowerShell würde ich komplett aus der Gleichung bzw. Befehlszeile nehmen, weil die unnötig ist. Netsh.exe ist bereits ein eigenes Programm. Folgendes sollte also ausreichen:

markieren

Delphi-Quellcode:

ShellExecute(0, 'runas', 'netsh.exe', 'interface set interface "ethernet" disable', nil, SW_HIDE);
{}

Dann würde ich die Rückgabe von ShellExecute auswerten, um herauszubekommen, warum es nicht funktioniert.

Grüße
Dalai

Spitze Danke!!! Funktioniert jetzt auch mit "ethernet 2"

Jetzt fehlt mir nur noch die liste der ethernetadapter

Zur Not "ipconfig /all" aufrufen und die Ausgabe auswerten.
Dazu entweder mit der verfügbaren Komponente die Konsolenausgabe
abgreifen oder Ausgabe mittels > in eine Datei umleiten.