NSLookup with VB.NET (2008)

[nathanael890]

Hey there guys.

I want to ask if there is any code that can be done on NSLookup?
What would be the code to get the name, addresses, and the aliases of a site?

I've searched on google but nothing worked.

[Hassan]

Here is a good website that provides general information about the site:

Mpgh.net, Comprehensive Information About Mpgh | Quarkbase

All you need is good string manipulation skills so you can extract what you need to. I suggest using Regex. I may do it, but I am a bit busy atm.

[nathanael890]

Oh. I didn't know you're not a minion force. <.<
Grats.

btw. I haven't yet used Regex from my applications and I don't know how to use them.
I'm such a noob. =.=

[NextGen1]

I wrote another Down & Dirty Function.

    Public Function NDlookup(ByRef Domain As String)       
         Dim Proc As New Process
        With Proc.StartInfo
            .Arguments = Domain
            .UseShellExecute = False
            .RedirectStandardError = True
            .FileName = "nslookup.exe"
            .CreateNoWindow = True
            .RedirectStandardOutput = True

        End With
        Try
            Proc.Start()
            If Proc.WaitForExit(8000) Then
                'Read Output
                Return (Proc.StandardOutput.ReadToEnd)
            Else
                'Failed
                Return ("TimeOut")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Function

This Function will Return the output from NSlookup
To use it

All you have to do is "bind" the returned information somewhere.

MsgBox(NDlookup("https://mpgh.net"))

or

Label1.text = NDlookup("https://mpgh.net")

etc etc.

Hope it helps

[Jason]

I wrote another Down & Dirty Function.

    Public Function NDlookup(ByRef Domain As String)       
         Dim Proc As New Process
        With Proc.StartInfo
            .Arguments = Domain
            .UseShellExecute = False
            .RedirectStandardError = True
            .FileName = "nslookup.exe"
            .CreateNoWindow = True
            .RedirectStandardOutput = True

        End With
        Try
            Proc.Start()
            If Proc.WaitForExit(8000) Then
                'Read Output
                Return (Proc.StandardOutput.ReadToEnd)
            Else
                'Failed
                Return ("TimeOut")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Function

This Function will Return the output from NSlookup
To use it

All you have to do is "bind" the returned information somewhere.

MsgBox(NDlookup("https://mpgh.net"))

or

Label1.text = NDlookup("https://mpgh.net")

etc etc.

Hope it helps

Quick FYI, you don't include the protocol in the address.

NDLookup("https://mpgh.net")

won't work, but

NDLookup("www.mpgh.net")

Will.

[NextGen1]

 

DNS server handling your query: localhost
DNS server's address: 127.0.0.1#53


Name: mpgh.net
Address: 173.245.61.146
Name: mpgh.net
Address: 199.27.135.56

Same results above from nslookup.exe

 

 

So apparently (if you use W3 or Protocol) it returns everything properly, just the Ip's seem off.
But yea, I wasn't thinking when adding the domain, remember I am also (primarily) a Web Design/Developer which means, most of the time I write out URL's in quotes (single or double ' ") it contains https://
---------------------------------------------

I did however miss two optional arguments that could be passed, so I added them to the function.

Public Function NDlookup(ByRef Domain As String, Optional Server As String = "localhost", Optional Address As String = "127.0.0.1")
        Dim Proc As New Process
        With Proc.StartInfo
            .Arguments = Domain & Server & Address
            .UseShellExecute = False
            .RedirectStandardError = True
            .FileName = "nslookup.exe"
            .CreateNoWindow = True
            .RedirectStandardOutput = True

        End With
        Try
            Proc.Start()
            If Proc.WaitForExit(8000) Then
                'Returns Output 
                Return (Proc.StandardOutput.ReadToEnd)
            Else
                'Failed
                Return ("TimeOut")
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Function

To use:

It's

NDlookup("Domain",Optional Server as string, optional address as string)

Because the last two arguments are optional, they have default arguments
(Domain, Localhost, 127.0.0.1)

Example with optional arguments.

MsgBox(NDlookup("mpgh.net", , ))

Example with "Custom" Arguments.

Msgbox(NDlookup("mpgh.net", nd5.hostgator.com,187,143,2,17)