quote:

---

I have made routines that parse a specific subnet, ping the computers with active leases, connect to each on-line PC and retreieve the loggedon user name.

---

code:

---

BREAK ON CLS
;------------------------------------------------------------------------------
?'[ Enter the UserName -> '
GETS $USERNAME
;------------------------------------------------------------------------------
FOR EACH $COMPUTER IN NetView2(@LDOMAIN)
   $PC='\\'+$COMPUTER
      ?'$PC'
      $REMUSER=ReadValue($PC+"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon","DefaultUserName")
      IF $REMUSER=''
         $REMUSER='no one'
      ENDIF
      ?'$REMUSER'
      IF $REMUSER='$USERNAME'
         MessageBox('$USERNAME is logged on $PC','$PC',0,30)
         SendMessage (@WKSTA,'$USERNAME is logged on $PC')
         GOTO VNC
;         EXIT 0
      ENDIF
NEXT
;------------------------------------------------------------------------------
:VNC
?'[ This is the VNC Part ]'
;------------------------------------------------------------------------------
:END
?'[ Press a Key to Exit ]'
GET $_
;------------------------------------------------------------------------------

---

code:

---

01. @echo off
02. if .%1.==.. GoTo :Useage
03. if not .%2.==.. GoTo :Useage
04. setlocal
05. set nameIP=
06. echo YOUR_IP_ADDRESS_HERE > winscl.txt
07. echo QN >> winscl.txt
08. echo %1 >> winscl.txt
09. echo 1 >> winscl.txt
10. echo 03 >> winscl.txt
11. echo 0 >> winscl.txt
12. echo EX >> winscl.txt
13. 
14. for /f "tokens=3 delims=)( " %%i in ('winscl.exe T ^< winscl.txt ^| Find "Address is"') do set nameIP=%%i
15. if not defined nameIP (for /f "tokens=7 delims=)( " %%j in ('winscl.exe T ^< winscl.txt ^| Find "Member is"') do set nameIP=%%j)
16. for /f "tokens=2" %%k in ('ping -a -n 1 %nameIP% ^| Find "Pinging"') do set host=%%k
17. echo For username:  %1
18. echo At IP Address: %nameIP%
19. echo Hostname is:   %host%
20. endlocal
21. GoTo :eof
22. 
23. :Useage
24. echo.
25. echo Locate.bat, Written 2002 by Jim Robinson
26. echo.
27. echo Requirements: 
28. echo =============
29. echo WINS
30. echo Windows 2000,
31. echo locate.bat, 
32. echo winscl.exe  (from the Windows 2000 Server Resource Kit),
33. echo winsrpc.dll (from a Windows 2000 Server).
34. echo All located in the current directory or a directory in your path.
35. echo.
36. echo Useage:
37. echo =======
38. echo locate username
39. echo Where username is an NT username on your network.
40. echo.
41. echo Modifications:
42. echo ==============
43. echo Change the IP address in the script to the IP address of your
44. echo local WINS server.

---