vbs之使用Internet Explorer 屏蔽密码

2017年02月06日 151 阅读

复制代码 代码如下:SetobjExplorer=WScript.CreateObject_ （"InternetExplorer.Application","IE_"） objExplorer.Navigate"file:///c:scriptspassword.htm" objExplorer.Visible=1 objExplorer.ToolBar=0 objExplorer.StatusBar=0 objExplorer.Width=400 ob...

vbscript 注册表脚本书写

2017年02月06日 140 阅读

WScript.Echo"EnablingKerberosLogging..." constHKEY_LOCAL_MACHINE=&H80000002 strComputer="." SetStdOut=WScript.StdOut SetoReg=GetObject（"winmgmts:{impersonationLevel=impersonate}！\"&_ strComputer&" ootdefault:StdRegProv"） strKeyPat...

vbs下通过日期查找文件夹的代码

2017年02月06日 130 阅读

OnErrorResumeNext dtmTargetDate="20020301000000.000000-420" strComputer="." SetobjWMIService=GetObject_ （"winmgmts:"&"！\"&strComputer&" ootcimv2"） SetcolFolders=objWMIService.ExecQuery_ （"Select*fromWin32_DirectoryWhereCreationDat...

vbs复制文件的脚本

2017年02月06日 230 阅读

复制代码 代码如下:parentfolder = "c:" sourcefile = "c:windowslog.log" targetfolder = parentfolder & date & "" set objshell = createobject（"shell.application"） set objfolder = objshell.namespace（parentfolder） objfolder.newfolder date set s...

vbs实现计算机重启

2017年02月06日 133 阅读

Dimreturn SetR=CreateObject（"WScript.Shell"） return=MsgBox（"你确定要重起计算机吗？",vbokcancel+vbexclamation,"注意！"） Ifreturn=vbokThen R.run（"Shutdown.exe-r-t0"） Endif...

文件备份vbs脚本

2017年02月06日 129 阅读

objs="c:aaa*""支持UNC路径 objd="d:aaa" "请自行修改上面两个路径 Setobjshell=CreateObject（"Scripting.FileSystemObject"） objshell.CopyFolder（Objs,objD）"当文件存在时默认进行覆盖操作...

vbs下用一个小方法实现批量添加域用户

2017年02月06日 165 阅读

复制代码 代码如下:setadsou=getobject（"ldap://cn=users,dc=hzcncter,dc=local"） constforreading=1 setobjfso=createobject（"scripting.filesystemobject"） setobjtextfile=objfso.opentextfile_ （"users.txt",forreading） dountilobjtextfile.atendofstr...

用vbs实现本地添加用户的脚本

2017年02月06日 138 阅读

DimWshShell setWshShell=CreateObject（"wscript.Shell"） WshShell.Run"cmd/k" fori=1to3 WScript.Sleep500 WshShell.SendKeys"netuseradmin"&i&"abcd@123/add" WshShell.SendKeys"{ENTER}" next WshShell.SendKeys"exit" WshShell.SendKeys"{ENTER...

vbs AD日志开启脚本nableKerbLog的脚本

2017年02月06日 150 阅读

DimwsObj SetwsObj=CreateObject（"Wscript.Shell"） "AddtheLogLevelValuetoKerberosKeyinRegistry. OnErrorResumeNext WScript.Echo"EnablingKerberosLogging..." wsObj.RegWrite"HKLMSYSTEMCurrentControlSetServicesNTDSDiagnostics1KnowledgeCon...

vbs实现压缩文件夹的脚本

2017年02月06日 186 阅读

strComputer="." SetobjWMIService=GetObject（"winmgmts:"_ &"{impersonationLevel=impersonate}！\"&strComputer&" ootcimv2"） SetcolFolders=objWMIService.ExecQuery_ （"Select*fromWin32_Directorywhere"） ForEachobjFolderincolFolders errResu...

用VBS修改远程桌面3389端口并添加到Windows防火墙的代码

2017年02月06日 163 阅读

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

用vbs实现自动检查代理是否可用，并自动设置IE代理的脚本

2017年02月06日 130 阅读

