中央論壇 - CENTER BBS

標題: 用WMI列出作業系統資訊並寫入文字檔 [打印本頁]

作者: f66666602 時間: 2007-7-27 20:59
標題: 用WMI列出作業系統資訊並寫入文字檔
Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("OperatingSystem.txt", True)
For each Item in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_OperatingSystem")
outFile.WriteLine("BootDevice: " & Item.BootDevice)
outFile.WriteLine("BuildNumber: " & Item.BuildNumber)
outFile.WriteLine("BuildType: " & Item.BuildType)
outFile.WriteLine("Caption: " & Item.Caption)
outFile.WriteLine("CSName: " & Item.CSname)
outFile.WriteLine("CsdVersion: " & Item.CsdVersion)
outFile.WriteLine("CurrentTimeZone: " & Item.CurrentTimeZone)
outFile.WriteLine("FreePhysicalMemory: " & Item.FreePhysicalMemory)
outFile.WriteLine("FreeVirtualMemory: " & Item.FreeVirtualMemory)
outFile.WriteLine("InstallDate: " & Item.InstallDate)
outFile.WriteLine("LastBootUpTime: " & Item.LastBootUpTime)
outFile.WriteLine("NumberofProcesses: " & Item.NumberofProcesses)
outFile.WriteLine("Organization: " & Item.Organization)
outFile.WriteLine("OsLanguage: " & Item.OsLanguage)
outFile.WriteLine("Primary: " & Item.Primary)
outFile.WriteLine("RegisteredUser: " & Item.RegisteredUser)
outFile.WriteLine("SerialNumber: " & Item.SerialNumber)
outFile.WriteLine("SystemDevice: " & Item.SystemDevice)
outFile.WriteLine("SystemDirectory: " & Item.SystemDirectory)
outFile.WriteLine("TotalVirtualMemorySize: " & Item.TotalVirtualMemorySize)
outFile.WriteLine("Version: " & Item.Version)
outFile.WriteLine("WindowsDirectory: " & Item.WindowsDirectory)
outFile.WriteLine("")
Next
outFile.Close

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