Staff
contents := 'Execution result: ' + ExecAndWaitForEnd('ping', 'ComputerName'));
Then, you will be able to extract the Ip from the contents
var
MyRegExp: OleVariant;
ResStr: String;
begin
MyRegExp:=HISUtils.RegExpr;
ResStr:='';
MyRegExp.Expression:='(\d{1,3}\.){3}\d{1,3}';
if
MyRegExp.Exec(TextOutput) then
ResStr :=
MyRegExp.Match[0];
result := ResStr;
end;
function ResolveIP(ComputerName): string;
var
objShell,objExec,RegEx;
var
StrOutput: string;
begin
objShell: = Sys.OleObject['WScript.Shell'];
objExec: = objShell.Exec('Ping ' + ComputerName + ' -n 1');
StrOutput: = objExec.StdOut.ReadAll;
RegEx: = HISUtils.RegExpr;
RegEx.Expression: = '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})';
Regex.Exec(StrOutput);
if RegEx.MatchPos[0] then
result: = RegEx.Substitute('$&')
else
result: = 'IP Address colud not be resolved.!';
end;
var
objShell,objExec,RegEx;
var
StrOutput: string;
begin
objShell: = Sys.OleObject['WScript.Shell'];
objExec: = objShell.Exec('Ping ' + ComputerName + ' -4');
StrOutput: = objExec.StdOut.ReadAll;
RegEx: = HISUtils.RegExpr;
RegEx.Expression: = '(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})';
Regex.Exec(StrOutput);
if RegEx.MatchPos[0] then
result: = RegEx.Substitute('$&')
else
result: = 'IP Address colud not be resolved.!';
end;