Delphi-PRAXiS - jwadhcpsapi jemand Erfahrung damit?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - jwadhcpsapi jemand Erfahrung damit? (https://www.delphipraxis.net/158990-jwadhcpsapi-jemand-erfahrung-damit.html)

jwadhcpsapi jemand Erfahrung damit?

Hallo,

habe externen DHCP-Server(MS-Windows2003) und moechte gerne den DHCP-Server abfragen nach Name,IP-Adresse, MAC-Adresse.
Dafuer fand ich diese Unit. Leider gibt es nur Returncodes 5 bzw 1722. eine RPC Verbindung wurde vorher aufgebaut.
Jemand vielleicht Erfahrung damit?

P.S.: wieso steht oben Delphi 5 obwohl Delphi 7 hab? *gruebel*

AW: jwadhcpsapi jemand Erfahrung damit?

Zitat:

Zitat von Der.Kaktus (Beitrag 1087253)

Bei jeder einzelnen Funktion? Oder eine bestimmte? Die Meldungstexte zu 5 und 1722 kennst du? Weil eine RPC Verbindung kannst du nicht selbst aufbauen; das macht die Funktion x selbst.

Könnte aber auch die Firewall sein.

AW: jwadhcpsapi jemand Erfahrung damit?

Bei Getversion..und Enum mal die..mal die andere Fehlermeldung...
ohh, kann man nicht?..dachte geht mit net use..OK..Danke...
Firewall muesste ich schauen was der Router evtl. sperrt DHCP-Server steht an anderem Standort als VM.
Lokal habe ich keine aktiviert(Firma)

Danke erstmal :-)

AW: jwadhcpsapi jemand Erfahrung damit?

Zitat:

Zitat von Dezipaitor (Beitrag 1090196)

Zitat:

Zitat von Der.Kaktus (Beitrag 1087253)

so,alles getestet.
- Firewall ist frei (RPC Port 139)
- resultwert =5 (rpc??)

hier mal bissl Quelltext..vielleicht liegts ja dadran?

Delphi-Quellcode:

			procedure TForm1.Button1Click(Sender: TObject);

var res1:DWORD;

    prefm:DWord;

    dwread,dwtotal:DWORD;

    hResumeHandle: DHCP_RESUME_HANDLE;

    IPArray:LPDHCP_IP_ARRAY ;

    maV,miV:LPDWORD;

begin

 res1:=DhcpGetVersion('192.xxx.xxx.xxx', @maV,@miV); //result=5

 prefm:=255;

 res1:=DhcpEnumSubnets('192.xxx.xxx.xxx',hresumehandle,prefm,@IPArray,dwread,dwtotal);//result=5

end;