mistux Site Admin
Joined: 25 Jun 2004 Posts: 1042 Location: South Bend, Indiana USA
|
Posted: Fri May 02, 2008 11:00 am Post subject: Writing Data to a Text File |
|
|
' Writing Data to a Text File
Const ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\service_status.txt", ForAppending, True)
Set objWMIService=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &; _
strComputer &; "\root\cimv2")
Set colServices = objWMIService.ExecQuery("Select * from Win32_Service")
For Each objService in colServices
objTextFile.WriteLine(objService.DisplayName &; vbTab &; _
objService.State)
Next
objTextFile.Close |
|