sub GET_OPTIONS
{

    %OPTS=();
    $OPTS{'h'}=$WScript->Arguments(1);
    $OPTS{'u'}=$WScript->Arguments(2);
    $OPTS{'p'}=$WScript->Arguments(3);
    $OPTS{'m'}="status";
}

sub SCRIPT_OUT
{
my ($OUT_CODE, $OUT_STAT_NUM, $OUT_MSG)=@_;
# 0 Up
# 1 Down
# 2 Warning
# 3 Critical
    print "Statistic:$OUT_STAT_NUM\nMessage: $OUT_MSG";
    $WScript->Quit($OUT_CODE);
}

sub RAID_STATUS_PROC
    {
        my ($CON_STATUS)=@_;
        if ($CON_STATUS !~ /Optimal/)
            {
                SCRIPT_OUT('2','2',"RAID status is $CON_STATUS");
            }else {SCRIPT_OUT('0','0',"RAID status is $CON_STATUS");}
    }
sub MODE_PROC
{
    system ("arcconf setvmcredential $OPTS{'h'} 5989 $OPTS{'u'} $OPTS{'p'} > nul");

    if ($OPTS{'m'} eq "status")
        {
            open PIPE, "arcconf getconfig 1|";
            my @TMP_OUTPUT=<PIPE>;
            close PIPE;
            foreach (@TMP_OUTPUT)
                {
                if (/Status of logical device.+\:\s(.+)/)
                    {
                        RAID_STATUS_PROC($1);
                    }
                }
        }

}
GET_OPTIONS;
MODE_PROC;