Discussion :

[gaffy84]

Bonjour à tous:

Je suis administrateur réseau, j'ai eu l'occasion de faire certain script sous Windows mais celui dont j'ai besoin me dépasse complètement.
J'ai un fichier .ini sur lequel il y est inscrit des informations de serveur SQL.

[Reference]
Driver=MSACCESS
Server=
Path=
DataBase="chemin"
User=
Password=

[###DEFAULT###]
SocCommune="nom de la société"

Je vais très bientôt créer un fichier txt sur lequel seront inscrit les droits de vue sur chaque serveurs pour tous nos clients.
Ce que je voudrais faire c'est pouvoir copier "serveur" "user" "Password" de mon fichier texte (avec les informations), les collers dans UN dossier .ini unique à chaque utilisateur, fichier qui devra ensuite être collé dans leur profil utilisateurLa copie devrait aussi figurer dans le .vbs ... C'est pas de la tarte !!! J'ai trouvé beaucoup de scripts traitant ce problèmes mais aucuns ne laisse de commentaire, et dès que je les utilise mon débogeur leur trouve plein d'erreur, et en plus sur des balises !!!

En faite le version finale de mon .ini devrait ressembler à ça pour exemple utilisateur toto et société bidule

[Reference]
Driver=MSACCESS
Server=SQL serveur1, SQL serveur2, SQL serveur3
Path=
DataBase="chemin"
User=toto
Password=45851247

[###DEFAULT###]
SocCommune=bidule

Je vous remercie

[ced600]

Voici un lien où il y a plein d'exemple de script VB pour faire différente chose sous Windows :
http://www.activexperts.com/activmon...ement/scripts/

Dans la partie "Files and Folders", tu pourras trouver des exemples de scripts pour la gestion des fichiers et des répertoires

Et voici un exemple de code pour lire et ecrire dans un fichier :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
'<<<<<<< LECTURE d'un fichier >>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte 
Set Ftxt = FSO.OpenTextFile("Monchemin")
 
'on parcours chaque ligne du fichier texte
Do While Not Ftxt.AtEndOfStream
      MaVariable = Ftxt.Readline
      '....... <- votre code ici pour traiter chaque ligne
Loop
 
Ftxt.Close
 
 
'<<<<<<< ECRITURE dans un fichier >>>>>>>>>>>>
 
'déclaration file system object
Dim fso
 
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
 
'on instance le fichier texte dans lequel on veut ecrire
Set Ftxt =  FSO.createTextFile("Monchemin",true) 'true=ecrase
 
'On ecrit ce que l'on veut dans le fichier 
Ftxt.writeline ("Mon texte à écrire ou ma Variable texte")
 
'Utilisation de With .. End With pour écrire plusieurs lignes.
With Ftxt
.writeline("Mon texte à écrire ou ma Variable texte")
.writeline("Mon texte à écrire ou ma Variable texte")
.writeline("Mon texte à écrire ou ma Variable texte")
End With
 
Ftxt.Close

En espérant que cela puisse t'aider.

[gaffy84]

Franchement je resterai toujours en admiration devant les développeurs vous êtes trop fort. Merci pour ton aide je vais voir dès que j'ai 5 min. Si un jour vous avez des problème réseau n'hésistez pas envoyez un ptit mail