#!/usr/local/bin/perl
# 
# $Header: winplat.pl 06-dec-2006.07:19:13 manosing Exp $
#
# winplat.pl
# 
# Copyright (c) 2006, Oracle. All rights reserved.  
#
#    NAME
#      winplat.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/22/06 - Creation
#



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

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

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

if($^O eq "MSWin32"){
    $pound= $Registry->Delimiter("/");

    $oraKey= $Registry->{"HKEY_LOCAL_MACHINE/System/CurrentControlSet/Control/ProductOptions"};
    my $t=$oraKey->{'/ProductType'};
    if($t eq "LanmanNT")
    {
        print "em_result=win_plat|$t\n";
    }
}