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