将下面代码中的地址改一下，存为ieproxy.vbs，然后在文件上点右键，选择“在命令提示符中打开”不多说了，存下来看看吧！复制代码 代码如下:strMachines="24.11.246.125:2406;61.252.60.30:68660;64.161.10.2:3128;65.23.157.55:80;66.229.103.146:5089;68.6.240.207:2521;68.103.105.108:2384;70.160.84.18:233...

vbs实现的定时关机、重启的脚本和程序

2017年02月06日 154 阅读

将下面代码存为vbs文件，如：shutdown.vbs，然后双击或在文件上点右 键选择以命令提示打开,如果到了你设置重启的时候，系统会出现关机的对话 框。 直接下面代码程序会出现关机的对话框，最后的回车注释掉了，正常使用 时，请去掉注释符。 以下代码在window2000下通过。 复制代码 代码如下: "定时关机或重启的脚本，在windows2000下通过 "codebyhaiwa2005-11-7 dimActionID ActionID=1...

vbs实现的定时提醒你休息的脚本

2017年02月06日 156 阅读

复制代码 代码如下:setWshShell=WScript.CreateObject（"WScript.Shell"） "对话框标题 alerttitle="定时提醒" "提醒内容,vbnewline为换行符 alerttext=vbnewline&vbnewline&"休息一下，活动一下胳膊，脖子，腰部。"&vbnewline&vbnewline&vbnewline&"生命在于运动"&vbnewline&vbnewline&vbnewline fori=...

vbs自动填表单分析附源码

2017年02月06日 149 阅读

dimie setie=createobject（"internetexplorer.application"） ie.visible=true ie.navigate"http://www.ln.chinaunicom.com/index.shtml" Whileie.busyorie.readystate<>4 EndWhile ie.document.all（"userid"）.value="13304948957""手机号码 ie.do...

vbs实现的汉字转拼音的函数

2017年02月06日 127 阅读

Setd=createObject（"Scripting.Dictionary"） d.add"a",-20319 d.add"ai",-20317 d.add"an",-20304 d.add"ang",-20295 d.add"ao",-20292 d.add"ba",-20283 d.add"bai",-20265 d.add"ban",-20257 d.add"bang",-20242 d.add"bao",-20230 d.add"bei",-2...

初窥WMI_Vbs脚本编程简明教程补充读物第1/2页

2017年02月06日 145 阅读

今天，我沼泽将给大家介绍个朋友，它就是Microsoft Windows Management Instrumentation （WMI）。中文名字叫Windows管理规范。从Windows2000开始，WMI（Windows管理规范）就内置于操作系统中，并且成为了Windows系统管理的重要组成部分。所以大家很容易就能见到它的，因为我们至少也应该是个Windows2000的使用者了。下面我将详细介绍它的每个细节，让你从不认识它到喜欢上它。 WMI能做什么...

用vbs实现判断计算机是笔记本还是台式机的代码

2017年02月06日 160 阅读

ChassisTypes属性可以告诉您，您使用的是笔记本电脑、台式计算机还是其他类型的计算机。哦，输入。以下脚本可以让您知道您使用的是哪种类型的计算机： 复制代码 代码如下:strComputer="." SetobjWMIService=GetObject（"winmgmts:"_ &"{impersonationLevel=impersonate}！\"&strComputer&" ootcimv2"） SetcolChassis=objWMIServ...

用vbs清空iis log 中自己登录ip的记录

2017年02月06日 150 阅读

OptionExplicit Dimsourcefile,ipaddress,objargs constdestfile="tempfile" ConstForWriting=2 DimText Dimfso,objNet,ServiceObj DimtxtStream,txtStreamOut SetobjArgs=WScript.Arguments IfobjArgs.Count=2Then sourcefile=objArgs（0） ipaddres...

vbs sendmail发邮件带附件方法

2017年02月06日 139 阅读

NameSpace="http://schemas.microsoft.com/cdo/configuration/" SetEmail=CreateObject（"CDO.Message"） Email.From="zzzevazzz@21cn.com" Email.To="zzzevazzz@126.com" Email.Subject="Testsendmail.vbs" Email.Textbody="OK！" Email.AddAttachmen...