2020-02-16 标签:vbs,自动,填表,分析,源码,dim,ie,set,application,visible,true,n,avigate,http,www,ln

dim ieset ie=createobject("internetexplorer.application")ie.visible=trueie.navigate "http://www.ln.chinaunicom.com/index.shtml"While ie.busy or ie.rea

2020-02-16 标签:vbs,实现,定时,提醒,休息,脚本,代码,如下,set,wshshell,wscript,shell,对话框,标题,alerttitle,内容,vbnewline,换行

实现代码如下：set WshShell = WScript.CreateObject("WScript.Shell") '对话框标题 alerttitle = "定时提醒" '提醒内容,vbnewline为换行符 alerttext =vbnewline & vbnewline &

2020-02-16 标签:vbs,实现,定时,关机,重启,脚本,程序,下面,代码,存为,文件,shutdown,双击,或在,上点,右键,选择,命令,提示,打开

将下面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右 键选择以命令提示打开,如果到了你设置重启的时候，系统会出现关机的对话 框。 　　直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用 时，请去掉注释符。 　　以下代码在window 2000 下通过。 实现代

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,小方,实现,批量,添加,用户,代码,如下,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,实现,计算机,重启,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,通过,日期,查找文件,代码,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