liste des processus

**cyrill.gremaud** · 28/12/2005, 12h08

salut tout le monde je suis un gros debutant en vbs...

jaimerai faire un script qui list les processus actif d'une machine en réseau local...

pour le moment j'ai sa:

Code :

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

1
2
3
4
5
6
7
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
 
For Each objItem in colItems
	WScript.Echo objItem.Caption
Next

jaimerai savoir comment pouvoir le faire sur une machine de mon réseau local... merci

**cyrill.gremaud** · 28/12/2005, 13h06

bon comme personne sais jai deja réussi a faire quelque chose de plus...

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
msgbox("Ce script va lister tous les processus actif"),vbinformation
 
strComputer1 = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer1 & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
 
For Each objItem in colItems
	WScript.Echo "Caption: " & objItem.Caption
next
 
'***********************************************************
 
if msgbox("Voulez-vous continuer ?",vbyesno) = vbno then
	wscript.quit
	else
 
strComputer = "."
strProcessKill = "'iexplore.exe'"
 
' connexion a WMI
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
' requête WMI méthode ExecQuery de la classe Win32_Process
Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill )
 
' requête WMI méthode ExecQuery de la classe Win32_Process
For Each objProcess in colProcess
objProcess.Terminate()
Next
 
WSCript.Echo "Vous avez exploser " & strProcessKill & " sur " & strComputer
 
end if

voila maintenant il maffiche la liste des processus et je peut en killer un... mais jamerai bien le choisir... est-ce possible ?

**cyrill.gremaud** · 28/12/2005, 13h45

ya vraiment pas un seul pro du vbs dans ce forum ?

**cari** · 28/12/2005, 15h42

Je voulais te passer un lien le matin qui se trouve sur la faq, mais j'ai hésité!

Comment tuer un processus en connaissant le nom de sa fenêtre ?

http://vb.developpez.com/faq/?page=Systeme#tuer_process

Désolé d'être en retard, mais cela peut aussi t'inspirer!

**cyrill.gremaud** · 28/12/2005, 15h50

merci bien pour tout sa mais j'ai eu le temps de developpé sa ...

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
msgbox("Bienvenue dans Kill Process V1.0"),vbinformation
 
if msgbox("Le programme va lister les processus actifs."& vbcrlf &"Etes-vous d'accord ?",vbyesno) = vbno then
	msgbox("Ok. Merci et à bientôt"),vbinformation
	else
 
strComputer1 = "."
num = 0
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer1 & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48)
 
 
For Each objItem in colItems
	WScript.Echo "Processus N°"& num &" =====> "& objItem.Caption
	num = num+1
next
 
wscript.echo " "
wscript.echo "Il y a "& num-1 & " processus actif"
 
'***********************************************************
 
if msgbox("Voulez-vous killer un processus ?",vbyesno) = vbno then
	msgbox("Ok. Merci et à bientôt"),vbinformation
	wscript.quit
	else
 
		strComputer = ""
		strProcessKill = inputbox("Entrez le nom du processus à killer","Kill Process","Exemple => 'NomDuProcessus'")
 
		' connexion a WMI
		Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
		' requête WMI méthode ExecQuery de la classe Win32_Process
		Set colProcess = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = " & strProcessKill )
 
		' requête WMI méthode ExecQuery de la classe Win32_Process
		For Each objProcess in colProcess
			objProcess.Terminate()
		Next
 
		WSCript.Echo "Vous avez stoppé " & strProcessKill & " on " & strComputer
 
 
end if
 
end if

bref... bon maintenant j'aimerai pouvoir l'executer mais pas seulement sur mon pc... jaimerai que depuis un post, on puisse lister et tuer un processus d'un autre pc sur un LAN par exemple...

**cyrill.gremaud** · 28/12/2005, 16h38

ya personne qui saurai comment faire pour lister les processus d'un pc dans un LAN depuis une autre machine ?

**SfJ5Rpw8** · 28/12/2005, 17h11

et tu as essayer de modifier les lignes

Code :

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

strComputer1 = "."

par

Code :

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

strComputer1 = "NOMDELAUTREPC"

**david522** · 28/12/2005, 17h45

Hello tu as un truc de Mr Jean-Claude BELLAMY qui est sympa sinon

J'ai juste rajouté un InputBox avant.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
 
Sub ListMachineServices
 
 dim  computer
 
     computer = InputBox("Entrer le nom machine")
 
        Call ServicesList (computer)
 
End Sub
 
 
' ----------------------------------------------------------
' Script VBS d'affichage sous EXCEL de la liste des services
' d'un ordinateur avec nom complet, nom court et état
'
' Syntaxe :
'    ListServ [<ordinateur>]
' Paramètre :
'    <ordinateur> : nom NetBIOS de l'ordinateur
'                   s'il est omis : ordinateur local
'
' Jean-Claude BELLAMY © 2003
' Version améliorée par Jean-Christophe VIALA © 2003
' ----------------------------------------------------------
 
