问WindowsServer 2003命令检查已安装的角色

EN

function Get-InstalledComponents($computer = '.') {
    $components_installed   = @();

    $reg_paths  = @('SOFTWARE\Microsoft\Windows\CurrentVersion'`
            + '\Setup\Oc Manager\Subcomponents');
    $reg_paths  += @('SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion'`
            + '\Setup\Oc Manager\Subcomponents');

    $hkey   = 'LocalMachine';
    $reg    = [Microsoft.Win32.RegistryKey]::OpenRemoteBaseKey($hkey, $computer);
    foreach ($reg_path in $reg_paths) {
        $reg_key    = $reg.OpenSubKey($reg_path);
        if ($reg_key -eq $null) {
            continue;
        }
        $names  = $reg_key.GetValueNames();

        foreach ($name in $names) {
            $value  = $reg_key.GetValue($name);
            if ($value -gt 0) {
                $components_installed += @($name);
            }
        }
        $reg_key.close();
    }
    $reg.close();

    if ($components_installed.count -lt 1) {
        trap { ;
        continue } $features = @(get-wmiobject -class 'Win32_ServerFeature' `
                    -computer $computer -erroraction 'Stop');

        foreach ($feature in $features) {
            $components_installed += @($feature.name);
        }
    }       

    return ($components_installed | sort);
}