$ Swap=F$GETSYS("PAGEFILE_PAGE")*8192/1048500
$ Mem=F$GETSYS("MEMSIZE")*8192/1048500
$ Node=F$GETSYS("NODENAME")
$ Vers=F$GETSYS("VERSION")-"V"
$ @sys$update:decw$get_image_version sys$share:decw$xmlibshr.exe-
                Motif
$ Motif=Motif-"V"-"DW "
$ Spawn/Out=XXXXX.TMP/NoLog multinet show/version
$ Open/Read TMP XXXXX.TMP
$ Read TMP Line
$ Close TMP
$ Delete XXXXX.TMP;*
$ Multi=F$EXTRACT(14,9,Line)
$ Write Sys$Output -
"Node    OS/Version   RAM Mb   Swap Mb   Motif       Multinet"
$ Write Sys$Output -
Node,"   ","VMS ",Vers,"  ",Mem,"      ",-
Swap,"       ",Motif,"  ",Multi