Discussion :

[loic072]

Bonjour,

j'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function VerifProcess(objProcess As String) As Boolean
	For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
		If UCase(Process.Name) = UCase(objProcess) Then
			Return True
			Exit Function
		Else
			Return False
		End IF
	Next
End Function

lors de l'execution j'ai une erreur en me disant qu'une parenthèse est attendu

seulement je ne la vois pas pouvez vous m'aider

Merci

[pitchalov]

Bonjour,

Si c'est du VBScript, alors il faut enlever les "As String" et "As Boolean", qui n'existent pas dans ce langage.
Sinon, je ne vois pas d'autre problème dans ce bout de code.

Bonne continuation

[ProgElecT]

Salut
pitchalov

Code :

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

1
2
3
Return True
'ou
Return False

pas du vbscript çà.

[loic072]

bonjour et merci

J'ai tenu compte de vos modifs et cela fonctionne mais il me dit que Process n'est pas déterminer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Function VerifProcess(objProcess)
	For Each Process In GetObject("winmgmts:").InstancesOf("Win32_process")
		If UCase(Process.Name) = UCase(objProcess) Then
			result = 1
			Exit Function
		Else
			result = 0
		End IF
	Next
End Function

veillez m'aider svp

merci

[cubitus91]

Hello,

Ta source est basé sur exemple en VB et non sur un VBS.
voila ta version corrigé :

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
 
Option Explicit
wscript.Echo(GetProcessRunning("notepad.exe"))
 
Function GetProcessRunning(pStrProcessName)
Dim strStatus,Process,Objectservice
Set Objectservice = GetObject ("winmgmts:")
strStatus = " Not Running"
for Each Process In Objectservice.InstancesOf ("Win32_Process")
 If ucase(Process.Name) = ucase(pStrProcessName) Then
  WScript.Echo "Process found"
  strStatus = " running" 
 End If
Next
GetProcessRunning = pStrProcessName & strStatus
End Function

[Edit] Version en prenant en compte la valeur de retour boolean :

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
 
wscript.Echo(cstr(GetProcessRunning("notepad.exe")))
 
Function GetProcessRunning(pStrProcessName)
Dim BoolStatus,Process,Objectservice
Set Objectservice = GetObject ("winmgmts:")
BoolStatus = False
for Each Process In Objectservice.InstancesOf ("Win32_Process")
 If ucase(Process.Name) = ucase(pStrProcessName) Then
  WScript.Echo "Process found"
  BoolStatus = True
 End If
Next
GetProcessRunning = BoolStatus
End Function

Cordialement

[loic072]

merci beaucoup !!