jwadhcpsapi jemand Erfahrung damit?

[Der.Kaktus]

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*

[Der.Kaktus]

PUSH

[Dezipaitor]

Zitat von Der.Kaktus:

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.

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.

[Der.Kaktus]

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

[Der.Kaktus]

Zitat von Dezipaitor:

Zitat von Der.Kaktus:

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.

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.

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;