AutoIt
; Example Local $rtn = _NSLookup('127.0.0.1') MsgBox(0, '', $rtn) Func _NSLookup($IP, $rtnMode = 0) $IP = StringStripWS($IP, 8) Local $a = StringRegExp($IP, '[^\d\.]', 3) If IsArray($a) Then MsgBox(8240, '_NSLookup', 'Invalid Character in String --> ' & $a[0] & @TAB) Return SetError(-1, 0, -1) EndIf Local $sPath = @WindowsDir & '\system32\nslookup.exe' If Not FileExists($sPath) Then MsgBox(8240, '_NSLookup', 'File Not Found:' & @CRLF & $sPath & @TAB) Return SetError(-2, 0, -2) EndIf Local $stdout = '' Local $pid = Run($sPath & ' ' & $IP, '', @SW_HIDE, 6) If $pid = 0 Then MsgBox(8240, '_NSLookup', 'Cannot run nslookup.exe' & @TAB); policy? Return SetError(-3, 0, -3) EndIf Do $stdout &= StdoutRead($pid, 0, 0) Until @error $stdout = StringStripWS(StringReplace(StringStripCR($stdout), @LF, '|'), 7) If StringLen($stdout) > 20 Then $a = StringRegExp($stdout, '\:\s(.*?)\|', 3) If UBound($a) = 4 Then If $rtnMode Then Return SetError(0, 0, $a); Return Array of Items (zero based) Else Return SetError(0, 0, $a[2]); Return Domain Name EndIf EndIf EndIf MsgBox(8240, '_NSLookup', 'Nothing Found' & @TAB) Return SetError(-4, 0, -4) EndFunc
