自己制作U盤卸載小工具

 　　一、首先在記事本程序中輸入以下內容：

　　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.

　　二、點擊“開始—運行”，

　　輸入“gpedit.msc”，按回車鍵，打開組策略編輯器。

　　依次展開“計算機配置—Windows設置—腳本(啟動/關機)”，

　　雙擊打開“關機”項，再點擊“添加”，選擇添加前面保存在C盤的USBDISK..vbs文件，確定後退出組策略編輯器。

　　三、在需要關機時隨身帶走你的U盤或移動硬盤的要目錄中，建立一個文件名為“請帶我回家.txt”的文本文件。以後，如果你關機時沒有拔出U盤或移動硬盤，系統就會彈出警告框提示你了!怎麼樣，很簡單吧，試試看!