Break On



$nul=SetConsole("Hide")



$frmMain = CreateObject("Kixtart.Form")

$frmMain.Caption = "Locate"

$frmMain.Icon = "shell32.dll;52"

$frmMain.Size = 285,155



$txtUser = $frmMain.TextBox("",10,10,200,20)

$txtUser.OnChange = "$$btnFind.Enabled=1"



$txtIP = $frmMain.TextBox("",10,40,200,20)

;$txtIP.Enabled = 0



$txtHost = $frmMain.TextBox("",10,70,200,20)

;$txtHost.Enabled = 0



$btnFind = $frmMain.Button("Find",$txtUser.Right+10,$txtUser.Top,50,20)

$btnFind.Enabled = 0

$btnFind.OnClick = "fnFindUser($$txtUser.Value) If @@ERROR fnERROR() EndIf"



$btnIP = $frmMain.Button("Copy",$txtIP.Right+10,$txtIP.Top,50,20)

$btnIP.Enabled = 0

$btnIP.OnClick = "fnCopyIP()"



$btnHost = $frmMain.Button("Copy",$txtHost.Right+10,$txtHost.Top,50,20)

$btnHost.Enabled = 0

$btnHost.OnClick = "fnCopyHost()"



$prgStatus = $frmMain.ProgressBar()

$prgStatus.Left = 10

$prgStatus.Top = $txtHost.Bottom+10

$prgStatus.Width = $frmMain.ClientWidth - 20

$prgStatus.Height = 20

$prgStatus.BorderStyle = 5

$prgStatus.Style = 1

$prgStatus.Max=3



$frmMain.Center

$frmMain.Show

While $frmMain.Visible

	$nul=Execute($frmMain.DoEvents)

Loop



Exit 1



Function fnCopyIP()

    $txtIP.SelStart = 0

	$txtIP.SelLength = Len($txtIP.Text)

	$txtIP.SetFocus() $txtIP.Copy()

EndFunction



Function fnCopyHost()

	$txtHost.SelStart = 0

	$txtHost.SelLength = Len($txtHost.Text)

	$txtHost.SetFocus() $txtHost.Copy()

EndFunction



Function fnERROR()

	$nul=MessageBox("User not found","Error")

EndFunction



Function fnFindUser($sUser)

	$txtIP.Text = ""

	$txtHost.Text = ""

	$btnIP.Enabled = 0

	$btnHost.Enabled = 0

	$prgStatus.Value=0

	$nul=WshPipe('Net Send '+$sUser+' ""',1)

	If @ERROR Exit @ERROR EndIf

	$prgStatus.Value=$prgStatus.Value+1

	$aCon=WshPipe('nbtstat -c',1)

	If @ERROR Exit @ERROR EndIf

	$prgStatus.Value=$prgStatus.Value+1

	For Each $sCon in $aCon

		If Instr($sCon,$sUser)

			$aFnd=Split($sCon," ")

			For Each $sFnd in $aFnd

				If Instr($sFnd,".") $sIP=$sFnd EndIf

			Next

		EndIf

	Next

	$aHost=WshPipe('Ping -a -n 1 $sIP',1)

	$prgStatus.Value=$prgStatus.Value+1

	If @ERROR Exit @ERROR EndIf

	For Each $sHost in $aHost

		If Instr($sHost,$sIP) and Instr($sHost,"Pinging")

			$sCom=Split($sHost," ")[1]

		EndIf

	Next

	$txtIP.Text = $sIP

	$txtHost.Text = $sCom

	$btnIP.Enabled = 1

	$btnHost.Enabled = 1

	$prgStatus.Value=0

EndFunction



Function WshPipe($ShellCMD, OPTIONAL $NoEcho)

	Dim $oExec, $Output

	$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)

	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf

	$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll

	If Not $NoEcho $Output Endif

	$WshPipe=Split($Output,@CRLF)

	Exit($oExec.ExitCode)

EndFunction

Quote:

---

C:\Documents and Settings\whsfrc>net send fsdshfm
Sending files is no longer supported.

More help is available by typing NET HELPMSG 3777.


C:\Documents and Settings\whesferc>nbtstat -c

LAN:
Node IpAddress: [164.51.34.88] Scope Id: []

No names in cache

---

break on


gets $name ; or $name=''
if $name
	$nul  = wshpipe('net send '+$name+' ""',1)
	$str  = WshPipe('cmd /c nbtstat -c | find "'+ucase($name)+'"',1)
	if not @error
		for each $entry in $str
			$ip = trim(substr($entry,41,16))
			? $ip
			next
	else
		? $name+" not found"
		endif
	endif

Function WshPipe($ShellCMD, OPTIONAL $NoEcho)
	Dim $oExec, $Output
	$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)
	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
	$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll
	If Not $NoEcho $Output Endif
	$WshPipe=Split($Output,@CRLF)
	Exit($oExec.ExitCode)
	EndFunction

? FindUserIP('JoeL')
? FindUserIP('SteveN')


Function FindUserIP($user)
	DIM $nul, $str, $entry
	$nul  = WshPipe('net send '+$user+' ""',1)
	$str  = WshPipe('%comspec% /c nbtstat -c | find "'+ucase($user)+'"',1)
	if @error 	exit @error	endif
	for each $entry in $str
		if instr($entry,$user)
			$FindUserIP = trim(substr($entry,41,16))
			endif
		next
	exit @error
	endfunction

Function WshPipe($ShellCMD, OPTIONAL $NoEcho)
	Dim $oExec, $Output
	$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)
	If Not VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
	$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll
	If Not $NoEcho $Output Endif
	$WshPipe=Split($Output,@CRLF)
	Exit($oExec.ExitCode)
	EndFunction