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

[ced600]

regarde ici il y a la réponse à ton problème :
http://msdn.microsoft.com/en-us/libr...90(VS.85).aspx

[noxsis]

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

Sélectionner tout - Visualiser dans une fenêtre à part

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