梦想吧技术论坛 » 『 脚本技术专栏 』 » VBS-删除指定盘F

似水年华 发表于 2007-4-22 06:35 PM

VBS-删除指定盘F

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Volume Where Name = 'E:\\'")
For Each objItem in colItems
    objItem.Dismount(True, True)
Next

似水年华 发表于 2007-4-22 06:36 PM

更改盘F名称

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDrives = objWMIService.ExecQuery _
    ("Select * from Win32_LogicalDisk where DeviceID = 'C:'")
For Each objDrive in colDrives
    objDrive.VolumeName = "Finance Volume"
    objDrive.Put_
Next

似水年华 发表于 2007-4-22 06:36 PM

格式化指定盘F为指定格式

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colVolumes = objWMIService.ExecQuery("Select * from Win32_Volume Where Name = 'D:\\'")
For Each objVolume in colVolumes
    errResult = objVolume.Format("NTFS")
Next

查看完整版本: VBS-删除指定盘F