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
31
' 
Option Explicit
Dim objWMIService, objItem, objService , strInput
Dim colListOfServices, strComputer, strService, intSleep
strComputer = "."
intSleep = 15000
WScript.Echo " Click OK, then wait " & intSleep & " milliseconds"
Do
strComputer = (InputBox(" ComputerName to Run Script",_
"Computer Name"))
If strComputer <> "" Then
strInput = True
End if
Loop until strInput = True
'On Error Resume Next
' NB strService is case sensitive.
strService = " Quark Licence Administrator Server 4.5 "
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
("Select * from Win32_Service Where Name ="_
& strService & " ")
For Each objService in colListOfServices
objService.StopService()
WSCript.Sleep intSleep
'objService.StartService()
Next
WScript.Echo "Your "& strService & " service has Started"
WScript.Quit
' End of Example WMI script to Start / Stop services
Voila un script qui marche en lorsque qu'on est administrateur du domaine, j'aimerais qu'un utilisateur qui n'a pas les droits admin puissent s'enservir.Comment intégrer un login mot de passe spécifique ou meme encrypter le mot de passe pour pas qu'iol soit en clair
merci de votre aide