Discussion :

[shadowmoon]

Pour me connecter à un ordinateur distant, j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim options As ConnectionOptions = New ConnectionOptions()
 
        options.Authority = "ntdlmdomain:" + Domain
        options.Username = Login
        options.Password = Mdp
 
        Dim scope As ManagementScope = New ManagementScope("\\" + AdressIP, options)
 
scope.connect()

L'instanciation de l'objet scope se fait sans erreur, par contre au moment du connect, une exception se lève avec le texte "paramètre non valide".

Pourtant, quand j'utilise l'outil "connexion bureau à distance", sous Windows 7, et avec les mêmes paramètres, je n'ai aucun souci pour accéder à l'ordinateur en question.


C'est la première fois que j'utilise cet objet. Quelqu'un peut m'éclairer sur son fonctionnement ?


NB : Si j'enlève le "\\", j'ai la même exception, mais au niveau du New ManagementScope(AdressIP, options)

[_Ez3kiel]

Vérifie la construction de ConnectionOptions est correcte : ConnectionOptions MSDN
Car là tu instancies avec le constructeur par défaut, puis tu changes qlqes properties, mais les autres restent à leurs valeurs par défaut...

Et vérifie que Mdp soit un SecureString, sinon tu te retrouves avec cette instanciation qui est recommandée pour une connexion WMI.


Tu peux aussi t'inspirer de ce tuto d'MSDN : Comment : se connecter à un ordinateur distant

[shadowmoon]

Justement, j'ai calqué mon code sur celui dans le tutoriel que tu mentionnes

tuto d'MSDN : Comment : se connecter à un ordinateur distant

Du coup, je vais chercher du coté des options, merci pour ton lien sur ce point précis.

[edit] Pour les "options", à quoi correspond le paramètre "locale", dont la valeur est "MS_409" dans l'exemple ? Je ne vois pas du tout à quoi il sert ... [/edit]

[edit2]
Je ne sais pas si j'ai progressé ou non, mais maintenant, avec ce paramétrage des options :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Dim options As ConnectionOptions = New ConnectionOptions("MS_409", Login, Mdp, "ntlmdomain:" + Domain, System.Management.ImpersonationLevel.Impersonate, System.Management.AuthenticationLevel.Default, False, Nothing, System.TimeSpan.MaxValue)

J'ai toujours un message d'erreur au niveau du connect, toutefois il est différent, et il est devenu : "Les références utilisateur ne peuvent pas être utilisées pour des connexions locales"
[/edit2]

[_Ez3kiel]

1er PS : ConnectionOptions.Locale

Pour les identificateurs de paramètres régionaux Microsoft, le format de la chaîne est "MS_xxx", où xxx est une chaîne sous forme hexadécimale indiquant le LCID (Locale Identification) ; par exemple, l'anglais américain serait indiqué comme suit : "MS_409".

2éme PS :
Ton erreur signifie que que tu ne peux pas te connecter à distance sur toi-même.


Et après avoir lu d'autres sources, dont MSDN, ta construction était en fait bonne ... Pas taper !
Donc l'erreur est dans un des 2 paramètres de ton objet ManagementScope, il faudrait que tu regardes la valeur de "AdressIP" (en espérant que ce ne soit pas 127.0.0.1)

[shadowmoon]

Ton erreur signifie que que tu ne peux pas te connecter à distance sur toi-même ... regardes la valeur de "AdressIP"

Je ne pense pas que le souci viennent de l'adresse IP, car mon ordinateur est en IP fixe (10.151.2.132) et l'adresse IP de l'ordinateur de destination (10.151.2.121) est lue depuis un fichier de configuration.

De plus, les deux ordinateurs sont sur le même réseau informatique et appartiennent aussi au même domaine.

Donc l'erreur est dans un des 2 paramètres de ton objet ManagementScope

Si tu veut parler du login et du mot de passe, ils sont bons car :

Pourtant, quand j'utilise l'outil "connexion bureau à distance", sous Windows 7, et avec les mêmes paramètres, je n'ai aucun souci pour accéder à l'ordinateur en question.

[_Ez3kiel]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
' Make a connection to a remote computer.
        ' Replace the "FullComputerName" section of the
        ' string "\\FullComputerName\root\cimv2" with
        ' the full computer name or IP address of the
        ' remote computer.
        Dim scope As ManagementScope
        scope = New ManagementScope( _
            "\\FullComputerName\root\cimv2")
        scope.Connect()

Selon MSDN, il faut remplacer "FullComputerName" par le nom du pc, ou l'ip, ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
scope = New ManagementScope( _
            "\\10.151.2.xxx\root\cimv2")

Je l'interprète comme cela, après je ne suis pas sûr.