INFO-VAX Thu, 07 Aug 2008 Volume 2008 : Issue 428 Contents: Re: DEFCON 16 and Hacking OpenVMS How do I get a license for telnet on opevms Re: How do I get a license for telnet on opevms Re: How do I get a license for telnet on opevms multinet public key question Re: multinet public key question Re: multinet public key question Re: Questions i need answered Re: Questions i need answered Re: Questions i need answered Re: Questions i need answered ---------------------------------------------------------------------- Date: Wed, 06 Aug 2008 18:20:54 -0400 From: bradhamilton Subject: Re: DEFCON 16 and Hacking OpenVMS Message-ID: <489A23C6.2060903@comcast.net> Mark Daniel wrote: > http://www.defcon.org/html/defcon-16/dc-16-speakers.html#Oberg > > is due to be presented this Sunday, Aug 10th 2008 > > Does anyone know ... > > o whether there will be anyone from the VMS community at this event; > > o the content of this presentation; > > o whether the 'proceedings' will be published? > > The abstract is protraying the potential exploits as novel and so would > make an interesting read. You might want to ask the question over at the Deathrow cluster - there are likely to be some attendees from that group. ------------------------------ Date: Wed, 6 Aug 2008 15:34:58 -0700 (PDT) From: Nolan Subject: How do I get a license for telnet on opevms Message-ID: <72378e6d-5e59-4c6e-a78e-6a1ebfdfa868@27g2000hsf.googlegroups.com> Im running openvms 7.3 on a alphaserver ds10l, and when I try to use the telnet command it says that I dont have a license for telnet. Also how do I tell if I have internet on my computer I have a ethernet card plugged into the computer, but I dont know how to tell if I have internet, becouse I think that possibly could be the problem when I use telnet. ------------------------------ Date: Wed, 06 Aug 2008 19:15:53 -0400 From: "Richard B. Gilbert" Subject: Re: How do I get a license for telnet on opevms Message-ID: Nolan wrote: > Im running openvms 7.3 on a alphaserver ds10l, and when I try to use > the telnet command it says that I dont have a license for telnet. Also > how do I tell if I have internet on my computer I have a ethernet card > plugged into the computer, but I dont know how to tell if I have > internet, becouse I think that possibly could be the problem when I > use telnet. $ LICENSE LIST should tell you which licenses you have installed. You need licenses for VMS, any layered products such as compilers and your TCP/IP stack, and anything else you have installed other than freeware. You need a "base" license for VMS, licenses for interactive users, etc, etc, etc. If you are a hobbyist the licenses are available at no charge. For commercial use; e.g. selling computer time on your system, doing software development for money, you need to buy licenses. If you buy a system "new", licenses are usually, but not necessarily, included. ------------------------------ Date: Wed, 06 Aug 2008 19:39:08 -0400 From: JF Mezei Subject: Re: How do I get a license for telnet on opevms Message-ID: <489a36e0$0$14325$c3e8da3@news.astraweb.com> Nolan wrote: > Im running openvms 7.3 on a alphaserver ds10l, and when I try to use > the telnet command it says that I dont have a license for telnet. You need a licence called "UCX" to enable IP connectivity. OInce your licence has been installed, you will also need to configure the TCPIP stack from a system manager,s account: @SYS$MANAGER:TCPIP$CONFIG and then go through the various menus. $LICENSE LIST UCX/FULL will tell you if you have one installed and if it may have expirted. ------------------------------ Date: Wed, 06 Aug 2008 12:59:43 -0700 From: "Russell E. Owen" Subject: multinet public key question Message-ID: I can't seem to make public key authentication work for connecting to a VMS box running Multinet 5.1A from a unix (MacOS X) box. On the unix box I have a 2048-bit RSA public key id_rsa.pub in open-ssh format. I use this key with success on various unix systems. I used ssh-keygen to export a copy in the format used by VMS; the result looks like this: ---- BEGIN SSH2 PUBLIC KEY ---- Comment: "2048-bit RSA, converted from OpenSSH by rowen@..." AAAAB3NzaC1yc2EAAAABIwAAAQEAyTIpI6IxXiv9/UIs/opZ5vPk9CnPCz+p5QwoqD1Klh ... ---- END SSH2 PUBLIC KEY ---- Then I saved that copy to the VMS account as [.SSH2]ID_RSA.PUB and created [.SSH2]AUTHORIZATION. which contains just the text "ID_RSA.PUB" The [.SSH2] dir looks like: AUTHORIZATION.;1 (RWED,RWED,RWED,RE) ID_RSA.PUB;1 (R,R,R,R) RANDOM_SEED.;1 (RWD,RWD,,) but authentication fails. Any ideas? I've appended a maximally verbose log (which is rather long). -- Russell OpenSSH_4.7p1, OpenSSL 0.9.7l 28 Sep 2006 debug1: Reading configuration data /Users/rowen/.ssh/config debug1: Applying options for tccdev debug1: Reading configuration data /etc/ssh_config debug2: ssh_connect: needpriv 0 debug1: Connecting to ... port 22. debug1: Connection established. debug3: Not a RSA1 key file /Users/rowen/.ssh/id_rsa. debug2: key_type_from_name: unknown key type '-----BEGIN' debug3: key_read: missing keytype debug2: key_type_from_name: unknown key type 'Proc-Type:' debug3: key_read: missing keytype debug2: key_type_from_name: unknown key type 'DEK-Info:' debug3: key_read: missing keytype debug3: key_read: missing whitespace ...(many repeats of that line)... debug3: key_read: missing whitespace debug2: key_type_from_name: unknown key type '-----END' debug3: key_read: missing keytype debug1: identity file /Users/rowen/.ssh/id_rsa type 1 debug1: identity file /Users/rowen/.ssh/id_dsa type -1 debug1: Remote protocol version 2.0, remote software version 3.2.9 F-SECURE SSH 5.0.1 - Process Software MultiNet debug1: no match: 3.2.9 F-SECURE SSH 5.0.1 - Process Software MultiNet debug1: Enabling compatibility mode for protocol 2.0 debug1: Local version string SSH-2.0-OpenSSH_4.7 debug2: fd 3 setting O_NONBLOCK debug1: Miscellaneous failure No credentials cache found debug1: Miscellaneous failure No credentials cache found debug1: SSH2_MSG_KEXINIT sent debug1: SSH2_MSG_KEXINIT received debug2: kex_parse_kexinit: diffie-hellman-group-exchange-sha256,diffie-hellman-group-exchange-sha1,d iffie-hellman-group14-sha1,diffie-hellman-group1-sha1 debug2: kex_parse_kexinit: ssh-rsa,ssh-dss debug2: kex_parse_kexinit: aes128-cbc,3des-cbc,blowfish-cbc,cast128-cbc,arcfour128,arcfour256,arcfou r,aes192-cbc,aes256-cbc,rijndael-cbc@lysator.liu.se,aes128-ctr,aes192-ctr ,aes256-ctr debug2: kex_parse_kexinit: aes128-cbc,3des-cbc,blowfish-cbc,cast128-cbc,arcfour128,arcfour256,arcfou r,aes192-cbc,aes256-cbc,rijndael-cbc@lysator.liu.se,aes128-ctr,aes192-ctr ,aes256-ctr debug2: kex_parse_kexinit: hmac-md5,hmac-sha1,umac-64@openssh.com,hmac-ripemd160,hmac-ripemd160@open ssh.com,hmac-sha1-96,hmac-md5-96 debug2: kex_parse_kexinit: hmac-md5,hmac-sha1,umac-64@openssh.com,hmac-ripemd160,hmac-ripemd160@open ssh.com,hmac-sha1-96,hmac-md5-96 debug2: kex_parse_kexinit: none,zlib@openssh.com,zlib debug2: kex_parse_kexinit: none,zlib@openssh.com,zlib debug2: kex_parse_kexinit: debug2: kex_parse_kexinit: debug2: kex_parse_kexinit: first_kex_follows 0 debug2: kex_parse_kexinit: reserved 0 debug2: kex_parse_kexinit: diffie-hellman-group1-sha1 debug2: kex_parse_kexinit: ssh-dss debug2: kex_parse_kexinit: aes128-cbc,3des-cbc,blowfish-cbc,aes192-cbc,aes256-cbc debug2: kex_parse_kexinit: aes128-cbc,3des-cbc,blowfish-cbc,aes192-cbc,aes256-cbc debug2: kex_parse_kexinit: hmac-sha1,hmac-md5 debug2: kex_parse_kexinit: hmac-sha1,hmac-md5 debug2: kex_parse_kexinit: none,zlib debug2: kex_parse_kexinit: none,zlib debug2: kex_parse_kexinit: debug2: kex_parse_kexinit: debug2: kex_parse_kexinit: first_kex_follows 0 debug2: kex_parse_kexinit: reserved 0 debug2: mac_setup: found hmac-md5 debug1: kex: server->client aes128-cbc hmac-md5 none debug2: mac_setup: found hmac-md5 debug1: kex: client->server aes128-cbc hmac-md5 none debug2: dh_gen_key: priv key bits set: 122/256 debug2: bits set: 517/1024 debug1: sending SSH2_MSG_KEXDH_INIT debug1: expecting SSH2_MSG_KEXDH_REPLY debug3: check_host_in_hostfile: filename /Users/rowen/.ssh/known_hosts debug3: check_host_in_hostfile: match line 8 debug3: check_host_in_hostfile: filename /Users/rowen/.ssh/known_hosts debug3: check_host_in_hostfile: match line 8 debug1: Host 'tccdev' is known and matches the DSA host key. debug1: Found key in /Users/rowen/.ssh/known_hosts:8 debug2: bits set: 509/1024 debug1: ssh_dss_verify: signature correct debug2: kex_derive_keys debug2: set_newkeys: mode 1 debug1: SSH2_MSG_NEWKEYS sent debug1: expecting SSH2_MSG_NEWKEYS debug2: set_newkeys: mode 0 debug1: SSH2_MSG_NEWKEYS received debug1: SSH2_MSG_SERVICE_REQUEST sent debug2: service_accept: ssh-userauth debug1: SSH2_MSG_SERVICE_ACCEPT received debug2: key: /Users/rowen/.ssh/id_rsa (0x307a10) debug2: key: /Users/rowen/.ssh/id_dsa (0x0) debug3: input_userauth_banner Welcome to OpenVMS (TM) Alpha Operating System, Version V7.2-1 debug1: Authentications that can continue: publickey,password debug3: start over, passed a different list publickey,password debug3: preferred gssapi-keyex,gssapi-with-mic,publickey,keyboard-interactive,password debug3: authmethod_lookup publickey debug3: remaining preferred: keyboard-interactive,password debug3: authmethod_is_enabled publickey debug1: Next authentication method: publickey debug1: Offering public key: /Users/rowen/.ssh/id_rsa debug3: send_pubkey_test debug2: we sent a publickey packet, wait for reply debug1: Authentications that can continue: publickey,password debug1: Trying private key: /Users/rowen/.ssh/id_dsa debug3: no such identity: /Users/rowen/.ssh/id_dsa debug2: we did not send a packet, disable method debug3: authmethod_lookup password debug3: remaining preferred: ,password debug3: authmethod_is_enabled password debug1: Next authentication method: password tcc@tccdev's password: ------------------------------ Date: Wed, 06 Aug 2008 22:28:55 +0200 From: "Martin Vorlaender" Subject: Re: multinet public key question Message-ID: Russell E. Owen wrote: > I can't seem to make public key authentication work for connecting to a > VMS box running Multinet 5.1A from a unix (MacOS X) box. > > On the unix box I have a 2048-bit RSA public key id_rsa.pub in open-ssh > format. I use this key with success on various unix systems. > > I used ssh-keygen to export a copy in the format used by VMS; the result > looks like this: > ---- BEGIN SSH2 PUBLIC KEY ---- > Comment: "2048-bit RSA, converted from OpenSSH by rowen@..." > AAAAB3NzaC1yc2EAAAABIwAAAQEAyTIpI6IxXiv9/UIs/opZ5vPk9CnPCz+p5QwoqD1Klh > ... > ---- END SSH2 PUBLIC KEY ---- > > Then I saved that copy to the VMS account as [.SSH2]ID_RSA.PUB > and created [.SSH2]AUTHORIZATION. which contains just the text > "ID_RSA.PUB" You need the keyword KEY in front of the filename, like "KEY ID_RSA.PUB". > The [.SSH2] dir looks like: > AUTHORIZATION.;1 (RWED,RWED,RWED,RE) > ID_RSA.PUB;1 (R,R,R,R) > RANDOM_SEED.;1 (RWD,RWD,,) > > but authentication fails. Any ideas? I've appended a maximally verbose > log (which is rather long). Haven't looked at the log - first fix your AUTHORIZATION file. cu, Martin -- One OS to rule them all | Martin Vorlaender | OpenVMS rules! One OS to find them | work: mv@pdv-systeme.de One OS to bring them all | http://vms.pdv-systeme.de/users/martinv/ And in the Darkness bind them.| home: martin.vorlaender@t-online.de ------------------------------ Date: Wed, 06 Aug 2008 13:50:47 -0700 From: "Russell E. Owen" Subject: Re: multinet public key question Message-ID: In article , "Martin Vorlaender" wrote: > Russell E. Owen wrote: > > I can't seem to make public key authentication work for connecting to a > > VMS box running Multinet 5.1A from a unix (MacOS X) box. > > > > On the unix box I have a 2048-bit RSA public key id_rsa.pub in open-ssh > > format. I use this key with success on various unix systems. > > > > I used ssh-keygen to export a copy in the format used by VMS; the result > > looks like this: > > ---- BEGIN SSH2 PUBLIC KEY ---- > > Comment: "2048-bit RSA, converted from OpenSSH by rowen@..." > > AAAAB3NzaC1yc2EAAAABIwAAAQEAyTIpI6IxXiv9/UIs/opZ5vPk9CnPCz+p5QwoqD1Klh > > ... > > ---- END SSH2 PUBLIC KEY ---- > > > > Then I saved that copy to the VMS account as [.SSH2]ID_RSA.PUB > > and created [.SSH2]AUTHORIZATION. which contains just the text > > "ID_RSA.PUB" > > You need the keyword KEY in front of the filename, like > "KEY ID_RSA.PUB". Oops. That did it. Thank you! -- Russell ------------------------------ Date: Wed, 06 Aug 2008 20:00:53 +0200 From: "P. Sture" Subject: Re: Questions i need answered Message-ID: In article <144bbcc7-362a-43a6-9809-f373f857e1ba@27g2000hsf.googlegroups.com>, DaveG wrote: > Working? Sorta. How about limiting privs to those that need to let's > say simply reset a password, a common help desk task. How about > calling a DCL procedure from OMS? No can do. These and several other > suggestions were submitted and apparently fell upon deaf ears. There was also no means to print the disk config. Screenshots don't cut it for a disk farm. -- Paul Sture ------------------------------ Date: Wed, 06 Aug 2008 17:31:59 -0400 From: "Richard B. Gilbert" Subject: Re: Questions i need answered Message-ID: P. Sture wrote: > In article > <144bbcc7-362a-43a6-9809-f373f857e1ba@27g2000hsf.googlegroups.com>, > DaveG wrote: > >> Working? Sorta. How about limiting privs to those that need to let's >> say simply reset a password, a common help desk task. How about >> calling a DCL procedure from OMS? No can do. These and several other >> suggestions were submitted and apparently fell upon deaf ears. > > There was also no means to print the disk config. Screenshots don't cut > it for a disk farm. > A SMOP! Try this: $DISKLOOP: $ DEVICE=F$DEVICE("*", "DISK") $ IF DEVICE .EQS. "" THEN GOTO END_DISKLOOP $ IF F$GETDVI(DEVICE, "SHDW_MASTER") $ THEN $ SAY "''DEVICE' is a shadow set with members:" $ X = F$GETDVI(DEVICE, "SHDW_NEXT_MBR_NAME") $MEMBER_LOOP: $ MSG = " ''X' on ''F$GETDVI(X, "HOST_TYPE")' " + - "''F$GETDVI(X, "HOST_NAME")'" $ IF F$GETDVI(X, "HOST_COUNT") .GT. 1 THEN - MSG = MSG + ", Alternate host ''F$GETDVI(X, "ALT _HOST_NAME")'" $ SAY MSG $ X = F$GETDVI(X, "SHDW_NEXT_MBR_NAME") $ IF X .NES. "" THEN GOTO MEMBER_LOOP $ SAY F$FAO("!15<''DEVICE'!>") + " is an " + - F$FAO("!9<''F$GETDVI(DEVICE, FUNC)'!>") $ SAY " Host type ''F$GETDVI(DEVICE, "HOST_TYPE")' " + - "Host Name ''F$GETDVI(DEVICE, "HOST_NAME")'" $ GOTO DISKLOOP $ ENDIF $ IF F$GETDVI(DEVICE, "SHDW_MEMBER") THEN GOTO DISKLOOP $ SAY F$FAO("!15<''DEVICE'!>") + " is an " + - F$FAO("!13<''F$GETDVI(DEVICE, FUNC)'!>") + - " on ''F$GETDVI(DEVICE, "HOST_TYPE")' " + - "''F$GETDVI(DEVICE, "HOST_NAME")' with " + - "''F$GETDVI(DEVICE, "FREEBLOCKS")' Free Blocks" $ GOTO DISKLOOP $END_DISKLOOP: ALPHA5_$ pwd DISK$ALPHAVMS72_1:[DRAGON.COM] ALPHA5_$ dir *conf* Directory DISK$ALPHAVMS72_1:[DRAGON.COM] DO_CONFIG.COM;3 GET_CONFIG.CHK;1 GET_CONFIG.COM;64 GET_CONFIG.COM;63 GET_CONFIG.COM;62 GET_CONFIG.COM;61 GET_CONFIG.COM;60 GET_CONFIG.COM;59 GET_CONFIG.COM;58 GET_CONFIG.COM;57 GET_CONFIG.COM;56 GET_CONFIG.COM;55 Total of 12 files. ALPHA5_$ edt get_config.com Include file does not exist File name:DISK$ALPHAVMS72_1:[DRAGON.COM]QUOTE.EDT; %RMS-E-FNF, file not found $! GET_CONFIG.COM $! $! Copyright 1995-2001 All rights reserved. $! Richard B. Gilbert $! $! $! A license to use and distribute this software is granted under the $! following terms and conditions: $! 1. You may not sell it. This is not intended to preclude a reasonable $! charge for: media, copying, shipping, and handling. $! 2. You may not claim you wrote it. $! 3. You may not remove or alter my Copyright notice or these terms and $! conditions. $! 4. You agree that this software is offered without warranty of any $! kind whatever. If it's broken, you fix it. $! 5. You accept full responsibility for determining that this software $! is suitable for your intended uses. $! 6. You may not modify this software unless: $! a. You make your modifications in such a way that it is clear $! which parts of the modified software are your changes and $! which are part of the original. $! b. You make your changes freely available to all other licensees Include file does not exist ------------------------------ Date: Wed, 6 Aug 2008 18:04:28 -0400 From: norm.raphael@metso.com Subject: Re: Questions i need answered Message-ID: This is a multipart message in MIME format. --=_alternative 00793FE38525749D_= Content-Type: text/plain; charset="US-ASCII" Excuse the top-posting, pls. I do not seem to have the argument "F$GETDVI(DEVICE, FUNC)" What would this map to? And the command file is missing the SAY:=WRITE SYS$OUTPUT also. And what is all that after the white-space that I removed? "Richard B. Gilbert" wrote on 08/06/2008 05:31:59 PM: > P. Sture wrote: > > In article > > <144bbcc7-362a-43a6-9809-f373f857e1ba@27g2000hsf.googlegroups.com>, > > DaveG wrote: > > > >> Working? Sorta. How about limiting privs to those that need to let's > >> say simply reset a password, a common help desk task. How about > >> calling a DCL procedure from OMS? No can do. These and several other > >> suggestions were submitted and apparently fell upon deaf ears. > > > > There was also no means to print the disk config. Screenshots don't cut > > it for a disk farm. > > > > A SMOP! > Try this: > $DISKLOOP: > $ DEVICE=F$DEVICE("*", "DISK") > $ IF DEVICE .EQS. "" THEN GOTO END_DISKLOOP > $ IF F$GETDVI(DEVICE, "SHDW_MASTER") > $ THEN > $ SAY "''DEVICE' is a shadow set with members:" > $ X = F$GETDVI(DEVICE, "SHDW_NEXT_MBR_NAME") > $MEMBER_LOOP: > $ MSG = " ''X' on ''F$GETDVI(X, "HOST_TYPE")' " + - > "''F$GETDVI(X, "HOST_NAME")'" > $ IF F$GETDVI(X, "HOST_COUNT") .GT. 1 THEN - > MSG = MSG + ", Alternate host ''F$GETDVI(X, > "ALT_HOST_NAME")'" > $ SAY MSG > $ X = F$GETDVI(X, "SHDW_NEXT_MBR_NAME") > $ IF X .NES. "" THEN GOTO MEMBER_LOOP > $ SAY F$FAO("!15<''DEVICE'!>") + " is an " + - > F$FAO("!9<''F$GETDVI(DEVICE, FUNC)'!>") > $ SAY " Host type ''F$GETDVI(DEVICE, "HOST_TYPE")' " + - > "Host Name ''F$GETDVI(DEVICE, "HOST_NAME")'" > $ GOTO DISKLOOP > $ ENDIF > $ IF F$GETDVI(DEVICE, "SHDW_MEMBER") THEN GOTO DISKLOOP > $ SAY F$FAO("!15<''DEVICE'!>") + " is an " + - > F$FAO("!13<''F$GETDVI(DEVICE, FUNC)'!>") + - > " on ''F$GETDVI(DEVICE, "HOST_TYPE")' " + - > "''F$GETDVI(DEVICE, "HOST_NAME")' with " + - > "''F$GETDVI(DEVICE, "FREEBLOCKS")' Free Blocks" > $ GOTO DISKLOOP > $END_DISKLOOP: > > ALPHA5_$ pwd > DISK$ALPHAVMS72_1:[DRAGON.COM] > ALPHA5_$ dir *conf* > > Directory DISK$ALPHAVMS72_1:[DRAGON.COM] > > DO_CONFIG.COM;3 GET_CONFIG.CHK;1 GET_CONFIG.COM;64 > GET_CONFIG.COM;63 > GET_CONFIG.COM;62 GET_CONFIG.COM;61 GET_CONFIG.COM;60 > GET_CONFIG.COM;59 > GET_CONFIG.COM;58 GET_CONFIG.COM;57 GET_CONFIG.COM;56 > GET_CONFIG.COM;55 > > Total of 12 files. > ALPHA5_$ edt get_config.com > > > Include file does not exist > File name:DISK$ALPHAVMS72_1:[DRAGON.COM]QUOTE.EDT; > %RMS-E-FNF, file not found > > > $! GET_CONFIG.COM > $! > $! Copyright 1995-2001 All rights reserved. > $! Richard B. Gilbert > $! > $! > $! A license to use and distribute this software is granted under the > $! following terms and conditions: > $! 1. You may not sell it. This is not intended to preclude a reasonable > $! charge for: media, copying, shipping, and handling. > $! 2. You may not claim you wrote it. > $! 3. You may not remove or alter my Copyright notice or these terms and > $! conditions. > $! 4. You agree that this software is offered without warranty of any > $! kind whatever. If it's broken, you fix it. > $! 5. You accept full responsibility for determining that this software > $! is suitable for your intended uses. > $! 6. You may not modify this software unless: > $! a. You make your modifications in such a way that it is clear > $! which parts of the modified software are your changes and > $! which are part of the original. > $! b. You make your changes freely available to all other licensees > > Include file does not exist --=_alternative 00793FE38525749D_= Content-Type: text/html; charset="US-ASCII"
Excuse the top-posting, pls.

