Discussion :

[f_herpe]

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 :

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

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

[ced600]

A quelle ligne l'erreur ?
Ici ?

Code :

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

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

[f_herpe]

Voici que ce

Code :

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

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

donne comme erreur: Erreur d'accès: Le serveur RPC n'est pas disponible.

[ced600]

En lève "On Error Resume Next" et dis moi à quelle ligne cela plante.

[f_herpe]

À cette ligne

Code :

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

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

(212, 2) SWbemLocator: Le serveur RPC n'est pas disponible.

[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