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,"Name") then
parts = split(data,":")
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,"IP Address") then
parts = split(data,":")
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.
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,"Name") then
parts = split(data,":")
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,"IP Address") then
parts = split(data,":")
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.