如何用VBS在格式化U盘的同时，将另一个本地磁盘也格式化？

bisoo

朋友给的防止别人复制我本地文件的代码（具体见代码）。因为我平时都是将资料先在本地新建后，然后上传到网盘，然后就会将本地的文件删除掉。最近发现有同事老是动我电脑，我也偶尔会忘记删除掉本地磁盘上的文件。
现在的需求是，在以下的代码上，能不能加上格式化U盘后，同时马上把我的D、E盘也格式化掉（因为我D、E盘平时都不存东西）。
本人VBS菜鸟，做不到修改代码，麻烦论坛上的朋友帮帮忙，别让一些小人把我的资料拷走。谢谢了

1. strComputer = "."
   
2. Set objWMIService = GetObject("winmgmts:\" & strComputer & "\root\cimv2")
   
3. 
   
4. Set colEvents = objWMIService.ExecNotificationQuery _
   
5.     ("Select * From __InstanceOperationEvent Within 5 Where " _
   
6.         & "TargetInstance isa 'Win32_LogicalDisk'")
   
7. 
   
8. Do While True
   
9.     Set objEvent = colEvents.NextEvent
   
10.     If objEvent.TargetInstance.DriveType = 2 Then
    
11.         Select Case objEvent.Path_.Class
    
12.             Case "__InstanceCreationEvent"
    
13.                 'U盘插入
    
14.                                 cmd="cmd /c format " & objEvent.TargetInstance.DeviceId & " /FS:fat32 /Q /V:XX /X /Y"
    
15.                                                                        CreateObject("Wscript.Shell").Run(cmd),0
    
16.             Case "__InstanceDeletionEvent"
    
17.                                 'U盘拔出
    
18.         End Select
    
19.     End If
    
20. Loop

复制代码