foreach my $drive("a".."z")
        {
        if(-e "$drive:\\appcmd.exe")
                {