Befehl zum IP-Adresse formatieren?
Verfasst: Do Jan 30, 2020 1:16 pm
Sehe ich das richtig, dass die IPs in der Datenbank ohne Punkt gespeichert werden und ich sie manuell konvertieren muss, damit Sie A.B.C.D haben? 
Ich wollte mir ein Consolen-Command schreiben, worüber ich TeamViewer mit der IP des Clients als Parameter aufrufe. Die IPs sind aber anscheint ohne Punkt und mit 0 aufgefüllt gespeichert. Den einzigen Weg den ich bis jetzt gefunden habe, ist ein Pascal-Script:
P.S.: Und warum ignoriert das Forum bei [ code ] die Zeilenumbrüche?
Ich wollte mir ein Consolen-Command schreiben, worüber ich TeamViewer mit der IP des Clients als Parameter aufrufe. Die IPs sind aber anscheint ohne Punkt und mit 0 aufgefüllt gespeichert. Den einzigen Weg den ich bis jetzt gefunden habe, ist ein Pascal-Script:
Geht das nicht auch etwas Anwenderfreundlicher? Vielleicht mit einem ConvertIP-Befehl?uses
Classes, SysUtils;
var
sDBIP, sIP: string;
iIP1, iIP2, iIP3, iIP4: integer;
begin
sDBIP := GetVarContent('CLIENT_VALUES.PRIMARYIP');
//sDBIP := '010011100001';
iIP1 := StrToInt(Copy(sDBIP, 1, 3));
iIP2 := StrToInt(Copy(sDBIP, 4, 3));
iIP3 := StrToInt(Copy(sDBIP, 7, 3));
iIP4 := StrToInt(Copy(sDBIP, 10, 3));
sIP := IntToStr(iIP1) + '.' + IntToStr(iIP2) + '.' + IntToStr(iIP3) + '.' + IntToStr(iIP4);
SetVarContent('CLIENT_IP', sIP);
// Writing to Log
LogMessage(sDBIP + ' = ' + sIP);
// Returns 0 as script result
Result := 0;
end;
Connect with TeamViewer__{777B3FEE-8AE1-4973-A905-A17C64EB1F4A}.sim- (16.57 KiB) 242-mal heruntergeladen
