中央論壇 - CENTER BBS
標題:
用WMI列出已安裝的服務並寫入文字檔
[打印本頁]
作者:
f66666602
時間:
2007-7-27 20:58
標題:
用WMI列出已安裝的服務並寫入文字檔
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("Service.txt", True)
For each Item in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_Service")
outFile.WriteLine("Description: " & Item.Description)
outFile.WriteLine("DisplayName: " & Item.DisplayName)
outFile.WriteLine("ServiceType: " & Item.ServiceType)
outFile.WriteLine("State: " & Item.State)
outFile.WriteLine("Status: " & Item.Status)
outFile.WriteLine("StartMode: " & Item.StartMode)
outFile.WriteLine("StartName: " & Item.StartName)
outFile.WriteLine("")
Next
outFile.Close
歡迎光臨 中央論壇 - CENTER BBS (https://www.centerbbs.com/)
Powered by Discuz! X3