Variable dans recherche

Version imprimable

30/09/2006, 10h20
bov13

Variable dans recherche
Bonjour à tous!
J'ai un script qui récupére des informations dans un fichier INI. Donc, j'ai une variable qui contient tous les identifiants qu'il y a d'inscrit dans le fichier INI.
Ensuite, je voudrais rechercher dans un repertoire précis qui contient tous les repertoires des identifiants les fichiers .PST

Donc, ma variable contient :
fr01371
fr02317
fr02320

et ma requête de recherche est la suivante :
Code:

1 2 ("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\fr41181\\Desktop\\test\\ & users\\' AND Extension = 'pst'")
Mon souci, c'est que il ne va pas chercher dans les repertoires des users.
Alors, je me demande si avoir autant d'infos dans une variable peut poser un probleme?
Merci pour vos réponses.
30/09/2006, 10h41
SfJ5Rpw8

c'est quoi ce code c'est pas du VBscript ou alors il en manque un morceau ..! montre la ligne compléte au moins.... ? sinon elle est ou ta variable...? si c'est user ... il manque 2 " et un &
30/09/2006, 10h42
AlainTech

Avant que tu ouvres une nouvelles discussion, veux-tu bien retourner dans tes 2 questions précédentes et nous dire si elles sont résolue et comment.
Si résolues, il y a un joli bouton sous le dernier message de chacune.

Pour cette question-ci, sans l'entièreté de ton code, on aura du mal à comprendre ce que tu fais et ce qui ne fonctionne pas.

Voila qui est fait! ;)

Voici mon code :

Code:

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
 
msgbox "Programme de recherche de fichier PST", vbInformation , "Outil PST"
 
'Lecture du fichier INI
Dim objetFSO
Set objetFSO = CreateObject("Scripting.FileSystemObject")
Set Flux = objetFSO.OpenTextFile("c:\Documents and settings\fr41181\Desktop\0.ini")
Flux.skipline
server="Wscript.Echo Flux.readline"
Flux.skipline
folder="Wscript.Echo Flux.readline"
Flux.skipline
outputfile="Wscript.Echo Flux.readline"
Flux.skipline
Flux.skipline
Flux.skipline
Flux.skipline
users="Wscript.Echo Flux.readall"
 
msgbox "Recherche des fichiers PST (Ceci peut prendre quelques minutes)",,"Outil PST"
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\fr41181\\Desktop\\test\\ & users\\' AND Extension = 'pst'")
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
msgbox "Recherche terminée",,"Outil PST"

Oui effectivement, la variable est user!
Merci

30/09/2006, 11h15
SfJ5Rpw8

eu quand tu fais

Code:

users="Wscript.Echo Flux.readall"

1) Déjà tu affecte à la variable users le texte : Wscript.Echo Flux.readall c'est ce que tu ve ...? , et c'est la même chose pour server.... essai de rajouter une ligne de code :

Code:

msgbox server

histoire de comprendre...

2) Que te renvoi , Flux.readAll, si c'est les lignes vues plus haut (une ligne par utilisateur) tu ne
va pas pouvoir utiliser directement ta variable users dans ta reqête...
il va falloir faire une requête par utilisateurs, ou combiner avec des or...
30/09/2006, 11h45
bov13
Citation:

Envoyé par bbil

eu quand tu fais

Code:

users="Wscript.Echo Flux.readall"

1) Déjà tu affecte à la variable users le texte : Wscript.Echo Flux.readall c'est ce que tu ve ...? , et c'est la même chose pour server.... essai de rajouter une ligne de code :

Code:

msgbox server

histoire de comprendre...

2) Que te renvoi , Flux.readAll, si c'est les lignes vues plus haut (une ligne par utilisateur) tu ne
va pas pouvoir utiliser directement ta variable users dans ta reqête...
il va falloir faire une requête par utilisateurs, ou combiner avec des or...

Tu as raison, j'ai fais un :
Code:

1 2 msgbox users
Ceci me renvoi bien la ligne Wscript.Echo Flux.readall

Voici mon fichier INI :
[server]
FRG-S01
[folders]
e:\data\users\
[Output file]
E:\data\Groupes\Giraud\echange\adm\itb\
[Laptop users]
FR01371
FR02317
FR02320

Je veux mettre dans une variable toute la section Laptop users.
Flux.readAll me renvoi tous le reste du fichier INI, en l'occurence tous les identifiants. C'est donc ce que je veux mais je voudrai le mettre dans une variable pour l'utiliser dans ma recherche.

tiens essai :

Code:

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
34
35
36
 
msgbox "Programme de recherche de fichier PST", vbInformation , "Outil PST"
 
'Lecture du fichier INI
Dim objetFSO
Set objetFSO = CreateObject("Scripting.FileSystemObject")
Set Flux = objetFSO.OpenTextFile("c:\Documents and settings\fr41181\Desktop\0.ini")
 
Flux.skipline
server="Wscript.Echo Flux.readline"
Flux.skipline
folder="Wscript.Echo Flux.readline"
Flux.skipline
outputfile="Wscript.Echo Flux.readline"
Flux.skipline
Flux.skipline
Flux.skipline
Flux.skipline
users = split(Flux.readALL,vbcrlf)
strComputer = "." 
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:" _ 
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
For Each user in users
 If user <> "" Then
Wscript.echo "Recherche sur  " & "'\\Documents and Settings\\fr41181\\Desktop\\test\\" & user
   Set colFiles = objWMIService.ExecQuery _
("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\fr41181\\Desktop\\test\\" & user "\\' AND Extension = 'pst'")
 
   Set objFSO = CreateObject("Scripting.FileSystemObject")
   For Each objFile in colFiles
   Wscript.Echo objFile.Name
  Next
 
 End if
Next

PS : Attention au "piége .." j'utilise 2 variables users et user..;)

30/09/2006, 12h59
bov13
J'essaye tant bien que mal de comprendre tout ton code mais c'est pas facile.
J'ai une erreur dans cette ligne :
Code:

1 2 ("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\fr41181\\Desktop\\test\\" & user "\\' AND Extension = 'pst' ")
Il me dit ')' attendu
C'est vraiment pas facile pour un débutant de s'y retrouver entre les ', " et ).:roll:

oups j'ai oublié un &...

Code:

1
2
 
("SELECT * FROM CIM_DataFile WHERE Path = '\\Documents and Settings\\fr41181\\Desktop\\test\\" & user & "\\' AND Extension = 'pst'")

30/09/2006, 16h57
bov13

Sa marche parfaitement bill! Merci beaucoup!

Une petite question, est-il possible maintenant de générer un fichier txt pour chaque identifiant avec le nom du fichier trouvé, sa date, ...
Merci!
30/09/2006, 16h59
SfJ5Rpw8

oui c'est possible... il ya des exmples d'écritures dans fichiers texte dans ce forum... voir FileSystemObject..