2020-02-16 标签:vbs,修改,远程桌面,3389,端口,添加到,windows,防火墙,代码,下面,存为,双击,运行,重启,系统,默认,添加,作者

将下面代码存为.vbs，双击运行。然后重启一下系统，就修改了系统的远程桌面的默认的3389端口 '##################### 'VBS修改远程桌面的默认端口,并添加至Windows防火墙 '作者51windows.Net '56868为要设置的端口 '################

2020-02-16 标签:vbs,实现,压缩文件,脚本,strcomputer,set,getobject,winmgmts,impersonate,root,cimv,colfolders,execquery,select,win,32

strComputer = "." Set objWMIService = GetObject("winmgmts:" _& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set co

2020-02-16 标签:vbs,ad,日志,开启,脚本,n,ablekerblog,dim,wsobj,set,wscript,shell,add,loglevel,value,kerberos,key,registry,error

Dim wsObj Set wsObj = CreateObject("Wscript.Shell") ' Add the LogLevel Value to Kerberos Key in Registry. On Error Resume NextWScript.Echo "Enabling K

2020-02-16 标签:vbs,实现,本地,添加,用户,脚本,dim,wshshell,set,wscript,shell,run,cmd,k,i,sleep,500

Dim WshShell set WshShell = CreateObject("wscript.Shell") WshShell.Run "cmd /k" for i = 1 to 3 WScript.Sleep 500 WshShell.SendKeys "net user admin" &a

2020-02-16 标签:vbs,小方,实现,批量,添加,用户,代码,如下,set,adsou,getobject,ldap,cn,users,dc,hzcncter,local,const

实现代码如下：set adsou=getobject("ldap://cn=users,dc=hzcncter,dc=local") const forreading = 1 set objfso = createobject("scripting.filesystemobject") set ob

2020-02-16 标签:文件,备份,vbs,脚本,objs,c,aaa,支持,unc,路径,objd,d,自行,修改,上面,set,objshell,scripting

objs = "c:\aaa\*" '支持UNC路径 objd = "d:\aaa\" '请自行修改上面两个路径 Set objshell = CreateObject("Scripting.FileSystemObject") objshell.CopyFolder(Objs,objD) '当文件

2020-02-16 标签:vbs,实现,计算机,重启,dim,return,set,r,wscript,shell,msgbox,确定,起计,vbokcancel,注意

Dim return Set R = CreateObject("WScript.Shell") return=MsgBox ("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意！") If return=vbok Then R.run("Shutdown.exe

2020-02-16 标签:vbs,复制,文件,脚本,实现,代码,如下,c,sourcefile,windows,log,date,set,objshell,shell,application,objfolder

实现代码如下：parentfolder = "c:\" sourcefile = "c:\windows\log.log" targetfolder = parentfolder & date & "\" set objshell = createobject("shell.appl

2020-02-16 标签:vbs,通过,日期,查找文件,代码,error,resume,next,000000,420,strcomputer,set,getobject,winmgmts,root,cimv

On Error Resume Next dtmTargetDate = "20020301000000.000000-420" strComputer = "." Set objWMIService = GetObject _("winmgmts:" & "!\\" & strCo

2020-02-16 标签:vbscript,注册表,脚本,书写,wscript,echo,enabling,kerberos,logging,const,hkey,local,machine,h,80000002,strcomputer,set,stdout,oreg,getobject

WScript.Echo "Enabling Kerberos Logging..." const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject