Discussion :

[Cachlab]

Bonjour,

J'ai écrit un script qui supprime les profils locaux de A00001 à A99999 dans "C:\Documents and Settings" (sous WinXP).
Tout fonctionne bien, sauf que je voudrais afficher une popup "Suppression du profil Axxxx en cours. Veuillez patienter ...".
Mais je n'arrive pas à récupérer la variable correspondant au nom du profil en cours de suppression.
La popup m'affiche juste "Suppression du profil en cours. Veuillez patienter ..."

Voici mon script principal :

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
Dim ProfilRep, RepPath,RepName
Dim OFSO,OSh,oExec
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oSh = CreateObject("WScript.Shell")
ProfilRep = "C:\Documents and Settings"
on error resume next
 
For i = 1 TO 99999
 
	if i > 0 and i < 10 then RepPath = ProfilRep & "\a0000" & i
	if i > 9 and i < 100 then RepPath = ProfilRep & "\a000" & i
	if i > 99 and i < 1000 then RepPath = ProfilRep & "\a00" & i
	if i > 999 and i < 10000 then RepPath = ProfilRep & "\a0" & i
	if i > 9999 and i < 100000 then RepPath = ProfilRep & "\a" & i
 
IF oFSO.FolderExists(RepPath) = true Then RepName = Right(RepPath,6) : Set oExec = oSh.Exec ("WScript Suppr.vbs") : oFSO.DeleteFolder RepPath, true : oExec.Terminate
 
Next

Voici mon script de popup (suppr.vbs) :

Code :

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

1
2
Set oSh = CreateObject("WScript.Shell")
oSh.Popup ("Suppression du profil " & RepName & " en cours, veuillez patienter ..."), 100000

Je suppose qu'il faudrait définir ma variable RepName différemment.
J'ai essayé plein de trucs, mais je débute en VBS et je n'y arrive pas.
Ca doit être tout bête en plus ... Merci d'avance pour votre aide.

[SfJ5Rpw8]

Comment utiliser les arguments en ligne de commande ?

[Cachlab]

Salut bbil, merci de ta réponse !

Désolé, je ne comprends toujours pas !
Et pourtant j'ai lu la faq avant de poster et aprés ton rappel, promis.

Mon souci est que ma popup affiche :
"Suppression du profil en cours. Veuillez patienter ..."

Et non :
"Suppression du profil Axxxxx en cours. Veuillez patienter ..."

C'est la variable RepName qui n'est pas interprétée dans le 2nd script (suppr.vbs) :
"Suppression du profil " & RepName & " en cours, veuillez patienter ..."

Je ne vois pas ce que les arguments ont à voir ...
... ou bien je ne comprends rien à ta réponse !

[SfJ5Rpw8]

Utilise les arguments pour passer tes données d'un script à l'autre :

Code :

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

Set oExec = oSh.Exec ("WScript Suppr.vbs " & RepName)

Code :

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

1
2
RepName = wscript.arguments(0)
oSh.Popup ("Suppression du profil " & RepName & " en cours, veuillez patienter ..."), 100000

[Cachlab]

Bin c'était bien moi qui n'avais rien compris à ta réponse !

Ca marche nickel maintenant, et en plus j'ai compris le principe des arguments !

1000 merci et bon aprèm !