Le Deal du moment : -78%
Batterie externe 26800 mAh à charge rapide
Voir le deal
23.95 €

création script wmi

Aller en bas

création script wmi Empty création script wmi

Message  snoopy le Mer 1 Oct - 12:16

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 Suspect ) quelqu'un se rappel de ce qu'on utilisait, et cmt faire pr renvoyer ça dans un fichier excel?

snoopy
Apprenti IG
Apprenti IG

Nombre de messages : 111
Age : 31
Localisation : St Priest en Jarez
Date d'inscription : 19/06/2008

http://gite.vacances.navogne.chez-alice.fr/index.php

Revenir en haut Aller en bas

création script wmi Empty Re: création script wmi

Message  snoopy le Mer 1 Oct - 17:47

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


snoopy
Apprenti IG
Apprenti IG

Nombre de messages : 111
Age : 31
Localisation : St Priest en Jarez
Date d'inscription : 19/06/2008

http://gite.vacances.navogne.chez-alice.fr/index.php

Revenir en haut Aller en bas

création script wmi Empty Re: création script wmi

Message  max 318is le Mer 1 Oct - 17:57

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 flower

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

_________________
création script wmi Signatureck4aw8318is E30
325i touring E30 qui a déjà les roulettes brulantes pour se rendre a Issoire 2008
http://xdante42.free.fr/issoire


"boire des canettes c'est un peu respecter la femme qui fait la vaisselle"

max 318is
Administrateur
Administrateur

Nombre de messages : 347
Age : 34
Localisation : Tour-en-jarez
Date d'inscription : 19/06/2008

http://afilig.bbactif.com

Revenir en haut Aller en bas

création script wmi Empty Re: création script wmi

Message  Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Ne ratez plus aucun deal !
Abonnez-vous pour recevoir par notification une sélection des meilleurs deals chaque jour.
IgnorerAutoriser