I do  not seem to have the argument "F$GETDVI(DEVICE, FUNC)"
What would this map to?

And the command file is missing the SAY:=WRITE SYS$OUTPUT also.

And what is all that after the white-space that I removed?

"Richard B. Gilbert" <rgilbert88@comcast.net> wrote on 08/06/2008 05:31:59 PM:

> P. Sture wrote:
> > In article
> > <144bbcc7-362a-43a6-9809-f373f857e1ba@27g2000hsf.googlegroups.com>,
> >  DaveG <david.gudewicz@abbott.com> wrote:
> >
> >> Working?  Sorta.  How about limiting privs to those that need to let's
> >> say simply reset a password, a common help desk task.  How about
> >> calling a DCL procedure from OMS?  No can do.  These and several other
> >> suggestions were submitted and apparently fell upon deaf ears.
> >
> > There was also no means to print the disk config. Screenshots don't cut
> > it for a disk farm.
> >
>
> A SMOP!
> Try this:
> $DISKLOOP:
> $ DEVICE=F$DEVICE("*", "DISK")
> $ IF DEVICE .EQS. "" THEN GOTO END_DISKLOOP
> $ IF F$GETDVI(DEVICE, "SHDW_MASTER")
> $       THEN
> $               SAY "''DEVICE' is a shadow set with members:"
> $               X = F$GETDVI(DEVICE, "SHDW_NEXT_MBR_NAME")
> $MEMBER_LOOP:
> $               MSG = " ''X' on ''F$GETDVI(X, "HOST_TYPE")' " + -
>                          "''F$GETDVI(X, "HOST_NAME")'"
> $               IF F$GETDVI(X, "HOST_COUNT") .GT. 1 THEN -
>                     MSG = MSG + ", Alternate host ''F$GETDVI(X,
> "ALT_HOST_NAME")'"
> $               SAY MSG
> $               X = F$GETDVI(X, "SHDW_NEXT_MBR_NAME")
> $               IF X .NES. "" THEN GOTO MEMBER_LOOP
> $               SAY F$FAO("!15<''DEVICE'!>") + " is an " + -
>                          F$FAO("!9<''F$GETDVI(DEVICE, FUNC)'!>")
> $               SAY "   Host type ''F$GETDVI(DEVICE, "HOST_TYPE")' " + -
>                      "Host Name ''F$GETDVI(DEVICE, "HOST_NAME")'"
> $               GOTO DISKLOOP
> $       ENDIF
> $ IF F$GETDVI(DEVICE, "SHDW_MEMBER") THEN GOTO DISKLOOP
> $ SAY F$FAO("!15<''DEVICE'!>") + " is an " + -
>          F$FAO("!13<''F$GETDVI(DEVICE, FUNC)'!>") + -
>                  " on ''F$GETDVI(DEVICE, "HOST_TYPE")' " + -
>                  "''F$GETDVI(DEVICE, "HOST_NAME")' with " + -
>                  "''F$GETDVI(DEVICE, "FREEBLOCKS")' Free Blocks"
> $ GOTO DISKLOOP
> $END_DISKLOOP:
>

