FAT32 Convetor

写了段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