Einzelnen Beitrag anzeigen

Benutzerbild von Der.Kaktus
Der.Kaktus

Registriert seit: 22. Jan 2008
Ort: Erfurt
958 Beiträge
 
Delphi 7 Enterprise
 
#5

AW: jwadhcpsapi jemand Erfahrung damit?

  Alt 23. Mär 2011, 06:19
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;
Gruss Kaki

Repeat Until true=false;
  Mit Zitat antworten Zitat