Home · Articles · Downloads · Hobby Wear · Forums · Web Links · News CategoriesSunday, February 05, 2023
Navigation
Home
Articles
Downloads
Hobby Wear
FAQ
Forums
Web Links
News Categories
Contact Us
Photo Gallery
OpenVMS Bigot
Search
Users Online
Guests Online: 12
No Members Online

Registered Members: 7,681
Newest Member: MrManul
Sponsors
Island Computer
View Thread
OpenVMS Hobbyist Program | Hobbyists and OpenVMS | How I Use OpenVMS
Author Need help in REVOKE
kevin87
Member

Posts: 1
Joined: 10.02.13
Posted on February 10 2013 22:17
Hi

Suppose there are 20 Identifier are there for user...we can revoke it like:

MCR AUTHORIZE REVOKE/ID identifier user


but how can I revoke all the identifier in a single command. I have tried like this also, but no luck:

MCR AUTHORIZE REVOKE/ID * user

any help will be appreciated.


Thanks..!
Author RE: Need help in REVOKE
muddflapp
Member

Posts: 17
Location: Texas
Joined: 01.06.21
Posted on June 05 2021 11:18
No
UAF> revoke/id admwork *
%UAF-W-WLDNOTALWD, wildcard user specs not allowed
UAF> revoke/id * sparrow
%UAF-E-REVOKEERR, unable to revoke identifier * from SPARROW
-SYSTEM-F-IVIDENT, invalid identifier format

