LISTER,DETRUIRE,LANCER PROCESSUS & SERVICES A DISTANCE
thesaib
-
12 juin 2001 à 13:03
bnisaid Messages postés 24 Date d'inscription samedi 31 décembre 2005 Statut Membre Dernière intervention 3 novembre 2007 - 7 juin 2007 à 20:45
bnisaid Messages postés 24 Date d'inscription samedi 31 décembre 2005 Statut Membre Dernière intervention 3 novembre 2007 - 7 juin 2007 à 20:45
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/1311-lister-detruire-lancer-processus-services-a-distance
https://codes-sources.commentcamarche.net/source/1311-lister-detruire-lancer-processus-services-a-distance
7 juin 2007 à 20:45
7 juin 2007 à 20:43
"winmgmts://EZ-NET/SERVEUR"
15 mars 2007 à 20:45
# Else
# On Error GoTo error
# Set services = Locator.ConnectServer(txtserv.Text)
# Set ServiceObject = services.Get("Win32_Service='" & service & "'")
# 'L'arrete
# ServiceObject.Stopservice
# error:
# MsgBox "Le service n'a pu etre stoppé"
# End If
# maj (cmdstop.Visible)
# End Sub
par cela pour eviter d'afficher à chaque fois le message : "Le service n'a pu être stoppé"
# Else
# On Error GoTo error
# Set services = Locator.ConnectServer(txtserv.Text)
# Set ServiceObject = services.Get("Win32_Service='" & service & "'")
# 'L'arrete
# ServiceObject.Stopservice
# End If
# maj (cmdstop.Visible)
# Exit sub
# error:
# MsgBox "Le service n'a pu etre stoppé"
# End Sub
@+
25 oct. 2006 à 11:00
Même question que SEBASH : comment exécuter un processus à distance ?
Ta procédure cmdadproc_Click démarrera le processus sur la machine locale...
2 oct. 2006 à 23:47
ma question c'est est ce qu'on peut installer le WMI dans WIN98
dans le cas contraire s'il y a une autre methode s'éxecutant a partir de la plupart des versions de windows surtout win98 et xp
et merci....
10 déc. 2005 à 23:30
@+
29 juil. 2005 à 00:30
Par contre j'ai un peut pres la meme chose sauf fait sous un formulaire ACCESS
JE recup les Services de machine selectionné sa remplis ma table
Puis j'ai implémenté un liste de choix pour :
l'etat du service
le mode de démarrage
quand je change l'etat du service, aucun probleme sa stop ou démarre le service
par contre je n'arrive pas a changer le mode de démarrage
donc d'où ma question :
la propriete StartMode est elle modifiable ou en lecture seule,
ou y a t'il autre chose que cette fonction ?
mon bout de code :
Private Sub ModeDemarre_Change()
strComputer = Nomordinateur
Set objSWbemServices = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
Set colSWbemObjectSet = objSWbemServices.ExecQuery("Select * from Win32_Service where Name=" & "'" & [IDservices] & "'" & "")
If ModeDemarre = "Auto" Then
For Each objSwbemObject In colSWbemObjectSet
objSwbemObject.startmode = "Auto"
ee = objSwbemObject.Put_()
Next
End If
Merci de votre aide :p
22 juil. 2005 à 16:24
je ne voi que les sources ...
et ce petit logiciel m intéresse ^_^
merki ^_^
14 sept. 2004 à 14:08
"y'a t'il moyen de le fair marche via internet ?"
car moi aussi je voudrais pouvoir lancer des services sur mon poste perso.
19 août 2004 à 23:48
J'ai repris une partie de votre code pour vérifier si mon programme est déjà lancé dans les processus, afin qu'il ne puisse pas être lancé une 2ème fois.
Le code marche parfaitement sous XP, mais pas sous 2000 : je peux lancer mon programme autant de fois que je le veux.
Voici le code que j'ai repris :
Dim liste 'Collection de processus
Dim element 'Un element de la collection
Set liste = GetObject("winmgmts:").InstancesOf("Win32_Process") 'Récupération des processus en cours d'exécution
For Each element In liste
'Insertion dans la listview
Set Item = ListView.ListItems.Add(, , element.Name)
If element.Name = "monprog.exe" Then
Label_CompteurProcess.Caption = Val(Label_CompteurProcess.Caption) + 1
If Val(Label_CompteurProcess.Caption) = 2 Then
MsgBox "Le programme est déjà lancé."
Unload Me
Exit Sub
End If
End If
Next element
30 juin 2004 à 11:36
Quelqu'un aurati-il une idée ???
merci d'avance
23 avril 2004 à 16:52
"Private Sub cmdadproc_Click()
cd.Filter = "Application (*.exe)|*.exe|" 'Filtre pour la boite de diag ouvrir
cd.ShowOpen 'Ouvre la boite de dialogue
test = cd.FileName 'Recupere le chemin
If test <> "" Then Shell (test) 'Lance le processus
End Sub" (extrait du projet dans le .zip)
Automatiquement, le processus sera lancé en local.... comment modifier ce bout de code pour que le processus se lance sur le poste distant ???
Merci pour votre aide ;)
Seb
26 mars 2004 à 15:33
Ce VB permet de lister les taches executées sur une machine distante d'un autre domaine.
Bien evidement il vous faut un compte dans le domaine cible.
Accessoirement, le pgm VB kill le process Notepad, au passage ...
Private Sub Command8_Click()
Dim Locator As SWbemLocator 'Objet de connexion
Dim services As SWbemServices 'Objet services
Dim ListeProcess
Dim Process
Set Locator = New SWbemLocator 'Nouvelle insatance d'une connexion
'Connexion au serveur
Set services = Locator.ConnectServer("Nom_de_la_Machine ou @Ip ", , "DOMAINE\CompteUtilisateur", "MotdePasse_du_CompteUtilisateur")
Set ListeProcess = services.ExecQuery("select * from Win32_Process")
For Each Process In ListeProcess
If Process.Properties_.Item("Name") = "notepad.exe" Then
Process.Terminate
End If
List1.AddItem Process.Properties_.Item("Name") + " is " + str$(Process.Properties_.Item("ProcessId"))
Next
'Le kill a reussi
If p <> 0 Then
MsgBox "Suppression du process impossible"
'Le kill a echoué
Else
MsgBox "Suppression terminé "
End If
End Sub
5 mars 2004 à 06:46
parcontre y'a t'il moyen de le fair marche via internet , et ceux n'est pas a des fin de piratage mais a des fin de surveiller mon ordi a distance car je bosse a 70 km de chez moi.
Merci
10 févr. 2004 à 12:18
Super ! vraiment...plus ça va et plus je me dis que tu dois passer la majeure partie de ton temps sur VB6 ! ou alors tu bosses dans le dev (ça aide :o) ) Merci pour ce prog qui va m'aider à gérer le service Messenger pour mon prog de netsend...bon boulot, bonne matière grise, et surtout bonne continutation...
Evilo.
21 janv. 2004 à 13:21
Je c pas si tu l'aver bien compris.DOnc c peut etre pour ca que ta ligne me fait remonter une erreur. Tout comme ton script (plus haut dans le forum) lorsque je le copier dans le blo cnote et ke je l'enregistre en .vbs, il me remonte pas mal d'erreur.
Désoler pour mon ignorance.....
jattend de toute facon la modification de mon script avec impatience, je pense ke ca te prendra 3h de toute facon.
Merci encore
21 janv. 2004 à 00:32
mais txtserv.text correspond a la textbox comportant le nom du serveur distant
telecharge le zip tu verras
21 janv. 2004 à 00:02
Je me poser justement la question en lisant ta ligne à koi correspond cela???
VOila jesper ke tu pourrait mexpliquer cela en plus, de la modification de mon script
merci d'avance
20 janv. 2004 à 23:54
Pour ne rien te cacher je suis étudiant et donc ce petit script donas le cadre d'un cours sur l'étude de WIN2000/XP et W2000server.
Je n'est pas compris si Il suffit juste que j'insere la ligne de code que tu m'as fourni dans mon code...
Pourrais tu modifier le petit script que j'ai ecrit afin qu'il puisse faire ce ke souhaite???
(En conservant les meme nom de variables comme ca je pourrais mieux voir la différence et mieu comprendre)
je te remercie de ta patience.
20 janv. 2004 à 21:51
Je vous conseille de faire des recherches sur le thème WMI , car cette syntaxe n'appartien pas au langage VB mais bien à la technologie WMI !
20 janv. 2004 à 20:16
En gros je m'explique sur ce script, jaimerai kil faire ce ki la a faire sur une machine distante ou l'utilisateur administrateur peut etre different que sur ma machine.
VOila
20 janv. 2004 à 20:11
Le script que je veu utiliser est le suivant :
dim OWmi
set OWmi=getobject("winmgmts://127.0.0.1/root/cimv2")
Set Les_IExplore=OWmi.ExecQuery("Select * from Win32_Process Where Name='IExplore.exe'")
for Each Process in Les_IExplore
Process.Terminate(0)
Next
Donc la ligne de code que tu m'a donner je doit simplement la rajouter au script ou bien il faut faire quelques choses avec la variable OWmi???
merci d'avance.
19 janv. 2004 à 19:07
)
CA devrait fonctionner
19 janv. 2004 à 19:01
Par exemple dans cette commande ou peut on spécifier cela :
"set OWmi=
getobject("winmgmts://217.128.46.111/root/cimv2")"
merci d'avance
9 juin 2003 à 19:41
VOs probleme sont tous dues a des questions de droits !!
22 avril 2003 à 01:15
Je veux lancer (par exmple notepad.exe) sur un serveur distant mais dans le réseau local sur le domaine (le domaine controleur justement) mais l'application ce lance localement. Donc pour être claire en tant que adminstrateur je lance d'un client (win2000) un soft sur le serveur win2000. (attention j'ai pas dit que le client était logé sur le compte administateur, mais avec un compte administrateur).
Il y a un truc docteur ?
Merci
Olivier
8 mars 2003 à 16:02
24 juil. 2002 à 03:27
7 juil. 2002 à 13:31
7 juil. 2002 à 02:35
26 avril 2002 à 10:51
Erreur d’exécution –2147217405(80041003)
Erreur automation
- le WinMgmts tourne bien sur le serveur
- j'ai exécuté le prog directement sur le serveur, il marche
- j'ai demandé l'affichage en mettant le nom de ma machine (locale) entant que serveur, le programme marche
mais j'ai toujours la même erreur lorsque j'essaye d'accéder à un serveur distant
Merci pour votre réponse
27 juil. 2001 à 11:44
20 juil. 2001 à 17:07
ne marche pas à distance...
Par contre où est-ce que
tu as trouvé la déclaration
de l'objet style :
"WinMgmts://" ...
20 juil. 2001 à 15:49
çà c'est du codage !!!
Encore bravo !
19 juin 2001 à 16:18
17 juin 2001 à 05:28
12 juin 2001 à 13:03
A vos remarques!!