> ALPHA5_$ pwd
>    DISK$ALPHAVMS72_1:[DRAGON.COM]
> ALPHA5_$ dir *conf*
>
> Directory DISK$ALPHAVMS72_1:[DRAGON.COM]
>
> DO_CONFIG.COM;3     GET_CONFIG.CHK;1    GET_CONFIG.COM;64
> GET_CONFIG.COM;63
> GET_CONFIG.COM;62   GET_CONFIG.COM;61   GET_CONFIG.COM;60
> GET_CONFIG.COM;59
> GET_CONFIG.COM;58   GET_CONFIG.COM;57   GET_CONFIG.COM;56
> GET_CONFIG.COM;55
>
> Total of 12 files.
> ALPHA5_$ edt get_config.com
>
>
> Include file does not exist
> File name:DISK$ALPHAVMS72_1:[DRAGON.COM]QUOTE.EDT;
> %RMS-E-FNF, file not found
>
>
> $! GET_CONFIG.COM
> $!
> $! Copyright 1995-2001  All rights reserved.
> $! Richard B. Gilbert
> $! <DRAGON@CompuServe.Com>
> $!
> $! A license to use and distribute this software is granted under the
> $! following terms and conditions:
> $! 1. You may not sell it. This is not intended to preclude a reasonable
> $!    charge for: media, copying, shipping, and handling.
> $! 2. You may not claim you wrote it.
> $! 3. You may not remove or alter my Copyright notice or these terms and
> $!    conditions.
> $! 4. You agree that this software is offered without warranty of any
> $!    kind whatever.  If it's broken, you fix it.
> $! 5. You accept full responsibility for determining that this software
> $!    is suitable for your intended uses.
> $! 6. You may not modify this software unless:
> $!      a. You make your modifications in such a way that it is clear
> $!         which parts of the modified software are your changes and
> $!         which are part of the original.
> $!      b. You make your changes freely available to all other licensees
>
> Include file does not exist
--=_alternative 00793FE38525749D_=-- ------------------------------ Date: Wed, 06 Aug 2008 19:01:37 -0400 From: "Richard B. Gilbert" Subject: Re: Questions i need answered Message-ID: norm.raphael@metso.com wrote: > > Excuse the top-posting, pls. I'll forgive the top-posting but not THE FOUR POINT TYPE you post your messages in! You are the ONLY person who posts this way! Please FIX IT! FWIW the problem is due to "
" which appears multiple times in your messages to this group. Just in case...
If you changed the "2" to "4" I suspect that readability would improve substantially! > > I do not seem to have the argument "F$GETDVI(DEVICE, FUNC)" > What would this map to? $ IF VERSION .GES. "V6.1" $ THEN $ FUNC:=DEVICE_TYPE_NAME $ ELSE $ FUNC:=MEDIA_NAME $ ENDIF BTW, the cause the the tiny type is "$ IF VERSION .GES. "V6.1" $ THEN $ FUNC:=DEVICE_TYPE_NAME $ ELSE $ FUNC:=MEDIA_NAME $ ENDIF I suppose I could post the whole damned thing if anybody really wants it. I wrote the original version in 1995 in order to learn the hardware configuration of a clueless client I was doing some consulting for. He was an IBM Mainframe guy and had no idea what his VAX hardware configuration was. His mainframe thought the MicroVAX 3100 was a tape drive or some such thing. I sent him the original version, he ran it, sent me the output, and I then had some idea of what I was dealing with. I have been modifying and extending it ever since. I can load the procedure into your system via floppy or CD-ROM or even type it in and it will report your hardware and software configuration! Actually, raids the license database to see what you are licensed for and it won't pick up on third party. It might get a little confused about your TCP/IP stack if you have Multinet or another third party stack installed. I never had a system with a foreign TCP/IP stack that I could test with. ------------------------------ End of INFO-VAX 2008.428 ************************