Outputting to a file using vbscript

[kirk124]

Hi,

HI,


Earlier somebody show me the following code :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2&quot
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer&quot
For Each objPrinter in colInstalledPrinters
Wscript.Echo "Name: " & objPrinter.Name
Wscript.Echo "Location: " & objPrinter.Location
Wscript.Echo "Default: " & objPrinter.Default
Next


which print out the printers available to my pc.

Is there a way I can modify the above code to print out the result to a text file?


thanks

 

[PHV]

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer")
For Each objPrinter in colInstalledPrinters
  MyFile.WriteLine "Name: " & objPrinter.Name
  MyFile.WriteLine "Location: " & objPrinter.Location
  MyFile.WriteLine "Default: " & objPrinter.Default
Next
MyFile.Close

Hope This Help
PH.