ripdad Posted April 26, 2012 Share Posted April 26, 2012 Tested on WinXP and Win7. Let me know if any problems, please. expandcollapse popup; 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 "The mediocre teacher tells. The Good teacher explains. The superior teacher demonstrates. The great teacher inspires." -William Arthur Ward Link to comment Share on other sites More sharing options...
guinness Posted April 26, 2012 Share Posted April 26, 2012 Nice, was meant to do something like this for the Snippets section, but seems I don't need to anymore. Thanks. Not saying it's a bad thing but a lot of error checking there. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
ripdad Posted April 26, 2012 Author Share Posted April 26, 2012 Just covering all the bases I could think of. And I have seen every one of them too! Thanks. "The mediocre teacher tells. The Good teacher explains. The superior teacher demonstrates. The great teacher inspires." -William Arthur Ward Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now