FAT32 Convetor-优快云博客

博客介绍了一段将FAT32转换为NTFS的脚本，该脚本可批量修改远程的hosts。文中给出了具体的脚本代码，通过对逻辑磁盘的查询和判断，对符合条件的FAT32磁盘执行转换操作。

写了段convert FAT32 to NTFS的script, 它可以批量修改远程的hosts.

Const Fixed = 12
Const ForReading = 1
Set objOFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objOFSO.OpenTextFile("c:\myscript\list.txt",ForReading)
ON Error Resume Next
Do while Not objTextFile.AtEndOfStream
strComputer = objTextFile.ReadLine
Set objWMIService = GetObject("winmgmts://"&strComputer)
set colLogicalDisk = objWMIService.ExecQuery("select * from Win32_LogicalDisk where MediaType= 12")
For Each objLOgicalDisk In colLogicalDisk
    IF UCase(ObjLogicalDisk.FileSystem) = "FAT32" Then
      sDiskLetter = obiLogicalDisk.DeviceID
       sDiskLabel = objLOgicalDisk.VolumeName
       If sDiskLabel = "" Then
        set objWMIService2 = GetObject("winmgmts:\\"&strComputer& "\root\cimv2:win32_process")
         objWMIservice.Create("cmd.exe /c convert.exe"&sDiskLetter&":/fs:ntfs")
         set objWMIService2 = NOthing
       Else
         sDiskLable = ""
         sDiskLable.Put_
         set objWMIService2 = GetObject("winmgmts:\\"&strComputer& "\root\cimv2:win32_process")
         objWMIservice.Create("cmd.exe /c convert.exe"&sDiskLetter&":/fs:ntfs")
       End If


       End If
Next
Loop

转载于:https://www.cnblogs.com/roopeman/archive/2005/11/07/270498.html