用WMI列出邏輯磁碟機資訊並寫入文字檔

f66666602

Set fs = CreateObject("Scripting.FileSystemObject")
Set outFile = fs.CreateTextFile("logicaldisk.txt", True)
For each Item in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_LogicalDisk")
outFile.WriteLine("DriveType: " & Item.DriveType)
outFile.WriteLine("FileSystem: " & Item.FileSystem)
outFile.WriteLine("Freespace: " & Item.Freespace)
outFile.WriteLine("Name: " & Item.Name)
outFile.WriteLine("Size: " & Item.Size)
outFile.WriteLine("VolumeName: " & Item.VolumeName)  'This item is Read/Write
outFile.WriteLine("VolumeSerialNumber: " & Item.VolumeSerialNumber)
outFile.WriteLine("")
Next
outFile.Close