Sub ServicesList (computer)
 
Const xlCenter  = &HFFFFEFF4
Const xlBottom  = &HFFFFEFF5
Const xlContext = &HFFFFEC76
Const msoFalse  = 0
Const msoScaleFromTopLeft = 0
 
Dim ServiceSet, Network,oXL
 Set Network = CreateObject("WScript.Network")
 
 Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer & "/root/cimv2").InstancesOf("Win32_Service")
 
 Set oXL = CreateObject("EXCEL.application")
oXL.Visible = True
oXL.screenupdating=false
oXL.Workbooks.Add
oXL.Cells(1,1).Value ="Services de " & Computer
 
NL=2
 
oXL.Cells(2, 2).Value = "Nom complet "
oXL.Cells(2, 2).Font.ColorIndex = 5
oXL.Cells(2, 3).Value = "Nom court "
oXL.Cells(2, 3).Font.ColorIndex = 5
oXL.Cells(2, 4).Value = "Démarrage "
oXL.Cells(2, 4).Font.ColorIndex = 5
oXL.Cells(2, 5).Value = "État "
oXL.Cells(2, 5).Font.ColorIndex = 5
 
 
' Cellule NL,1,"Nom complet"
' Cellule NL,2,"Nom court"
' Cellule NL,3,"Démarrage"
' Cellule NL,4,"État"
 
 
For each Service in ServiceSet
	NL=NL+1
	oXL.Cells(NL, 2).Value =  Service.Caption
 
	Desc=Service.Description
	If not IsEmpty(Desc) and not IsNull(Desc) and Desc<>Service.Caption Then
		With oXL.Range("A" & NL)
			.AddComment
			.Comment.Visible = True
			.Comment.Text Desc
			.Comment.Shape.Select True
			oXL.Selection.ShapeRange.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
			k=len(Desc)/150
			If k<1 then k=1
			oXL.Selection.ShapeRange.ScaleHeight k, msoFalse, msoScaleFromTopLeft
			oXL.Selection.ShapeRange.SetShapesDefaultProperties
			.Comment.Visible = false
			End With
		End If
	 oXL.Cells(NL, 3).Value =  Service.Name
 
	Select Case Service.StartMode
		Case "Manual"
                        oXL.Cells(NL, 4).Value = "Manuel"
		Case "Disabled"
			oXL.Cells(NL, 4).Value = "Désactivé"
		Case "Auto"
			oXL.Cells(NL, 4).Value = "Automatique"
		Case else
			oXL.Cells(NL, 4).Value = "Problème !"
	end select
 
	Etat=Service.State
	If Lcase(Etat)="running" Then oXL.Cells(NL, 5).Value = "Démarré"
	If NL=int(NL/2)*2 Then
		oXL.Range("A" & NL & ":E" & NL).Select
		oXL.Selection.Interior.ColorIndex = 35
		End If
	Next
oXL.Range("A1").Select
oXL.Selection.Font.Bold = True
With oXL.Selection.Font
	.Name = "Arial"
	.Size = 12
    End With
oXL.Range("A2:E2").Select
oXL.Selection.Font.Bold = True
oXL.Selection.Interior.ColorIndex = 28
 
oXL.Columns("A:E").Select
oXL.Selection.Columns.AutoFit
 
oXL.Columns("C:E").Select
oXL.Selection.HorizontalAlignment = xlCenter
 
oXL.Rows("3:3").Select
oXL.ActiveWindow.FreezePanes = True
 
oXL.Sheets(1).Select
oXL.Sheets(1).Name = "Services"
oXL.DisplayAlerts = False
if oXL.Sheets.count > 1 then
	compteur = oXL.Sheets.count
	for i = compteur to 2 step -1
		oXL.Sheets(i).delete
	next
end if
oXL.cells(1,1).select
oXL.ActiveWorkbook.SaveAs "ListServ-" & Computer & ".xls"
oXL.DisplayAlerts = True
oXL.screenupdating= True
 
 
End Sub

Voilà
ciao

**cyrill.gremaud** · 30/12/2005, 11h54

Envoyé par bbil

et tu as essayer de modifier les lignes

Code :

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

strComputer1 = "."

par

Code :

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

strComputer1 = "NOMDELAUTREPC"

... lol si seulement sa srai si simple... jai tout essayer.. adresse ip, mac, nomdemachine, nom de user,,, bref... lol

**cyrill.gremaud** · 30/12/2005, 11h56

Envoyé par david522

Hello tu as un truc de Mr Jean-Claude BELLAMY qui est sympa sinon

J'ai juste rajouté un InputBox avant.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
 
Sub ListMachineServices
 
 dim  computer
 
     computer = InputBox("Entrer le nom machine")
 
        Call ServicesList (computer)
 
