home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / bit / listserv / vmutil / 1690 < prev    next >
Encoding:
Text File  |  1992-11-17  |  1.4 KB  |  35 lines
  1. Comments: Gated by NETNEWS@AUVM.AMERICAN.EDU
  2. Path: sparky!uunet!stanford.edu!bcm!convex!darwin.sura.net!wupost!uwm.edu!psuvax1!psuvm!auvm!BGUVM.BITNET!MAINTX
  3. Organization: Ben-Gurion University, Beer-Sheva, Israel
  4. Message-ID: <VM-UTIL%92111716150251@DEARN>
  5. Newsgroups: bit.listserv.vm-util
  6. Date:         Tue, 17 Nov 1992 17:01:20 IST
  7. Sender:       VM Utilities Discussion List <VM-UTIL@OHSTVMA.BITNET>
  8. From:         Moshe Israeli <MAINTX@BGUVM.BITNET>
  9. Subject:      Freeing a stucked userid (LOGOFF/FORCE pending)
  10. Lines: 23
  11.  
  12. Thanks to those who answered my question. Alas, no suggestion worked, and
  13. nobody sent a ready made userid replacement exec, so I had to write one
  14. myself, and it worked for me. Here it is:
  15. ------------------------------------------------------------------------
  16. /*
  17.    Free a stucked user (LOGOFF/FORCE pending)
  18.    by chanching its userid to GHOST
  19. */
  20.    arg user .
  21.   'EXECIO * CP (STRING LOCATE' user
  22.    if rc ^= 0 then exit rc
  23.    pull . . vmblok .
  24.    addr = d2x(x2d(vmblok)+x2d(110)) /* Userid */
  25.    newuser1 = c2x('GHOS'); newuser2 = c2x('T   ')
  26.    newuser  = newuser1||newuser2
  27.   'CP STCP' addr newuser1 newuser2
  28.    say 'User' user 'changed to' x2c(newuser)
  29. exit
  30. ----------------------------------------------------------------------
  31. Then I changed the original userid's 191 mdisk access right to MW and
  32. everything was fine. Many thanks to the guy who mentioned this solution
  33. some months ago, in this list.
  34. Moshe
  35.