Edit D:\app\Administrator\product\11.2.0\dbhome_1\sysman\admin\scripts\db\domainusergrp.pl

#!/usr/local/bin/perl
# 
# $Header: domainusergrp.pl 05-dec-2006.22:29:34 manosing Exp $
#
# domainusergrp.pl
# 
# Copyright (c) 2006, Oracle. All rights reserved.  
#
#    NAME
#      domainusergrp.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#      <short description of component this file declares/defines>
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    manosing    11/28/06 - Creation
#

require "$ENV{EMDROOT}/sysman/admin/scripts/db/esaUtils.pl";

my $oracleHome = $ENV{EM_TARGET_ORACLE_HOME};

my $maxRow=$ENV{"DOMAINUSER"};

if($maxRow==0){
   exit(0);
}

if($^O ne "MSWin32"){
        exit(0);
}
$pound= $Registry->Delimiter("/");

$oraKey= $Registry->{"HKEY_LOCAL_MACHINE/System/CurrentControlSet/Control/ProductOptions"};
my $t=$oraKey->{'/ProductType'};
if($t ne "LanmanNT")
{
    exit(0);
}

open(RES, "net localgroup users | ");
my @out = <RES>;
close RES;

@out= grep(/\\Domain Users/,@out);
if (@out > 0){
    print "em_result=domain_user_grp|$out[0]\n";
}

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de