[VBS]Vider un répertoire avec la commande RUNAS

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:

---

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>

---

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

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.

Citation:

---

Envoyé par 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.

---

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

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:

---

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 !!!