Discussion :

[xoooom]

Bonjours,

Je souhaite recuperer les informations systeme d'un poste. pour cela j'ai le Code suivant :

=================================================

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
Option Explicit
Dim objWMIService, objItem, colItems
Dim strComputer, strList
 
On Error Resume Next
strComputer = "."
 
 
Set objWMIService = GetObject("winmgmts:\\" _
& strComputer & "\root\cimv2")
 
 
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
 
For each objItem in colItems
wscript.Echo "Machine Name: " & objItem.CSName & VbCr & _ 
"===================================" & vbCr & _ 
"Processor: " & objItem.Description & VbCr & _ 
"Manufacturer: " & objItem.Manufacturer & VbCr & _ 
"Operating System: " & objItem.Caption & VbCr & _ 
"Version: " & objItem.Version & VbCr & _
"Service Pack: " & objItem.CSDVersion & VbCr & _ 
"CodeSet: " & objItem.CodeSet & VbCr & _ 
"CountryCode: " & objItem.CountryCode & VbCr & _ 
"OSLanguage: " & objItem.OSLanguage & VbCr & _ 
"CurrentTimeZone: " & objItem.CurrentTimeZone & VbCr & _ 
"Locale: " & objItem.Locale & VbCr & _ 
"SerialNumber: " & objItem.SerialNumber & VbCr & _ 
"SystemDrive: " & objItem.SystemDrive & VbCr & _ 
"WindowsDirectory: " & objItem.WindowsDirectory & VbCr & _ 
""
Next
WSCript.Quit

============================================

cela m'affiche le résultat dans une boite de dialogue a l'écran, et je souhaite qu'il me le renvoi dans un fichier texte et non dans une boite de dialogue.

Qu'étant pas très douer en programmation que doit-je changer pour cela??

merci

[pc75]

Bonjour,

Fais une recherche sur FileSystemObject et notamment la fonction CreateTextFile()

[SfJ5Rpw8]

Voir

Comment écrire dans un fichier texte ?


avant de passer dans ta boucle tu commence par ouvrir ton fichier texte..

Code :

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

1
2
3
4
5
   Const ForWriting = 2
   Dim fso, f   
 
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\temp\ecr.txt", ForWriting,true)

puis dans ta boucle tu remplace ton echo par un write...

Code :

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

f.write("Salut")

[Edit] oups, salut pc75, l'on s'est croisé..