Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

• !!For grabbing IP addresses, also see...
• Automate DHCP Server
• Change from Static IP Address to DHCP
• Change IP Address Automatically
• Determine External IP Address
• Get Extended IP Address Data
• Get IP address of Workstation that Locked out an NT account
• Get MAC Address (Reg Method)
• Get MAC Address
• Get System IP and File Append
• How to Change a Remote IP Address
• How to Check if TCP IP is Installed
• IP Detector and Email Notification
• Look for the Bound IPs
• Massive IP Address Change
• Net Configuration Sample Code
• NT 4.0 IP Address Translation
• Run Winipcfg Write Output Parse Output
• Scan a Local Subnet for IP and Log
• Subnet Calculations
• TCP Port Status Script
• Using WinIpCfg and Grabbing IP with FileRead
• WinItemNameId and IP address

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Look for Bound IP Addresses

Keywords: 	 find bound IP addresses  ipaddr

---

Question:

Is there a way (I am sure there is) that you can look for the bound IPs under 95/98 with WinBatch?

Answer:

In WinNT, rough sample code follows:

hndl=regopenkey(@regmachine,"Software\microsoft\windows nt\currentversion\NetworkCards")
Netcards=regquerykeys(hndl)

ipaddress=""
For i = 1 to itemcount(netcards,@tab)
dhcpip=""
ip=""
mask=""
dhcpmask=""
card=itemextract(i,netcards,@tab)
service=regqueryvalue(@regmachine,"Software\microsoft\windows nt\currentversion\NetworkCards\%card%[servicename]")
nic=regexistkey(@regmachine,"system\currentcontrolset\services\%service%\parameters\tcpip")
if nic == @true
if regexistvalue(@regmachine,"system\currentcontrolset\services\%service%\parameters\tcpip[ipaddress]")
ip=RegQueryMulSz(@regmachine,"system\currentcontrolset\services\%service%\parameters\tcpip[ipaddress]", ":")
endif
if regexistvalue(@regmachine,"system\currentcontrolset\services\%service%\parameters\tcpip[subnetmask]")
mask=regquerymulsz(@regmachine,"system\currentcontrolset\services\%service%\parameters\tcpip[subnetmask]", ":")
endif
if regexistvalue(@regmachine,"system\currentcontrolset\services\%service%\parameters\tcpip[DHCPipaddress]")
dhcpip=RegQueryvalue(@regmachine,"system\currentcontrolset\services\%service%\parameters\tcpip[DHCPipaddress]")
endif
if regexistvalue(@regmachine,"system\currentcontrolset\services\%service%\parameters\tcpip[dhcpsubnetmask]")
dhcpmask=regqueryvalue(@regmachine,"system\currentcontrolset\services\%service%\parameters\tcpip[DHCPsubnetmask]")
endif
endif

if nic==@true
if dhcpip<>"0.0.0.0" && dhcpip<>""
ipaddress=strcat(ipaddress,Service," DHCP:",dhcpip,":",dhcpmask,@tab)
else
ipaddress=strcat(ipaddress,service," Static:",ip,":",mask,@tab)
endif
endif

next 

Hmmm, dusting off old code. This should find those pesky static IP addresses in 95/98:

IP = 0
For X = 0 to 9 by 1
If IP == 0 then IP=RegQueryValue(@REGMACHINE,"System\CurrentControlSet\Services\Class\NetTrans\000%X%[IpAddress]")
If IP == "0.0.0.0" then IP = 0
If IP != 0 then goto GotIP
Next
For Y = 10 to 25 by 1
If IP == 0 then IP=RegQueryValue(@REGMACHINE,"System\CurrentControlSet\Services\Class\NetTrans\00%Y%[IpAddress]")
If IP == "0.0.0.0" then IP = 0
If IP != 0 then goto GotIP
Next 
If IP == 0 then IP="None or DHCP Enabled"
:GotIp
Message("This it?",IP)

---

Article ID:   W14738

Filename:   Look for the Bound IPs.txt

File Created: 2000:11:15:14:09:00

Last Updated: 2000:11:15:14:09:00