装入系统启动项

   

Dim WshShell
    Set WshShell = CreateObject("WScript.Shell")
    WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\shi", "d:\shi.exe /start", "REG_SZ"