Discussion :

[battit64]

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

[pitchalov]

Salut.

Personnellement, pour lancer un script nécessitant les droits d'admin, je crée un autre vbs qui le lance avec l'exécutable psexec.exe de sysinternals.

Cet exécutable permet de faire un runas sans envoyer de sendkey, ce qui est plutôt intéressant.

Après, vu que tes login/password sont en dur dans le script, tu peux utiliser Windows Script Encoder, qui permet de crypter ton vbs dans un fichier vbe