Stopper un service sur tout un parc

Marsh Posté le 13-09-2004 à 18:09:52

Bonjour à toutes et à tous,

J'aurais voulu savoir s'il était possible, depuis un DC par exemple, de lancer la commande "net stop this_service" sur tous les ordis du domaine?

Si oui, quelle en serait la syntaxe? Genre "net stop \\pc1\this_service" (j'ai déjà essayé!!!)
Si non, y a-t-il des outils qui font ça, et si oui, lesquels?
Si re-non, je peux faire un script dos (ou autre) qui lance la commande en remote après avoir récupéré les noms de toutes les machines du domaine, mais comment fait-on l'équivalent d'un rsh sous Windows? (Si possible sans installer Cygwin sur toutes les bécanes!!!)

Merci d'avance pour vos tuyaux.
Tchô

---------------
Combien de programmeurs travaillant chez Microsoft est-ce que cela prend pour changer une ampoule électrique? Aucun: Si l'ampoule est grillée, Microsoft déclare l'obscurité comme nouveau standard.

Reply

Marsh Posté le 13-09-2004 à 18:09:52

Reply

Marsh Posté le 13-09-2004 à 18:12:58

psexec !!

http://www.sysinternals.com/ntw2k/ [...] exec.shtml

Reply

Marsh Posté le 13-09-2004 à 18:32:36

Rhâââââââââââ Lovely!!!!!!!!!!!!!! Pile poil ce que je voulais!!!!!

En plus je les adore les mecs de SysInternals, y a plein d'outils géniaux GRA-TUITS sur leur site!!!!! Donc, je ne connais pas toutes les pages du site!

Merci pour l'info!
Tchô

---------------
Combien de programmeurs travaillant chez Microsoft est-ce que cela prend pour changer une ampoule électrique? Aucun: Si l'ampoule est grillée, Microsoft déclare l'obscurité comme nouveau standard.

Reply

Marsh Posté le 14-09-2004 à 02:59:09

On peut scripter ca tres simplement avec un scrip vbs!
par exemple le script suivant stop le service 'spooler' sur tout les ordinateurs present dans la base AD. le script verifie que le pc est disponible avant de ce connecter au service WMI avec un ping.
on peut interroger seulement une OU plutot que tout le domaine si on veut, il y'a juste a rajouter 'OU=ouname,' apres le 'LDAP://' a la 4eme ligne.

Code :

On Error Resume Next
Const ADS_SCOPE_SUBTREE = 2
Set objRootDSE = GetObject("LDAP://rootDSE" )
strADsPath = "LDAP://" & objRootDSE.Get("defaultNamingContext" )
Set objConnection = CreateObject("ADODB.Connection" )
Set objCommand = CreateObject("ADODB.Command" )
objConnection.Provider = ("ADsDSOObject" )
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size" ) = 1000
objCommand.Properties("Searchscope" ) = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT Name FROM " _
& "'" & strADsPath & "'" _
& " WHERE objectClass='computer'"
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Do Until objRecordSet.EOF
strComputer = objRecordset.fields("Name" ).Value
Set objShell = CreateObject("WScript.Shell" )
Set objScriptExec = objShell.Exec("ping -n 2 -w 1000 " & strComputer)
strPingResults = LCase(objScriptExec.StdOut.ReadAll)
If InStr(strPingResults, "reply from" ) Then
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
Set colServices = objWMIService.ExecQuery _
("SELECT * FROM win32_Service WHERE Name = 'Spooler'" )
For Each objService in colServices
errReturnCode = objService.StopService()
Wscript.echo objservice.name, "service stopped on computer", strComputer
Next
Else
Wscript.Echo "Unable to connect to " & strComputer
End If
objRecordSet.MoveNext
Loop

Message édité par knives le 14-09-2004 à 02:59:49

Reply

Marsh Posté le 14-09-2004 à 03:05:38

ah aussi, on peut modifier le mode de demarrage des services avec les GPO, ca prend effet au prochain redemarrage ou a la prochaine actualisation des GPO.
computer config --> windows settings --> security settings --> system services

Reply

Stopper un service sur tout un parc

Sujets relatifs:

Leave a Replay