Discussion :

[Alphaz]

Bonjour à tous,

Voilà, je ne suis pas VBS développeur, et j'ai déjà eu ENORMEMENT de mal à écrire le script ci-dessous et là j'ai besoin de l'aide de quelqu'un qui puisse reprendre mon script pour effectuer la tache suivante:

Vider le contenu du répertoire c:\winnt\system32\spool\PRINTERS\

Mon problème est que le compte windows depuis lequel je le fais n'est pas administrateur du poste, c'est pourquoi je dois utiliser la commande RUNAS.

Je parviens à effacer un fichier, mais comment puis-je effacer tous les fichiers contenus dans le répertoire donné?

Si quelqu'un me répond, déjà un grand merci, et svp pouvez-vous réécrire le script à partir de mon exemple, car je ne saurais pas adapter votre réponse partielle à ce que j'ai déjà fait.

visual basic code:--------------------------------------------------------------------------------

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
 <script LANGUAGE="VBScript">
'Copyright© 1998. XYZ Productions. All rights reserved.
'**Start Encode**
' Your code goes here.
'/--> Varibles 
   Dim Fso, File, WshShell
'/--> Varibles As Objects
    Set WshShell = Createobject("Wscript.Shell")
    Set Fso = CreateObject("Scripting.FileSystemObject")
    File = "c:\test.vbs"
     WshShell.Run "runas /user:USER", 0, True
      WshShell.Sendkeys "PASSWORD"
'/--> Checks For The File Then If It Exists It deletes It
     If Fso.FileExists(File) Then Fso.DeleteFile(File) End If 
</SCRIPT>

--------------------------------------------------------------------------------

[HPJ]

Il faut que le mot de passe et la commande a exécuter soit dans les paramètres du "WshShell.Run"...
Et il est impossible de combiner WshShell.Run("runas..."), WshShell.SendKeys et Fso.DeleteFile, ils ne peuvent pas partager le même environnement.

[Alphaz]

Il faut que le mot de passe et la commande a exécuter soit dans les paramètres du "WshShell.Run"...
Et il est impossible de combiner WshShell.Run("runas..."), WshShell.SendKeys et Fso.DeleteFile, ils ne peuvent pas partager le même environnement.

Mais mon script fonctionne pour effacer un fichier... je veux pouvoir vider un répertoire... => effacer plusieurs fichiers.

[fox1]

Salut,

voici un code qui marche pour effacer tout type de fichier dans un repertoire c:\Rep. A toi de l'adapter pour ton repertoire :

Code :

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

1
2
3
4
5
6
7
8
Dim ObjShell, Afile, Thefiles
Set FSo = WScript.CreateObject("Scripting.FileSystemObject")
set Afolder=FSO.GetFolder("C:\Rep")
Set TheFiles = Afolder.Files
On Error Resume Next
For Each AFile In TheFiles
AFile.Delete
Next

Attention cela n'efface pas les sous-repertoires !!!