code:

---

Function MidStr($string,$leftchar,$rightchar,optional $trim)
	if not instr($string,$leftchar) or not instr($string,$rightchar)
		exit 1
		return
		endif
	$MidStr = split(split($string,$leftchar)[1],$rightchar)[0]
	if $trim
		$MidStr=Trim($MidStr)
		endif
	endif

---

code:

---

;*********Resolve the hostname**********
$HostArray = WshPipe("%comspec% /c nbtstat -a $IP",1)
$X = InStrArray("<00>  UNIQUE", $HostArray)
if $X <> -1
   $txtHost.text = Trim(Split($HostArray[$X],"<")[0])
else
   $txtHost.text = "Not Found in WINS" ?
endif
$Host = $txtHost.text
  

---

code:

---

$ScriptDir = @CurDir
$UserID = 'Name'
$Who = fnFindUser($UserID)
? 'Error: ' + @Error
? 'Who:   ' + $Who

QUIT 1

FUNCTION fnFindUser($User)
;--- This function will find what computer a person is on.
  DIM $Temp, $Reply, $FindUserError
  $Temp = '%temp%\' + $User + '.tmp'
  DEL $Temp
  SHELL '%Comspec% /C ' + $ScriptDir + '\ntname.exe ' + $User + ' > ' + $Temp
  $Nul = Open (10, $Temp, 2)
  $FindUserError = @Error
  IF $FindUserError = 0
    $fnFindUser = ReadLine (10)
  ENDIF
  $Nul = Close (10)
  DEL $Temp
  EXIT $FindUserError
ENDFUNCTION

---

code:

---

 
? 'Enter a username : '
Gets $User
$IPTempFile = "%Temp%\TempFile.xxx"
$NameTempFile = "%Temp%\TempFile.yyy"

If Exist ("$IPTempFile")
   Del $IPTempFile
Endif
If Exist ("$NameTempFile")
   Del $NameTempFile
Endif

shell '%comspec% /c nbtstat -R'
shell '%comspec% /c net send $User ""'
shell '%comspec% /c nbtstat -c > $IPTempFile'

$filehandle = Freefilehandle()
If Open ($filehandle, $IPTempFile) = 0
   $line = ReadLine ($filehandle)
   While @Error = 0
      $type = Trim (SubStr ($line, InStr ($line, ">")+1))
      If InStr ($type, "unique")
         $IPSTRING = Trim (SubStr ($type, InStr ($type, " ")+1))
         $IPSTRING = SubStr ($IPSTRING, 1, InStr ($IPSTRING, " ")-1)
         ? $IPSTRING
      Endif
      $line = ReadLine ($filehandle)
   Loop
Endif
$null = Close ($filehandle)

If $IPSTRING
   shell '%comspec% /c ping -a $IPSTRING > $NameTempFile'
      $filehandle = Freefilehandle()
      If Open ($filehandle, $NameTempFile) = 0
         $line = ReadLine ($filehandle)
         While @Error = 0
            $type = SubStr ($line, 1, 7)
            If $type = "Pinging"
               $NAMESTRING = SubStr ($line, InStr ($line, " ")+1)
               $NAMESTRING = SubStr ($NAMESTRING, 1, InStr ($NAMESTRING, " ")-1)
               ? $NAMESTRING
            Endif
            $line = ReadLine ($filehandle)
         Loop
      Endif
   $null = Close ($filehandle)
Endif

If Exist ("$IPTempFile")
   Del $IPTempFile
Endif
If Exist ("$NameTempFile")
   Del $NameTempFile
Endif

? 'DONE'
get $
 

---