用WMI列出電腦資訊(與控制台中的系統一樣)並寫入文字檔

f66666602

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