End Sub
 
 
' ----------------------------------------------------------
' Script VBS d'affichage sous EXCEL de la liste des services
' d'un ordinateur avec nom complet, nom court et état
'
' Syntaxe :
'    ListServ [<ordinateur>]
' Paramètre :
'    <ordinateur> : nom NetBIOS de l'ordinateur
'                   s'il est omis : ordinateur local
'
' Jean-Claude BELLAMY © 2003
' Version améliorée par Jean-Christophe VIALA © 2003
' ----------------------------------------------------------
 
Sub ServicesList (computer)
 
Const xlCenter  = &HFFFFEFF4
Const xlBottom  = &HFFFFEFF5
Const xlContext = &HFFFFEC76
Const msoFalse  = 0
Const msoScaleFromTopLeft = 0
 
Dim ServiceSet, Network,oXL
 Set Network = CreateObject("WScript.Network")
 
 Set ServiceSet = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & Computer & "/root/cimv2").InstancesOf("Win32_Service")
 
 Set oXL = CreateObject("EXCEL.application")
oXL.Visible = True
oXL.screenupdating=false
oXL.Workbooks.Add
oXL.Cells(1,1).Value ="Services de " & Computer
 
NL=2
 
oXL.Cells(2, 2).Value = "Nom complet "
oXL.Cells(2, 2).Font.ColorIndex = 5
oXL.Cells(2, 3).Value = "Nom court "
oXL.Cells(2, 3).Font.ColorIndex = 5
oXL.Cells(2, 4).Value = "Démarrage "
oXL.Cells(2, 4).Font.ColorIndex = 5
oXL.Cells(2, 5).Value = "État "
oXL.Cells(2, 5).Font.ColorIndex = 5
 
 
' Cellule NL,1,"Nom complet"
' Cellule NL,2,"Nom court"
' Cellule NL,3,"Démarrage"
' Cellule NL,4,"État"
 
 
For each Service in ServiceSet
	NL=NL+1
	oXL.Cells(NL, 2).Value =  Service.Caption
 
	Desc=Service.Description
	If not IsEmpty(Desc) and not IsNull(Desc) and Desc<>Service.Caption Then
		With oXL.Range("A" & NL)
			.AddComment
			.Comment.Visible = True
			.Comment.Text Desc
			.Comment.Shape.Select True
			oXL.Selection.ShapeRange.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
			k=len(Desc)/150
			If k<1 then k=1
			oXL.Selection.ShapeRange.ScaleHeight k, msoFalse, msoScaleFromTopLeft
			oXL.Selection.ShapeRange.SetShapesDefaultProperties
			.Comment.Visible = false
			End With
		End If
	 oXL.Cells(NL, 3).Value =  Service.Name
 
	Select Case Service.StartMode
		Case "Manual"
                        oXL.Cells(NL, 4).Value = "Manuel"
		Case "Disabled"
			oXL.Cells(NL, 4).Value = "Désactivé"
		Case "Auto"
			oXL.Cells(NL, 4).Value = "Automatique"
		Case else
			oXL.Cells(NL, 4).Value = "Problème !"
	end select
 
	Etat=Service.State
	If Lcase(Etat)="running" Then oXL.Cells(NL, 5).Value = "Démarré"
	If NL=int(NL/2)*2 Then
		oXL.Range("A" & NL & ":E" & NL).Select
		oXL.Selection.Interior.ColorIndex = 35
		End If
	Next
oXL.Range("A1").Select
oXL.Selection.Font.Bold = True
With oXL.Selection.Font
	.Name = "Arial"
	.Size = 12
    End With
oXL.Range("A2:E2").Select
oXL.Selection.Font.Bold = True
oXL.Selection.Interior.ColorIndex = 28
 
oXL.Columns("A:E").Select
oXL.Selection.Columns.AutoFit
 
oXL.Columns("C:E").Select
oXL.Selection.HorizontalAlignment = xlCenter
 
oXL.Rows("3:3").Select
oXL.ActiveWindow.FreezePanes = True
 
oXL.Sheets(1).Select
oXL.Sheets(1).Name = "Services"
oXL.DisplayAlerts = False
if oXL.Sheets.count > 1 then
	compteur = oXL.Sheets.count
	for i = compteur to 2 step -1
		oXL.Sheets(i).delete
	next
end if
oXL.cells(1,1).select
oXL.ActiveWorkbook.SaveAs "ListServ-" & Computer & ".xls"
oXL.DisplayAlerts = True
oXL.screenupdating= True
 
 
End Sub

Voilà
ciao

ok merci bien mais il fais quoi exactement ??? moi jvx simplement pouvoir lister les processus d'une machine ds un LAN et pourvoir en killer un...meme en comand line je men fou..

liste des processus

VBScript

Vue hybride

Discussions similaires

Partager

Partager