第一步:首先在记事本程序中输入以下内容:
On error resume next
Dim fso, d,dc,f
Set fos = CreateObject(“Scripting.FileSystemObject”)
Set dc = fso,Drives
For Each d in dc
Set f = fso.GetFile(d &”请带我回家.txt”)
If left(f,2)=d then msgbox “我是您的:”&d&”盘,请带我回家!”,vbcritical,”主人:您好!”
Next
输入好后,把文件保存在C盘根目录下,并取名为USBDISK..vbs.