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