Re: DCL procedure to find and delete unused accounts?

From: Michael Unger (spam.to.unger_at_spamgourmet.com)
Date: 02/15/04

  • Next message: Michael Unger: "Re: Mozilla for OpenVMS Alpha V1.5 available!" 
    Date: Sun, 15 Feb 2004 12:43:04 +0100

    On 2004-02-14 19:19, "Stephen Eickhoff" wrote:

    > Just so I don't have to reinvent the wheel, has anyone written a DCL
    > procedure to find users that haven't logged in for a certain amount of time
    > and disable or delete them?

    Saved a long time ago from a rather old article (DECUS Munich,
    VMS-Notes) ...

    |
    ================================================================================
    | Note 9962.8 Expired Accoutns list
        8 of 8
    | DECUS::INFO_VAX 40 lines
    23-JUL-1998 16:40
    |
    --------------------------------------------------------------------------------
    | Date: Thu, 23 Jul 1998 12:16:00 +0100
    | From: Alistair McIntosh <a.mcintosh@LILLY.COM|
    | Subject: Re: Expired Accoutns list
    |
    | Scott H. Stevens wrote:
    |
    |>
    |> Hello All,
    |>
    |> I'd like to know what the best way is (if one is possible, since
    I'm new
    |> at this) to list expired accounts or at least a list of all accounts and
    |> their last log on date.
    |
    | A hacked together command file that reads through SYSUAF.DAT follows, it
    | lists last interactive login date and time & disuser flag. If the date
    | displayed is 17-nov-1858 it is because they have never interactivly
    | logged in.
    |
    | (NOTE - Compaq/Digital may change the layout of SYSUAF in the future)
    |
    | $ Open/Read/Share=Write Uaf_File SYS$SYSTEM:SYSUAF.DAT
    | $ open/Write out_file aim.lis
    | $loop:
    | $ Read Uaf_File Uaf_Record /end=end
    | $ User = F$extract(4,20,Uaf_record)
    | $ Owner = F$extract(85,31,Uaf_record)
    | $ Disable = ""
    | $ if f$cvui(4,1,F$extract(468,1,uaf_record)) Then disable =
    "DIS-USER"
    | $ Uaf_llogin_quad = F$extract(396,8,Uaf_record)
    | $ Uaf_llogin =
    f$fao("!%D",f$cvui(32,32,f$fao("!AD",8,Uaf_llogin_quad)))
    | $ write sys$output "''User' ''uaf_llogin' ''disable'"
    | $ goto loop
    | $end:
    | $ Close uaf_file
    |
    | Hope this helps
    |
    | --
    | A.McIntosh @lilly.com
    | Collected DC Weather Reports http://www.sonnet.co.uk/muse/dcwrp.html

    Michael 

    -- 
Real names enhance the probability of getting real answers.
Please do *not* send "Security Patch Notifications" or "Security
Updates"; this system isn't running a Micro$oft operating system.
My e-mail account at DECUS Munich is no longer valid.
  • Next message: Michael Unger: "Re: Mozilla for OpenVMS Alpha V1.5 available!"

    Relevant Pages

    • OT: Dealing with a Cyber Stalker
      ... we've incercepted messages from other lists claiming she is ... having our accounts shut down. ... Then we receive notices from e-bay saying we've been reported as ... matter * if* we'll pay a retainer of $5000 or more. ...
      (misc.transport.road)
    • Re: Curious kmail question
      ... However, for me, it crashes - not ... As I'm subscribed to several lists, I do have a fair amount of traffic. ... While the indexing can be screwed up by such a crash, ... I'm not sure what you have in mind when you talk about your several accounts. ...
      (Fedora)
    • Re: Background Intelligence Transfer Service
      ... Could not start the Background Intelligence Transfer Service service ... This service is running and lists BITS as a dependent service. ... operating system is Windows XP Home Edition SP2, ...
      (microsoft.public.windowsxp.general)
    • Re: Spam Filter
      ... accounts and we surveyed our clientele ... Those employees who have this active on their accounts (not everyone ... >email from the user requesting confirmation the it sent the email. ... >s/he can't create an account or join my lists I will tell them (and reply to ...
      (RedHat)
    • Re: IMAP w/GMail
      ... instances of mutt each with its own unique config file. ... instance of mutt for one pop and two imap accounts, will I be able to easily ... accounts and a dozen or so mailing lists. ... As far as sending is concerned I only ever use one SMTP server, ...
      (comp.mail.mutt)