use this code to have it do what you want:
$! PRINTRIGHTS -- Print Rightslist.dat in somewhat readable form. SDS 18feb02
$!______________________________________________________________________________
$ SAY = "WRITE SYS$OUTPUT"
$ STATUS = 1
$ ASK = "READ/END=QUIT SYS$COMMAND /PROMPT="
$ START:
$ NAME1 = P1
$ IF P1 .EQS. "" THEN ASK "Enter rightslist filename :" P1
$ IF NAME1 .EQS. "" THEN GOTO START
$
$ OPEN/READ/SHARE FILE1 &NAME1
$ ON CONTROL_Y THEN GOTO CLOSE
$ ON WARNING THEN GOTO CLOSE
$ OPEN/READ/SHARE FILE2 &NAME1
$
$ WIDTH = F$GETDVI("TT","DEVBUFSIZ"smiley
$ WRAP = F$GETDVI("TT","TT_WRAP"smiley
$ IF WIDTH .LT. 132 THEN SET TERM/WRAP
$ NARROW = (WIDTH .LE. 80)
$
$ IF NARROW
$ THEN
$ M = "!8XL [!5OW,!5OW] !8XL !32AS !XB"
$ MH = "!8AS !13AS !8AS !30AS !4AS"
$ SAY F$FAO(MH,"Identify","[ Grp,Mem ]","Holder","Id_Name","Code"smiley
$ ELSE
$ M = "!8XL [!5OW,!5OW] !8XL !32AS !XB !64AS"
$ MH = "!8AS !13AS !8AS !30AS !4AS !64AS"
$ SAY F$FAO(MH,"Identify","[ Grp,Mem ]","Holder","Id_Name","Code","Description"smiley
$ ENDIF
$
$ 1$: READ/END=CLOSE/NOLOCK FILE1 REC1
$ ID_NUMBER = F$CVUI( 0,32,REC1)
$ ID_MEM = F$CVUI( 0,16,REC1)
$ ID_GRP = F$CVUI(16,16,REC1)
$ ATTR = F$CVUI(4*8,32,REC1)
$
$ ATT_LIST :=
$ IF (1 .EQ. (ATTR .AND. 1)) THEN ATT_LIST := RESOURCE,
$ IF (2 .EQ. (ATTR .AND. 2)) THEN ATT_LIST = ATT_LIST + "DYNAMIC,"
$ IF (4 .EQ. (ATTR .AND. 4)) THEN ATT_LIST = ATT_LIST + "NOACCESS,"
$ IF (8 .EQ. (ATTR .AND. 8)) THEN ATT_LIST = ATT_LIST + "SUBSYSTEM,"
$ IF (16.EQ. (ATTR .AND.16)) THEN ATT_LIST = ATT_LIST + "IMPERSONATE,"
$ IF (32.EQ. (ATTR .AND.32)) THEN ATT_LIST = ATT_LIST + "HOLDER_HIDDEN,"
$ IF (64.EQ. (ATTR .AND.64)) THEN ATT_LIST = ATT_LIST + "NAME_HIDDEN,"
$ ATT_LIST = F$EXTRACT(0,F$LENGTH(ATT_LIST)-1,ATT_LIST)
$
$ HOLDER_ID = F$CVUI( 0,32,F$EXTRACT(8,4,REC1))
$! IF HOLDER_ID .NE. 0 THEN
$
$ LIST := !Blank
$ ID_NAME := !Blank
$ NEXT_ID := !Blank
$
$ IF F$LENGTH(REC1) .GE. 48 THEN -
$ ID_NAME = F$EDIT(F$EXTRACT(16,32,REC1),"TRIM"smiley
$ IF F$LENGTH(REC1) .GE. 64 THEN -
$ NEXT_ID = F$FAO("Next ID: %x!XL",F$CVUI( 0,32,F$EXTRACT(60,4,REC1)))
$
$ IF LIST .EQS. "" THEN LIST = ATT_LIST
$ IF LIST .EQS. "" THEN LIST = NEXT_ID
$
$ IF NARROW
$ THEN
$ SAY F$FAO(M,ID_NUMBER,ID_GRP,ID_MEM,HOLDER_ID,ID_NAME,ATTR)
$ ELSE
$ SAY F$FAO(M,ID_NUMBER,ID_GRP,ID_MEM,HOLDER_ID,ID_NAME,ATTR,LIST)
$ ENDIF
$ GOTO 1$
$
$ CLOSE:STATUS = $STATUS .OR. %X10000000
$ IF STATUS .EQ. %X1001827A THEN STATUS = %X10018279
$ SET NOON
$ CLOSE FILE1
$ CLOSE FILE2
$ IF .NOT. WRAP THEN SET TERM/NOWRAP
$ QUIT: EXIT STATUS

Author RE: Need help in REVOKE
muddflapp
Member

Posts: 17
Location: Texas
Joined: 01.06.21
Posted on June 05 2021 11:21

$ @binsmileyrintrights
Enter rightslist filename :rightslist:
Identify [ Grp,Mem ] Holder Id_Name Attr Description
00000000 [00000,00000] 00000000 $$MAINTENANCE_RECORD 00 Next ID: %x80010003
00010004 [00001,00004] 00000000 SYSTEM 00
00040003 [00004,00003] 00000000 SPARROW 00
0004FFFF [00004,77777] 00000000 ADM 00
000D0001 [00015,00001] 00000000 SPARRSD 00
000D0002 [00015,00002] 00000000 STEVE 00
000DFFFF [00015,77777] 00000000 USR 00
00800080 [00200,00200] 00000000 DEFAULT 00
00FE00F7 [00376,00367] 00000000 MIRRO$SERVER 00
00FE00F8 [00376,00370] 00000000 VPM$SERVER 00
00FE00F9 [00376,00371] 00000000 NML$SERVER 00
00FE00FA [00376,00372] 00000000 PHONE$SERVER 00
00FE00FC [00376,00374] 00000000 MAIL$SERVER 00
00FEFFFF [00376,77777] 00000000 DECNET 00
07AD0001 [03655,00001] 00000000 TCPIP$FTP 00
07AD0002 [03655,00002] 00000000 TCPIP$RSH 00
07ADFFFF [03655,77777] 00000000 TCPIP$AUX 00
80000001 [00000,00001] 00000000 BATCH 00
80000002 [00000,00002] 00000000 DIALUP 00
80000003 [00000,00003] 00000000 INTERACTIVE 00
80000004 [00000,00004] 00000000 LOCAL 00
80000005 [00000,00005] 00000000 NETWORK 00
80000006 [00000,00006] 00000000 REMOTE 00
80000007 [00000,00007] 00000000 DECWINDOWS 00
80000008 [00000,00010] 00000000 VMS$BUFFER_OBJECT_USER 00
80000009 [00000,00011] 00000000 VMS$MEM_RESIDENT_USER 00
80010000 [00001,00000] 00000000 SYS$NODE_THING1 00
80010001 [00001,00001] 00000000 SDSWORK 03 RESOURCE,DYNAMIC
80010001 [00001,00001] 00040003 03 RESOURCE,DYNAMIC
80010001 [00001,00001] 000D0001 03 RESOURCE,DYNAMIC
80010001 [00001,00001] 000D0002 02 DYNAMIC
80010002 [00001,00002] 00000000 ADMWORK 03 RESOURCE,DYNAMIC
80010002 [00001,00002] 00040003 03 RESOURCE,DYNAMIC
96EE0001 [13356,00001] 00000000 SECSRV$CLIENT 00
96EE0002 [13356,00002] 00000000 SECSRV$OBJECT 00
96EE0003 [13356,00003] 00000000 SECSRV$COMMUNICATION 00

Jump to Forum:
Login
Username

Password



Not a member yet?
Click here to register.

Forgotten your password?
Request a new one here.
Member Poll
Are you going to OpenVMS Boot Camp 2016?

Yes

No

You must login to vote.
Shoutbox
You must login to post a message.

malmberg
August 04 2022
No more VAX hobbyist licenses. Community licenses for Alpha/IA64/X86_64 VMS Software Inc. Commercial VMS software licenses for VAX available from HPE.

ozboomer
July 20 2022
Just re-visiting.. No more hobbyist licenses? Is that from vmssoftware.com, no 'community' licenses?

valdirfranco
July 01 2022
No more hobbyist license...sad

mister_wavey
February 12 2022
I recall that the disks failed on the public access VMS systems that included Fafner

parwezw
January 03 2022
Anyone know what happened to FAFNER.DYNDS.ORG? I had a hobbyist account here but can longer access the site.

gtackett
October 27 2021
Make that DECdfs _2.1A_ for Vax

gtackett
October 27 2021
I'm looking for DECdfs V2.4A kit for VAX. Asking here just in case anyone is still listening.

MarkRLV
September 17 2021
At one time, didn't this web site have a job board? I would love to use my legacy skills one last time in my career.

malmberg
January 18 2021
New Hobbyist PAKs for VAX/VMS are no longer available according to reports. Only commercial licenses are reported to be for sale from HPE

dfilip
January 16 2021
Can someone please point me to hobbyist license pak? I'm looking for VAX/VMS 7.1, DECnet Phase IV, and UCX/TCPIP ... have the 7.1 media, need the license paks ... thanks!

Bart
October 16 2020
OpenVMS, and this website!

malmberg
September 05 2020
VSI community non-commercial licenses for AXP/IA64 are available now.

malmberg
September 05 2020
See the forum about licensing. Don't know if HPE hobby licenses still being issued. Commercial licenses still being sold.

silfox70
September 01 2020
I need the license for OpenVMS7.3. Where can I find them?

malmberg
August 29 2020
Eisner, which is currently being moved, got an SSH update and the keys were updated to more modern encryption standards.

Shoutbox Archive