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 |
Partager