用vbs实现枚举网络连接的代码

2016年07月27日 96 阅读

描述检索有关计算机上所有活动网络连接的信息。有关在这段代码中使用的 Win32_NetworkConnection 类别的更多信息，请单击 此处。支持平台Windows Server 2003是Windows XP是Windows 2000是Windows NT 4.0Yes, with WMI installed脚本代码 复制代码 代码如下:OnErrorResumeNext strComputer="." SetobjWMIService=GetObj...

IIS管理脚本之adsutil.vbs的使用说明

2016年07月27日 93 阅读

Adsutil.vbs是什么？它是Windows2003的IIS服务自带的基于命令行下的IIS管理脚本，位于%SystemDrive%InetpubAdminScripts目录下，95，426字节。这么大的脚本一看就知道功能肯定非常强大，事实也确是如此。我感觉它就是个命令行下的“Internet信息服务管理器”（事实上Windows2000用%SystemDrive%InetpubAdminScripts下原有的20多个VBS进行管理，而到了2003则只剩...

用VBS修改IIS Metabase的代码

2016年07月27日 83 阅读

////////////////////////// 作者：Jaron,江都资讯网 邮件：jaron@jdinfo.net 网址：http://www.jiangdu.net 如果您要转载该文章，请注明出处。 ////////////////////////// 本文解释如何用Microsoft自带的adsutil.vbs来修改IISMetabase的设置方法，这里是通过调用BAT批处理的方法来实现的，灵活运用一下，可以用于InstallShield和其他...

tel.xls.vbs xls专杀工具

2016年07月27日 76 阅读

1、双击运行tel.xls.vbs即可消灭Trojan.Win32.Patched.v病毒。 2、本专杀使用VBS脚本编写，执行效率高，不过缺乏智能性，我也不愿去添加那些IF判断语句来进行智能判断，这没必要。只要是我分析的病毒而写出的对于专杀都是有效的，当然病毒变异了那就没办法了，任何专杀都是这样。有变种可以与我联系http://hi.baidu.com/ycosxhack。 3、学习如何用VBS写自己的专杀工具可以查看这里： http://hi.baid...

病毒专杀VBS模块

2016年07月27日 81 阅读

“病毒专杀VBS模块.vbs”这个文件你可以直接执行，不会有任何破坏^^。 提供专杀模板，你就可以根据你分析出的病毒行为写出自己的病毒专杀工具。 非常的方便，非常的高效！ 作为一个反病毒人士不应该仅仅能分析好病毒日志，还要知道如何分析病毒行为！ 进而给出自己的解决方案！ 这个解决方案并不一定非得用到网上那些出名的小软件icesword之类的。 因为你也可以自己写专杀，只要你学过VBS就行！ VBS代码很简单，和VB、VBSCRIPT是如出一辙的…… 自然b...

用vbs实现的一款Worm.Win32.VB.fw病毒专杀

2016年07月27日 81 阅读

在写了《Worm.Win32.VB.fw分析与清除方案》后，也没想到要写什么专杀，不过这些天好多同学都说中了这只病毒，我要是一个一个去解决，非忙死我不可！感染范围挺大的！我之前写了一篇《VBS编程打造自己的病毒专杀工具》 ，VBS相对来说熟悉点，所以这次就用VBS来写个专杀吧……下面代码不懂的，请参考那篇介绍如何写自己的病毒专杀的文章吧。复制代码 代码如下:onerrorresumenext setw=getobject（"winmgmts:"） setp...

CreateWeb.vbs 代码

2016年07月27日 85 阅读

"============================================================================== " "The.NETPetShopBlueprintApplicationWebSiteSetup " "File:CreateWeb.vbs "Date:November10,2001 " "Createsanewvdirforthisproject.SetvNametonameoffoldero...

VBScript提交表单提示-对象不支持此属性或方法

2016年07月27日 84 阅读

今天因需要客户端得用VBScript对表单进行处理、提交，然而在提交表单时老是出错，错误信息为："对象不支持此属性或方法"。后查资料得知： 引用内容 除了表单提交按钮，页面中不允许再有一个表单项名字为submit 改下名字，果然没问题了，汗。 以前用Javascript都没碰过这样的问题；Dreamweaver插入按钮时名字默认的都是Submit[n]，以后用VBScript得注意改名！ ...

Windows Script Host之用vbs实现[浏览文件夹]功能

2016年07月27日 87 阅读

"************************************************ "File:Dialog.vbs（WSHsampleinVBScript） "Author:（c）G.Born " "Usingtheshelldialogboxtoselectafolder "************************************************ OptionExplicit "Flagsfortheoption...

定时自动备份IIS的WWW日志的vbs脚本

2016年07月27日 85 阅读

dimIISCount,IISObject,logfiledir,fso,LogFilePeriods,inputtime,site,sites,i,j,sitename（999）,WshShell "onerrorresumenext setWshShell=WScript.CreateObject（"WScript.Shell"） Setfso=CreateObject（"scripting.FileSystemObject"） setIISCount...

可以将Bat转换位VBS文件的VBS脚本

2016年07月27日 83 阅读

下面代码稍有修改，原结构是脚本与释放的bat同步执行并等待bat执行完毕后删除bat，本意是不遗留临时文件。后来想想通用性不好，比如释放执行的bat文件是个常驻进程的监视类型那VBS也会无休止的等待而无法退出，所以还是改为异步执行，脚本调用bat后自行退出。考虑到还原原文件的完整性末尾添加自删除也打消了想法。压缩包暂未更新。 复制代码 代码如下:"bat2vbs.vbsbybaomaboy DimWshSHell,FSO OnErrorResumeNext...

