Discussion :

[arnaudperfect]

Bonjour,

Je développe un peu en PHP, mais pas du tout en VBS.

Je recherche un faire un script qui ferai ceci :

Algo

Executer localhost.exe /NP /notag /FOLDER:J:\afn\ocs-ng

While(1)
{
If(le processus "OCSInventory.exe" n'est plus executer)
{
effacer fichier *.dll, *.ini, *.exe,*.conf
effacer dossier download
exit;
}
}

Pourriez vous me dire comment faire ?

J'ajoute que je n'y connais rien en vbs, le code, je l'écris dans un fichier texte avec l'extention vbs comme on le fait avec batch ?

Merci d'avance de votre aide

[ced600]

le code, je l'écris dans un fichier texte avec l'extention vbs comme on le fait avec batch ?

En gros oui.

Executer localhost.exe /NP /notag /FOLDER:J:\afn\ocs-ng

WSH Run

If(le processus "OCSInventory.exe" n'est plus executer)

Win32_Process (WMI)

effacer fichier *.dll, *.ini, *.exe,*.conf

http://vb.developpez.com/faqvbs/?pag...oDeleteFichier

effacer dossier download

http://vb.developpez.com/faqvbs/?pag...soDeleteFolder

exit;

Quit

Bref regarde la FAQ VBScript

[arnaudperfect]

Citation:
Executer localhost.exe /NP /notag /FOLDER:J:\afn\ocs-ng
WSH Run

1. Cela fonctionne bien. Par contre j'execute un programme via un chemin réseau (\\serveur\partage\executable.exe), seulement sur windows vista, j'ai un message d'avertissement de sécurité "l'éditeur n'a pas pu être vérifié, voulez vous vraiment executer ce logiciel ?"

il y a un moyen d'éviter ceci ?

2.

Code :

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

1
2
3
4
5
6
7
8
9
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("\\localhost\Partage\ocs\localhost.exe /NP /notag /FOLDER:C:\ocs-ng" , 1, true)
 
Set objWMI = GetObject("winmgmts:root\cimv2")
sQuery = "SELECT * FROM Win32_process WHERE Name LIKE 'OCSInventory.exe'"
For Each oproc In objWMI.execquery(sQuery)
	Wscript.echo "pas executer"
Next
Set objWMI = Nothing

J'aimerai savoir s'il y a une possibilité pour compter le nombre d'éléments que me retourne la requête SQL concernant les processus et mettre cette valeur en variable ?

3. concernant la suppression de fichier de dossier, j'ai fais ceci :

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
' Supprimer fichiers et dossiers temporaires
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
If oFSO.FileExists("D:\Partage\ocs\*.dll") Then 
	oFSO.DeleteFile "D:\Partage\ocs\*.dll",True
End If 
 
If oFSO.FileExists("D:\Partage\ocs\*.ini") Then 
	oFSO.DeleteFile "D:\Partage\ocs\*.ini",True
End If 
 
If oFSO.FileExists("D:\Partage\ocs\*.conf") Then 
	oFSO.DeleteFile "D:\Partage\ocs\*.conf",True
End If 
 
If oFSO.FileExists("D:\Partage\ocs\*.exe") Then 
	oFSO.DeleteFile "D:\Partage\ocs\*.exe",True
End If 
 
If oFSO.FolderExists("D:\Partage\ocs\download") Then 
	oFSO.DeleteFolder "D:\Partage\ocs\download",True
End If

cependant les fichier ne s'efface pas. Le problème est du au if avec le *.dll. Dans ce cas comment faire pour le dire si il trouve des fichier de type DLL, alors...

sinon la suppression de fichier avec *.dll fonctionne sans le if

[ProgElecT]

sinon la suppression de fichier avec *.dll fonctionne sans le if

Alors pourquoi utiliser le If .... Then , puisque tu desires justement effacer les *.tes extentions, une suite de

Code :

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

1
2
3
4
oFSO.DeleteFile "D:\Partage\ocs\*.dll",True
oFSO.DeleteFile "D:\Partage\ocs\*.ini",True
oFSO.DeleteFile "D:\Partage\ocs\*.exe",True
oFSO.DeleteFolder "D:\Partage\ocs\download",True

ne te suffis pas ?

[arnaudperfect]

Alors pourquoi utiliser le If .... Then , puisque tu desires justement effacer les *.tes extentions, une suite de

Code :

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

1
2
3
4
oFSO.DeleteFile "D:\Partage\ocs\*.dll",True
oFSO.DeleteFile "D:\Partage\ocs\*.ini",True
oFSO.DeleteFile "D:\Partage\ocs\*.exe",True
oFSO.DeleteFolder "D:\Partage\ocs\download",True

ne te suffis pas ?

non car si jamais les fichiers ne sont pas présents, j'ai un message d'erreurs

[arnaudperfect]

pour les processus, j'ai trouvé le réponse dans le forum :

Code :

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

1
2
3
4
5
6
7
' Détecter si le processus d'inventaire est toujours en execution
Set objWMI = GetObject("winmgmts:root\cimv2")
sQuery = "SELECT * FROM Win32_process WHERE Name LIKE 'OCSInventory.exe'"
if objWMI.execquery(sQuery).Count = 0 then
	Wscript.echo "executer"
end if
Set objWMI = Nothing

mais reste le problème des si le fichier exsiste avec un *.extention

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
' Supprimer fichiers et dossiers temporaires
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
If oFSO.FileExists("D:\Partage\ocs\*.dll") Then 
	oFSO.DeleteFile "D:\Partage\ocs\*.dll",True
End If 
 
If oFSO.FileExists("D:\Partage\ocs\*.ini") Then 
	oFSO.DeleteFile "D:\Partage\ocs\*.ini",True
End If 
 
If oFSO.FileExists("D:\Partage\ocs\*.conf") Then 
	oFSO.DeleteFile "D:\Partage\ocs\*.conf",True
End If 
 
If oFSO.FileExists("D:\Partage\ocs\*.exe") Then 
	oFSO.DeleteFile "D:\Partage\ocs\*.exe",True
End If 
 
If oFSO.FolderExists("D:\Partage\ocs\download") Then 
	oFSO.DeleteFolder "D:\Partage\ocs\download",True
End If

[ced600]

1. Cela fonctionne bien. Par contre j'execute un programme via un chemin réseau (\\serveur\partage\executable.exe), seulement sur windows vista, j'ai un message d'avertissement de sécurité "l'éditeur n'a pas pu être vérifié, voulez vous vraiment executer ce logiciel ?"

il y a un moyen d'éviter ceci ?

Aucune idée je n'ai jamais utilisé vista.

Une execquery te renvois une collection d'objet. En vbs une collection à une propriété count pour avoir sa taille comme tu l'as vu dans l'autre forum.

Code :

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

1
2
3
4
5
6
7
8
9
10
 dim col
Set objWMI = GetObject("winmgmts:root\cimv2")
sQuery = "SELECT * FROM Win32_process WHERE Name LIKE 'OCSInventory.exe'"
set col = objWMI.execquery(sQuery)
If col.count >= 0 Then
    For Each oproc In col
	Wscript.echo "Il y a " & col.count & " instance de OCSInventory.exe en cours d'exécution."
    Next
End If
Set objWMI = Nothing

Pour le reste, MS ne dit jamais que tu peux utiliser des caractères jokers avec FileSystemObject :
http://msdn.microsoft.com/en-us/libr...5t(VS.85).aspx

[arnaudperfect]

Merci pour vos aides. J'ai fini mon script et fonctionne parfaitement !

[ced600]

Est ce que tu pourrais poster ton code fini, pour ceux qui tomberont sur le post lors de leur recherche ?

[arnaudperfect]

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
' Variable d'environement
Set shell = WScript.CreateObject("WScript.Shell")
windir = shell.ExpandEnvironmentStrings("%SYSTEMDRIVE%")
 
' Dossier d'inventaire
Dim DirInventaire
DirInventaire = windir & "\InventoryGLPI"
 
' Executer l'inventaire
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("localhost.exe /NP /NOTAG /FOLDER:" & DirInventaire, 0, true)
 
' Détecter si le processus d'inventaire est toujours en execution
Set objWMI = GetObject("winmgmts:root\cimv2")
sQuery = "SELECT * FROM Win32_process WHERE Name LIKE 'OCSInventory.exe'"
Do While 1
	if objWMI.execquery(sQuery).Count = 0 then
 
		' Supprimer fichiers et dossiers temporaires
		Dim oFSO
		Set oFSO = CreateObject("Scripting.FileSystemObject")
		oFSO.DeleteFile DirInventaire & "\*.dll",True
		oFSO.DeleteFile DirInventaire & "\*.ini",True
		oFSO.DeleteFile DirInventaire & "\*.conf",True
		oFSO.DeleteFile DirInventaire & "\*.exe",True
		oFSO.DeleteFile DirInventaire & "\last_state",True
		oFSO.DeleteFolder DirInventaire & "\download",True
 
		' Quiter le script une fois l'inventaire terminé
		WScript.Quit
	end if
Loop
Set objWMI = Nothing

[ced600]

Merci