Connexion ALM QC-PC avec PowerShell

L’automatisation de tâches de gestion dans ALM QC-PC via Powershell est possible, mais il est convient de respecter la procédure suivante. Pour info, cette procédure n’existe actuellement pas le net. Le programme ci-dessous active un projet ALM si celui-ci n’est pas activé.

Pour autoriser l’éxécution des scripts signés ou pas dans Powershell, il est nécessaire de lancer dans Powershell : set-executionpolicy remotesigned

Lancer le script via invite de commande : powershell -File “ActivateProjet.ps1″

# Chargement des Assembly nécessaires à l’utilisation des classes de connexion

[Reflection.Assembly]::LoadFile(“D:\Sources\\Interop.TDAPIOLELib.dll“) | out-null

[Reflection.Assembly]::LoadFile(“D:\Sources\\Interop.SACLIENTLib.dll“) | out-null

$td = New-Object -ComObject TDApiOle80.TDConnection

$almsa = New-Object SACLIENTLib.SAapiClass

$qualityCenterLink = “http://<SERVER>:8080/qcbin”

$qualityCenterDomain = “DEFAULT”

# Saisie Password et Nom Projet

$qualityCenterProject=Read-Host “quality Center Project”

$qualityCenterUsername = Read-Host “quality Center User”

$qualityCenterPassword=Read-Host “quality Center Password”

# Connexion ALM PC

$td.InitConnectionEx($qualityCenterLink)

$td.Login($qualityCenterUsername, $qualityCenterPassword)

$almsa.Login($qualityCenterLink, $qualityCenterUsername, $qualityCenterPassword)

[System.XML.XMLDocument]$Doc = New-Object System.Xml.XmlDocument

$Doc.LoadXml($almsa.GetDomain($qualityCenterDomain))

#Write-Host “Doc : ” $Doc.OuterXml

#[System.XML.XmlNode]$ProjectList = $Doc.DocumentElement.SelectSingleNode(“PROJECTS_LIST”)

#Write-Host “ProjectList : ” $ProjectList.OuterXml

$node1 = $Doc.SelectNodes(“GetDomain/PROJECTS_LIST/TDXItem”)

#Write-Host $node1.Count

ForEach ($Project in $node1) {

    $Projet = $Project.SelectSingleNode(“PROJECT_NAME”).InnerText

    Write-Host “Projet : ” $Projet

    $ProjetActive = $Project.SelectSingleNode(“PR_IS_ACTIVE”).InnerText

    Write-Host “ProjetActive : ” $ProjetActive

    if ($ProjetActive -eq “N”) {

     $almsa.ActivateProject($qualityCenterDomain, $qualityCenterProject)

     Write-Host “Projet” $qualityCenterProject “activé !”

    } else {

     Write-Host “Projet déjà activé”

    }

}

$td.Disconnect()

$td.Logout()

$almsa.Logout()