中央論壇 - CENTER BBS

標題: 用WMI列出電腦資訊(與控制台中的系統一樣)並寫入文字檔 [打印本頁]

作者: f66666602 時間: 2007-7-27 20:57
標題: 用WMI列出電腦資訊(與控制台中的系統一樣)並寫入文字檔
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("compsys.txt", True)
For each Item in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_ComputerSystem")
outFile.WriteLine("Caption: " & Item.Caption)
outFile.WriteLine("PrimaryOwnerName: " & Item.PrimaryOwnerName)
outFile.WriteLine("Domain: " & Item.Domain)
outFile.WriteLine("DomainRole: " & Item.DomainRole)
outFile.WriteLine("Manufacturer: " & Item.Manufacturer)
outFile.WriteLine("Model: " & Item.Model)
outFile.WriteLine("NumberofProcessors: " & Item.NumberofProcessors)
outFile.WriteLine("SystemType: " & Item.SystemType)
outFile.WriteLine("SystemStartupDelay: " & Item.SystemStartupDelay)
outFile.WriteLine("TotalPhysicalMemory: " & Item.TotalPhysicalMemory)
outFile.WriteLine("")
Next
outFile.Close

歡迎光臨中央論壇 - CENTER BBS (https://www.centerbbs.com/)