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;
P.S.: Und warum ignoriert das Forum bei [ code ] die Zeilenumbrüche?