Bonjour,

J'ai besoin, dans le cadre d'une application de créer des alias
serveur sur une multitude de postes clients. Il me semble que cela
soit possible au travers de script vbs utilisant wmi/smo.
Mais je n'ai réussi qu'à trouver le code ci dessous qui permet de
lister les alias serveurs présent sur le poste, mais rien quant à
l'ajout d'un tel alias ....

'-------------------------------------------------------------------------------------------------------------
On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("FRLYONWF000999")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root
\Microsoft\SqlServer\ComputerManagement")
Set colItems = objWMIService.ExecQuery("SELECT * FROM
SqlServerAlias", "WQL", _
wbemFlagReturnImmediately +
wbemFlagForwardOnly)

For Each objItem In colItems
WScript.Echo "AliasName: " & objItem.AliasName
WScript.Echo "ConnectionString: " & objItem.ConnectionString
WScript.Echo "ProtocolName: " & objItem.ProtocolName
WScript.Echo "ServerName: " & objItem.ServerName
WScript.Echo
Next
Next
'-------------------------------------------------------------------------------------------------------------

Quelqu'un connaitrait il le moyen d'ajouter un alias ? ....
Merci
cdlt
Dimitri