用vbs实现cmd功能

2016年07月27日 85 阅读

onerrorresumenext dowhiled<>"520" d=inputbox（"请输入命令,多个命令用&连接。关闭该VB窗口命令520"） setq=createobject（"scripting.filesystemobject"） seta=WScript.CreateObject（"WScript.Shell"） a.run"%Comspec%/c"&d loop还有一般的程序最好不要加onerrorresumenext除非你...

VBS编程教程 （第1篇）

2016年07月27日 90 阅读

发现大部分黑白的朋友都不会编程,这可不是件好事,所以这次我就写了一个简单的编程教程,讲一下VBScript.主要面向菜鸟,懂得编程的朋友就不要浪费时间了,如果你想接触以下VBScript也可以,但既然有编程基础推荐直接去找一些参考书来读,会比较快.什么是VBScript呢？VBScript的全称是:MicrosoftVisualBasicScriptEditon.（微软公司可视化BASIC脚本版）.正如其字面所透露的信息,VBS（VBScript的进一步简...

VBS编程教程 （第2篇）

2016年07月27日 83 阅读

第二篇：我真没想到,第一次的作业竟然有人不会. 看来要讲的非常非常细致才行,嗯,今天讲各种"量"和基本运算 先说常量,这个比较简单. 什么是常量呢,常量就是其值不可变化的量. 常量分为两种:第一种,自然常量.这叫是因为它们本身就是常量,你怎么更改21的值呢？他永远都是21,不可能变成46 如果你在程序中使用"21=46",这样的语句将会引发一个错误.同样的,字符串也是常量（还记得字符串吗？就是包裹在""之间的一串字符）,"HelloWorl...

VBS编程教程 （第3篇）

2016年07月27日 83 阅读

第三篇（共六篇）：首先,我来解决一下上次课程的几个疑问 第一,那个余数问题,16/5=3...1,是因为我改过前面的部分,后面的忘了改了,不好意思. 第二,请看一下程序清单: 1） Dima,b,c a=inputbox（"a是:","输入半径"） b=Inputbox（"b是:","输入半径"） c=a*2+b*2 Msgbox（c） 这个输入1、2时是6 2） Dima,b,c a=inputbox（"a是:","输入半径"） b=Inputbox（"...

VBS编程教程 （第4篇）

2016年07月27日 82 阅读

四篇（共六篇）： 大家好,昨天我休息了一天,所以今天写第4章:循环结构 我们先来看一道题:商场进行每日结算,要求累加出今天的营业额,每次输入一个数,这道题其实很简单,但就我们现在学 过的知识要完成这道题相当麻烦,我们来分析一下.首先,我们需要知道买卖的次数,这样才能控制输入的次数,但是,这种设 计是非常低效的,每天都要重新设计程序.假定今天进行了5次交易,以下是源程序: dimsum sum=0"初始化变量 sum=sum+int（inputbox（"...

VBS编程教程 （第5篇）

2016年07月27日 87 阅读

第五篇（共六篇）： 请允许我县描述一下我现在的环境:气温高达37摄氏度,而我忘记了图书馆开门的时间,还要在这里站上一个小时,在热带植物的包裹下,各种奇怪的小飞虫围着我转来转去.不过令我欣慰的是,终于写到五了,还有两课我们的"基础篇"就要结束了. 今天我们来了解语言本身的最后一个论题:数组. 要理解"数组",这个概念我觉得另一种翻译对学习来说更加容易:"阵列",没错,数组就是一个阵列,一个数据的阵列.最简单的例子是数据库系统,假设你要储存20名学生的英语...

VBS编程教程 （第6篇）

2016年07月27日 80 阅读

最后一篇： 新家不错,MM开心,我也就跟着高兴了:）,今天我们学习基础篇的最后一个部分:自定义函数和过程.我们每天都在和函 数打交道,inputbox（）是函数,msgbox（）是函数,int（）也是函数...这些函数都是系统内建的,我们只能用不能改.今天,我 就教大家怎样自己制作一个函数. 首先我们要了解,为什么要用函数,我们用"实例"说话,先看一个例子:给出两个数,输出较大的那一个. dima1,a2,b1,b2,c1,c2 a1=2:a2=4""...

用VBS可执行程序+Xmlhttp下载备份网上文件的代码

2016年07月27日 80 阅读

今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上。一个简单的小程序，做成可执行的文件，用VBS最简单方便了。"OnErrorResumeNext DimiRemote,iLocal iRemote=InputBox（"请输入远程文件路径："） SetxPost=CreateObject（"Microsoft.XMLHTTP"） xPost.Open"GET",iRemote,0 xPost.Send（） Setstream=Create...

注册表-批处理-VBS之间的相互结合应用第1/2页

2016年07月27日 79 阅读

不懂注册表、VBS、批处理不要紧，只要会学、会吸收别人的精华，会查找资料，|论坛|百度|GOOGLE|，然后能用好，就非常不错了 贴一些搜集的文字放到这吧。（绿色是标题，蓝色的是原作者，红色的部分就是需要修改的部分，根据你自己的实际情况修改） ======打开迅闪菜单的同时连接虚拟磁盘的VBS====== SetWshShell=WScript.CreateObject（"WScript.Shell"） Return=WshShell.Run（"c:cli...