Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2159
  • Last Modified:

Resolve Server Name to IP

Is there a script that resolve a server name to IP address?
0
dongocdung
Asked:
dongocdung
  • 2
3 Solutions
 
aschaef217Commented:
Give this page a look.  It has a bat script called resolve.bat that will resolve the IP, DNS name, and Netbios name.  I'm sure you can remove the other 2 parts that resolve DNS and Netbios if you don't need them.
http://windowsitpro.com/article/articleid/81635/jsi-tip-8389-resolve-script-returns-the-ip-address-dns-name-and-netbios-name-of-a-computer.html
 
0
 
dongocdungAuthor Commented:
Can I get VB scripting instead of bat file?
0
 
danaseamanCommented:
Vb6 code to resolve IP from URL:
URL to IP ... http://vbnet.mvps.org/code/network/iplookup.htm

Note: In demo Rem line "Text1.Text = GetMachineName()" so you can enter URL in Text1.
0
 
aschaef217Commented:
Here is another script to do it in VB.
'****************************************************************
'  File:    getipname.vbs  (WSH for VBscript)
'  Author:           M. Gallant    09/30/2001
'
'  Based on script by M. Harris & T. Lavedas:
'  posted to: microsoft.public.scripting.vbscript  2000/07/21  
 
'  Reads IP addresses via:
'    ipconfig.exe  (NT4 and Win2000)
'    winipcfg.exe  (Win95)
'  For NT4, Win2000 resolves IP addresses to FQDN names via:
'     nslookup.exe     (with default DNS server)
' 
'****************************************************************
'Modified 2/2/02 to just show the IP addresses - Doug Knox
'Original script located at:  http://home.istar.ca/~neutron/wsh/IPInfo/getipname.html
arAddresses = GetIPAddresses()
 
info = ""
 
for each ip in arAddresses
    info = info & ip & vbTab & GetFQDN(ip) & vbCR
next
 
  WScript.echo info
 
Function GetFQDN(ipaddress)
'====
' Returns Fully Qualified Domain Name
' from reverse DNS lookup via nslookup.exe
' only implemented for NT4, 2000
'====
  set sh = createobject("wscript.shell")
  set fso = createobject("scripting.filesystemobject")
  Set Env = sh.Environment("PROCESS")
 
  if Env("OS") = "Windows_NT" then
    workfile = fso.gettempname
    sh.run "%comspec% /c nslookup " & ipaddress & "  > " & workfile,0,true
   set sh = nothing
   set ts = fso.opentextfile(workfile)
   data = split(ts.readall,vbcr)
   ts.close
   set ts = nothing
   fso.deletefile workfile
   set fso = nothing
  for n = 0 to ubound(data)
    if instr(data(n),"Name") then
      parts = split(data(n),":")
        hostname= trim(cstr(parts(1)))
       Exit For
    end if
    hostname = "could not resolve IP address"
  next
    GetFQDN = hostname
  else
   set sh = nothing
   set fso = nothing
   GetFQDN = ""
  end if
End Function
 
 
Function GetIPAddresses()
'=====
' Returns array of IP Addresses as output
' by ipconfig or winipcfg...
'
' Win98/WinNT have ipconfig (Win95 doesn't)
' Win98/Win95 have winipcfg (WinNt doesn't)
'
' Note: The PPP Adapter (Dial Up Adapter) is
' excluded if not connected (IP address will be 0.0.0.0)
' and included if it is connected.
'=====
  set sh = createobject("wscript.shell")
  set fso = createobject("scripting.filesystemobject")
 
  Set Env = sh.Environment("PROCESS")
  if Env("OS") = "Windows_NT" then
    workfile = fso.gettempname
    sh.run "%comspec% /c ipconfig > " & workfile,0,true
  else
    'winipcfg in batch mode sends output to
    'filename winipcfg.out
    workfile = "winipcfg.out"
    sh.run "winipcfg /batch" ,0,true
  end if
  set sh = nothing
  set ts = fso.opentextfile(workfile)
  data = split(ts.readall,vbcr)
  ts.close
  set ts = nothing
  fso.deletefile workfile
  set fso = nothing
  arIPAddress = array()
  index = -1
  for n = 0 to ubound(data)
    if instr(data(n),"IP Address") then
      parts = split(data(n),":")
      if trim(parts(1)) <> "0.0.0.0" then
        index = index + 1
        ReDim Preserve arIPAddress(index)
        arIPAddress(index)= trim(cstr(parts(1)))
      end if
    end if
  next
  GetIPAddresses = arIPAddress
End Function

Open in new window

0

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now