Edit D:\app\Administrator\product\11.2.0\dbhome_1\sysman\admin\scripts\allusers.pl
# $Header: allusers.pl 25-jun-2002.09:47:18 xxu Exp $ # # Copyright (c) 2002, 2003, Oracle Corporation. All rights reserved. # # NAME # allusers.pl # # DESCRIPTION # Number of logins for all logged on users # # MODIFIED (MM/DD/YY) # xxu 06/25/02 - remove /usr/local/bin/perl # # 1 NKJ: Copied from users.pl # $ENV{PATH} = "/usr/bin:/usr/sbin:/usr/ucb"; @DATA = `w -h`; for $userline (@DATA) { $userline =~ s/\W.*//; #get rid of everything after first word chomp($userline); $usercount{$userline} += 1; # print "$dataline : $usercount{$dataline}\n" } foreach $user (sort keys (%usercount)) { $count = $usercount{$user}; print "em_result=$user=$count\n"; }
Ms-Dos/Windows
Unix
Write backup
jsp File Browser version 1.2 by
www.vonloesch.de