démarrer service à distance
Code:
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
32
33
34
| Function StartService(ServiceName,Computer)
If bDebug = True Then
wscript.echo "Service Name= " & ServiceName
End If
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Name='" & ServiceName & "'")
For each objService in colServiceList
If objService.State <> "Running" Then
If bDebug=True Then
Wscript.Echo "Starting " & ServiceName & " ..."
End If
errReturn = objService.StartService()
If errReturn <> 0 Then
WScript.Echo "Error starting " & ServiceName
StartService = errReturn
Else
Do
Set colRunningServices = objWMIService.ExecQuery ("Select * from Win32_Service where Name='" & ServiceName & "'")
For Each objRunningService In colRunningServices
If objRunningService.State = "Running" Then
If bDebug=True Then
wscript.echo ServiceName & " started."
End If
StartService = 0
Exit Do
Else
wscript.sleep 100
End If
Next
Loop
End If
End If
Next |
voici ma fonction pour démarrer un service...le probleme c'est que ça marche tres bien en local mais pas à distance, je dois certainement passer le login et mot de passe du serveur que je veux attaquer.
je sais qu'il existe un outil Psservice qui existe et qui marche car on peux lui envoyer le login mot de passe mais c'est dans le cadre de la création d'un page web que je fais ces scripts pour donner la possibilité aux utilisateurs de démarrer et stoper des services d'un serveur non accéssible
merci pour votre aide
une solution je suis novice
Citation:
Envoyé par
battit64
Code:
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
32
33
34
| Function StartService(ServiceName,Computer)
If bDebug = True Then
wscript.echo "Service Name= " & ServiceName
End If
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery ("Select * from Win32_Service where Name='" & ServiceName & "'")
For each objService in colServiceList
If objService.State <> "Running" Then
If bDebug=True Then
Wscript.Echo "Starting " & ServiceName & " ..."
End If
errReturn = objService.StartService()
If errReturn <> 0 Then
WScript.Echo "Error starting " & ServiceName
StartService = errReturn
Else
Do
Set colRunningServices = objWMIService.ExecQuery ("Select * from Win32_Service where Name='" & ServiceName & "'")
For Each objRunningService In colRunningServices
If objRunningService.State = "Running" Then
If bDebug=True Then
wscript.echo ServiceName & " started."
End If
StartService = 0
Exit Do
Else
wscript.sleep 100
End If
Next
Loop
End If
End If
Next |
voici ma fonction pour démarrer un service...le probleme c'est que ça marche tres bien en local mais pas à distance, je dois certainement passer le login et mot de passe du serveur que je veux attaquer.
je sais qu'il existe un outil Psservice qui existe et qui marche car on peux lui envoyer le login mot de passe mais c'est dans le cadre de la création d'un page web que je fais ces scripts pour donner la possibilité aux utilisateurs de démarrer et stoper des services d'un serveur non accéssible
merci pour votre aide
salut !!!!!! voila j'ai un peut la mémé optique concernant le scripte sauf que moi j'ai fait un scripte qui active le service sur ma machine affiche une fenêtre me demande dans une IP et mon message mon seul problème est que je ne voie pas comme je pourrais faire pour activer le mémé service le seul problème est qu'il faudrait activer le service sur la machine distante et c'est la que je bloque en faite
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Set monshell = CreateObject( "WScript.shell")
monshell.Run "net start messenger"
wscript.sleep ("15000")
ip=InputBox("Vers qui")
message = InputBox ("quoi ?")
monshell.Run "net send " & ip & " " & message
monshell.Popup "Message envoyé"
Set monshell = CreateObject( "WScript.shell")
monshell.Run "net stop messenger" |
Voila mon début de scripte
merci beaucoup pour vos réponse
bonne journée
