[How to show IP address using a help me icon for XP and Vista]

[How to show IP address using a help me icon for XP and Vista] - Computers

Search Tech-Forums - link takes you to our Forum's search page.

Note: The following is only a text archive!

To view the actual forum discussion, please visit our website at http://www.tech-forums.net

Pages:1

How to show IP address using a help me icon for XP and Vista
(Click here to view the original thread with full colors/images)

Posted by: Warez Monster

Install VNC 3.3.5 or later

Set a default password

Save the info below as a .bat and name it help me (without the dashes)
-------------------------------------------------
@echo off
Cd "C:\Program Files\RealVNC\WinVNC"
start winvnc.exe

rem CMD /K ipconfig
start c:\windows\config\IP.vbs
--------------------------------------------------

Save the info below as a .vbs and name it IP (without the dashes)

-----------------------------------------------------------------------
arAddresses = GetIPAddresses()

info = "IP Address - "

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
------------------------------------------------------------------------------

Then make an icon on your desktop. We use the icon globe and the mouse. Right click the icon, click properties

In the Target location type this:
"C:\Windows\Config\Help Me.bat"

In the Start In, type this:

"C:\Program Files\RealVNC\WinVNC"

Now close it.

Execute the icon now. VNC should start automatically now and then display your IP address. This is good for remote users, simple and easy. Now all you need to do is use VNC Viewer, type in the IP address, then the password, and you should be in. This is for network only unless you have port forwarding setup or VPN.

Now for Vista its different.
Everything is the same except the .vbs file. Use this below:
-----------------------------------------------------------------------------------

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

:Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
'For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo IPConfig.IPAddress(0)
'Next
End If
Next
-----------------------------------------------------------------------------

I tried both and they work, I use them at work all the time.

Now if some one could figure out how to add both into one .vbs file, that would be great.