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