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 $_
;------------------------------------------------------------------------------

---