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

2016年07月27日 119 阅读

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

vbs实现压缩文件夹的脚本

2016年07月27日 99 阅读

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

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

2016年07月27日 111 阅读

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

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

2016年07月27日 111 阅读

将下面代码中的地址改一下，存为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实现的定时关机、重启的脚本和程序

2016年07月27日 114 阅读

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

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

2016年07月27日 107 阅读

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

vbs自动填表单分析附源码

2016年07月27日 110 阅读

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实现的汉字转拼音的函数

2016年07月27日 111 阅读

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页

2016年07月27日 119 阅读

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

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

2016年07月27日 92 阅读

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

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

2016年07月27日 102 阅读

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发邮件带附件方法

2016年07月27日 103 阅读

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...

用vbs实现虚拟主机和域名查循的脚本

2016年07月27日 114 阅读

IfWScript.Arguments.Count<>1Then WScript.Echo"Example:CScript"&WScript.ScriptName&"www.sohu.com" WScript.Quit EndIf url="http://www.seologs.com/ip-domains.html？domainname="&WScript.Arguments（0） SetoXMLHttpRequest=CreateObjec...

用vbs通过135端口执行命令的脚本

2016年07月27日 105 阅读

wmiexec.vbs（通过135端口执行命令）复制代码 代码如下:setww=createobject（"wbemscripting.swbemlocator"） setcc=ww.connectserver（"172.20.241.218","root/cimv2","user","password"） Setpp=cc.get（"Win32_Process"） pp.create（"cmd/ctemp.exe"） ...

用vbs实现的瞬间关闭多个系统进程的脚本

2016年07月27日 96 阅读

程序试验环境为windowsxp_sp2,主要针对系统存在多个需要中断进程的情况下，瞬间成批中断进程。 复制代码 代码如下:"---------------------------------------------------------------------------------- OnErrorResumenext Setfs=CreateObject（"scripting.filesystemobject"） Setos=CreateObjec...

vbs 中调用shell.application 简单函数

2016年07月27日 121 阅读

Setos=CreateObject（"wscript.shell"） Setos0=CreateObject（"shell.application"） Do input1=InputBox（"请选择："+chr（13）+chr（13）+_ "1.全部窗口最小化"+chr（13）+_ "2.窗口状态复原"+chr（13）+_ "3.窗口均匀平铺"+chr（13）+_ "4.窗口纵向平铺"+chr（13）+_ "5.窗口重叠展开"+Chr（13）+_ "6....

vbs wmi获取电脑硬件信息实例

2016年07月27日 108 阅读

Setwmi=GetObject（"winmgmts:\"） Setboard=wmi.instancesof（"win32_baseboard"） ForEachbInboard msg="主板："&b.Manufacturer&vbTab&b.product&vbTab&Chr（13） Next msg=msg&Chr（13）&"---"+Chr（13） Setcpus=wmi.instancesof（"win32_processor"） msg=ms...

用vbscript实现隐藏任务栏图标的脚本

2016年07月27日 118 阅读

Message="Toworkcorrectly,thescriptwillclose"&vbCR Message=Message&"andrestarttheWindowsExplorershell."&vbCR Message=Message&"Thiswillnotharmyoursystem."&vbCR&vbCR Message=Message&"Continue？" X=MsgBox（Message,vbYesNo,"Notic...

vbs正则表达式代码

2016年07月27日 106 阅读

<% FunctionRegExpTest（patrn,strng） DimregEx,Match,Matches"建立变量。 SetregEx=NewRegExp"建立正则表达式。 regEx.Pattern=patrn"设置模式。 regEx.IgnoreCase=True"设置是否区分字符大小写。 regEx.Global=True"设置全局可用性。 SetMatches=regEx.Execute（strng）"执行搜索。 ForEachMa...

vbs版IP地理位置查询小偷

2016年07月27日 112 阅读

msg="请输入你要查询的IP或域名:" IP=Inputbox（msg,"IP地理位置查询小偷"） IfIP=""ThenIP="127.0.0.1" url="http://www.ip.cn/？q="&IP&"" Body=getHTTPPage（url） SetRe=NewRegExp Re.Pattern="（查询结果为：.+）" SetMatches=Re.Execute（Body） IfMatches.Count>0ThenBody=M...