用WMI列出硬碟資訊並寫入文字檔

f66666602

Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("harddrive.txt", True)
For each Item in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_DiskDrive")
outFile.WriteLine("Caption: " & Item.Caption)
outFile.WriteLine("Description: " & Item.Description)
outFile.WriteLine("InterfaceType: " & Item.InterfaceType)
outFile.WriteLine("Manufacturer: " & Item.Manufacturer)
outFile.WriteLine("Partitions: " & Item.Partitions)
'outFile.WriteLine("Sectors: " & Item.Sectors)
outFile.WriteLine("ScsiBus: " & Item.ScsiBus)
outFile.WriteLine("ScsiTargetID: " & Item.ScsiTargetID)
outFile.WriteLine("Size: " & Item.Size)
outFile.WriteLine("")
Next
outFile.Close