Bureau à distance sous Vista

Version imprimable

Bonjour,
Je possède un script en Vb qui permet d'activer à distance le bureau à distance, mais sous Vista cela ne fonctionne pas.

J'ai comme message d'erreur: Le serveur RPC n'est pas disponible.

J'ai beau chercher, je ne trouve pas comment faire.

voici le script:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
'*** Object VB Script
Dim objShell:   Set objShell = createobject("WScript.shell")
 
'* Variables
Dim Poste:       Poste = InputBox("Nom du poste:","Menu","Pcccc")
Dim PassWord:  Password=Inputbox("Mot de passe:","Bureau à distance","")
 
'*Execution
 
On Error Resume Next
Set locator = CreateObject("WbemScripting.SWbemLocator") 
Set context = CreateObject("WbemScripting.SWbemNamedValueSet")    
Set objWMIService = locator.ConnectServer(Poste,"",UserName,Password)
If Err<>0 Then 
  MsgBox "Erreur d'accès: " & Err.Description
Else  
  Set colItems = objWMIService.ExecQuery("Select * from Win32 
   _TerminalServiceSetting",,48)
  For Each objItem in colItems
    objItem.SetAllowTSConnections 1
    If Err=0 Then 
      MsgBox "Utilisation à distance activée sur " &  
       Poste,vbInformation,"Contrôle à distance"
    Else
      MsgBox "Erreur " & Err.Description ,vbCritical,"Contrôle à distance"    
    End If  
  Next
End If  
 
End Sub

13/05/2008, 09h57
ced600

A quelle ligne l'erreur ?
Ici ?

Code:

Set objWMIService = locator.ConnectServer(Poste,"",UserName,Password)
13/05/2008, 14h52
f_herpe

Aucune erreur sur une ligne

Voici que ce

Code:

MsgBox "Erreur d'accès: " & Err.Description

donne comme erreur: Erreur d'accès: Le serveur RPC n'est pas disponible.
13/05/2008, 15h49
ced600

En lève "On Error Resume Next" et dis moi à quelle ligne cela plante.
13/05/2008, 17h12
f_herpe

À cette ligne :oops:

Code:

Set objWMIService = locator.ConnectServer(Poste,"",UserName,Password)

(212, 2) SWbemLocator: Le serveur RPC n'est pas disponible.
13/05/2008, 19h38
ced600
Ici toute l'aide MSDN sur comment se connecter sur un poste distant, et donc sur SWBemLocator.

Deux possibilités me viennent à l'esprit :
1. Les paramètres Poste, Username, Password sont mauvais
2. Le poste distant est configuré comme n'acceptant pas les connexions distantes ou n'est pas configurer pour accepter les connexions distantes. Lorsque tu le fais à la main tu dois configurer la machine comme acceptant les connexions de bureau distant. Pour notemment que cela lance le service qui crée ou gère le serveur RPC.
Bref avant tout essaye de te connecter à la main à l'aide du bureau à distance windows pour vérifier que cela viens de ta conf machine ou du script.

Le passage à Vista ne veut pas toujours dire : Ancien script à la poubelle. Mais dès fois, configuration de la machine à refaire ;)
13/05/2008, 19h49
f_herpe

Le problème avec Vista c'est que je trouve pas la façon de le faire à distance, alors qu'avec XP, j'utilise le script et j'active la connexion à distance à distance.
13/05/2008, 19h56
ced600

Oui mais il faut pour cela que certain service windows soit lancer, et ne sont peut être pas lancé sous vista. Je crois que par défault sous xp c aussi le cas.
Moi chez moi j'ai pas activé le bureau à distance.
Sur un réseau entreprise tu as peut être une version pro où par défault c authoriser, mais sous vista c peut être pas pareil.

Mais ce genre d'erreur je m'en souviens pour des tentatives de connection avec le bureau distant sur des postes configurer pour ne pas l'accepter.

Bref essaye à la main avant toutes choses, je pense que tu n'y arriveras pas.