VB.Net调用WMI可以实现系统管理和系统信息查询等。msdn上只有C++和vbs脚本演示，乐博网在vbs脚本基础上将发布WMI系列文章演示如何将WMI应用到VB.Net上。

调试环境 vb2005  windows2003

VB.Net实现磁盘整理的方法 运行后 进程多了 dfrgifc.exe dfrgntfs.exe 磁盘碎盘整理在命令行模式下进行

无法看到整理进度 此时可用通过终止进程中的 dfrgifc.exe dfrgntfs.exe 来实现停止； 运行过程中 windows自带的磁盘碎片整理程序无法重复运行

  ("Select * from Win32_Volume Where Name = 'E:\\'")  其中E:可用更改为你想整理的磁盘盘符

代码如下：

   Private Sub Lobdotcn()

        Dim strComputer As String = "."
        Dim objWMIService As Object = GetObject("winmgmts:" _
            & "{impersonationLevel=impersonate}!\\" _
            & strComputer & "\root\cimv2")
        Dim objVolume As Object
        Dim colVolumes As Object = objWMIService.ExecQuery _
     ("Select * from Win32_Volume Where Name = 'E:\\'")
        For Each objVolume In colVolumes
            objVolume.Defrag()
        Next

    End Sub