Stopper un service sur tout un parc

Recherche :

Dernière réponse
Sujet : Stopper un service sur tout un parc
knives	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

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

knives

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

knives

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

mikeleetoris

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ô

bl@p_psx

psexec !!

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

mikeleetoris

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ô