création script wmi

On peut pas créer de messages dans la section Vista/ Xp donc je poste ici....

J'ai enfin trouver une boite, et la on me demande de faire un petit inventaire rapide des postes (ram capacité cpu etc...).... et pour pas m'embêter je pense utiliser un script WMI (vu en première année de BTS ) quelqu'un se rappel de ce qu'on utilisait, et cmt faire pr renvoyer ça dans un fichier excel?

Bon j'ai réussi a créer un VBS pour trouver mes infos et les transférer dans un fichier... le pbl c'est qu'a chaque fois que je lance le script, mon fichier est écrasé... j'aimerai que les infos s'ajoutent... Pas de développeurs inspirés >_

Code:


Dim modele
Dim nom

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
'Utilisateur
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
    Wscript.Echo "UserName: " & objItem.UserName
nom=objItem.UserName
Next

'Modele
Set colItems = objWMIService.ExecQuery( _
    "SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems
    Wscript.Echo "Model: " & objItem.Model 
modele=objItem.Model
Next

Set FSys = wscript.CreateObject("scripting.FileSystemObject",Forwriting)
Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\All Users\Bureau\fichier.txt")

With MonFic 'Pour écrire dans le fichier texte
MonFic.writeLine modele
MonFic.writeLine nom
End with



salut,

j'y connais rien en VBS mais dans la logique des choses :

Avant de taper ca :

Code:

 Set FSys = wscript.CreateObject("scripting.FileSystemObject",Forwriting)
Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\All Users\Bureau\fichier.txt")

Tu devrais faire un truc du genre :
IF (fichier.txt existe ) ALORS
Ouvre;
Parcours;
Ecrit;
SINON

Code:

 Set FSys = wscript.CreateObject("scripting.FileSystemObject",Forwriting)
Set MonFic = FSys.CreateTextFile("C:\Documents and Settings\All Users\Bureau\fichier.txt")

Apres je peux me tromper

Idée à la con, ca serait pas une commande du genre OpenTextFile ou ReadTextFile a utiliser si tu passe dans la premiere condition ?