Vbs脚本经典教材(最全的资料还是MSDN)(10)

6."对象编辑器"对话框显示被选定类的定义和实现的详细信息（属性和方法）。选择 Hide System Properties 复选框隐藏系统属性。剩余的 Win32_Process 属性表示您可以从在本地或远程计算机上运行的进程检索的信息。

运行如下代码：

strComputer = "."  
Set wbemServices = Getobject("winmgmts:\\" & strComputer)
Set wbemObjectSet = wbemServices.InstancesOf("Win32_Process")
For Each wbemObject In wbemObjectSet
  WScript.Echo "Name:     " & wbemObject.Name   & vbCrLf & _
         "  Handle:   " & wbemObject.Handle  & vbCrLf & _
         "  Process ID: " & wbemObject.ProcessID
Next

7.在运行脚本之后，您可以用 WIMI 测试器验证脚本的结果。在 Win32_Process 对话框的对象编辑器中，单击 Instances。产生的查询结果对话框列出在计算机上运行的进程的实例。双击一个指定的进程实例，查看该实例的详细信息。

Vbs脚本编程简明教程之十三——2

WMI基础之二—阻止客人运行你不想运行的程序

很多人都有这样的经验，刚刚装好的系统，让人运行了一些你不想他运行的程序，比如说QQ，又是聊天，又是下载表情，不过一会，流氓插件、病毒、木马已经盘踞了你的计算机，常常是忍痛将这个程序卸载，可是不知情的人很自觉的下载安装，使整个系统无法正常运行。

其实用vbs和wmi结合起来，使你的计算机上有相应的程序安装，别人又无法运行起来太容易了，现在给出代码：

On Error Resume Next  '忽略所有的错误
Dim bag,pipe,honker,good 
Do 
good="."   '定义为本地计算机
set bag=getobject("winmgmts:\\"& good &"\root\cimv2")   'l连接到cimv2命名空间
set pipe=bag.execquery("select * from win32_process where name='qq.exe' or name='qqgame.exe' or name='winmine.exe'")  '看，这是我的计算机上不允许运行的程序，qq、qqgame、winmine（扫雷）如果你还有其他的程序不允许运行，很简单，在其中添加 or name='你不允许运行的程序名'
for each i in pipe
i.terminate() 
msgbox "发现盗版系统，现已进行功能限制！" & vbcrlf & "请使用正版软件！",,"微软提示"  '此行其实可有可无，有这行只是为了免去怀疑
next 
wscript.sleep 60000  '每1分钟检测一次
loop

那么如果我自己想运行这些程序该怎么办呢,很简单，Ctrl+Alt+Del三个键齐按，打开windows任务管理器，在进程中结束Wscript.exe和wmiprvse.exe进程的运行就可以了

Vbs脚本编程简明教程之十四

使用dictionary对象

VBS中存在一个特殊的对象－dictionnary，是一个集合对象。一般情况霞，我把这个特殊的集合想象为数组，可以使用其中内建的函数完成存储和操纵数据等基本任务，无须担心数据是在哪些行列，而是使用唯一的键进行访问或者是一个只能运行在内存中的数据库，并只有两个字段分别是：key和item，在使用中，字段key是索引字段。

set sdict=CreateObject("Scripting.Dictionary")
sdict.add "a","apple"
sdict.add "b","banana"
sdict.add "c","copy"
for each key in sdict.keys
msgbox   "键名" &  key   & "是" & " = " & sdict (key)
next
sdict.removeall

这个脚本很简单，就是定义了一个 dictionary 对象的实例sdict，并加入了三条数据，然后对每一条数据进行了枚举，最后，将对象的实例清空。

Dictionary 对象的成员概要

属性和说明

CompareMode    设定或返回键的字符串比较模式
Count     只读。返回 Dictionary 里的键/条目对的数量
Item(key)  设定或返回指定的键的条目值
Key(key)  设定键值

方法和说明

Add(key,item)  增加键/条目对到 Dictionary
Exists(key)  如果指定的键存在，返回 True，否则返回 False
Items()  返回一个包含 Dictionary 对象中所有条目的数组
Keys()  返回一个包含 Dictionary 对象中所有键的数组
Remove(key)  删除一个指定的键/条目对
RemoveAll()   删除全部键/条目对
Vbs脚本编程简明教程之十五——1
VBS内置函数之一
Abs 函数：返回数的绝对值。
Array 函数：返回含有数组的变体。
Asc 函数：返回字符串首字母的 ANSI 字符码。
Atn 函数：返回数值的反正切。
CBool 函数：返回已被转换为 Boolean 子类型的变体的表达式。
CByte 函数：返回已被转换为字节子类型的变体的表达式。
CCur 函数：返回已被转换为货币子类型的变体的表达式。
CDate 函数：返回已被转换为日期子类型的变体的表达式。
CDbl 函数：返回已被转换为双精度子类型的变体的表达式。
Chr 函数：返回与指定的 ANSI 字符码相关的字符。
CInt 函数：返回已被转换为整形子类型的变体的表达式。
CLng 函数；返回已被转换为Long子类型的变体的表达式。
Cos 函数：返回角度的余弦。
CreateObject 函数：创建并返回对"自动"对象的引用。
CSng 函数：返回已被转换为单精度子类型的变体的表达式。
CStr 函数：返回已被转换为字符串子类型的变体的表达式。
Date 函数：返回当前系统日期。
DateAdd 函数：返回的日期已经加上了指定的时间间隔。
DateDiff 函数：返回两个日期之间的间隔。
DatePart 函数：返回给定日期的指定部分。
DateSerial 函数：返回指定年月日的日期子类型的变体。
Datevalue 函数：返回日期子类型的变体。
Day 函数：返回日期，取值范围为 1 至 31。
Eval 函数：计算表达式并返回结果。
Exp 函数：返回 e （自然对数的底） 的多少次方。
Filter 函数：根据指定的筛选条件,返回含有字符串数组子集的、下限为 0 的数组。
Fix 函数：返回数的整数部分。
FormatCurrency 函数：返回的表达式为货币值格式，其货币符号采用系统控制面板中定义的。
FormatDateTime 函数：返回的表达式为日期和时间格式。
FormatNumber 函数：返回的表达式为数字格式。
FormatPercent 函数：返回的表达式为百分数（乘以 100）格式，后面有 % 符号。
GetObject 函数：返回从文件对"自动"对象的引用。
GetRef 函数：返回对能够绑定到一事件的过程的引用。
Hex 函数：返回一字符串，代表一个数的十六进制值。
Hour 函数：返回表示钟点的数字，取值范围为 0 至 23。
InputBox 函数：在对话框中显式一提示，等待用户输入文本或单击按钮，并返回文本框的内容。
InStr 函数：返回一个字符串在另一个字符串中首次出现的位置。
InStrRev 函数；返回一个字符串在另一个字符串中出现的位置，但是从字符串的尾部算起。
VBS内置函数之二
Int 函数：返回数的整数部分。
IsArray 函数：返回 Boolean 值，反映变量是否为数组。
IsDate 函数：返回 Boolean 值，反映表达式能否转换为日期。
IsEmpty 函数：返回 Boolean 值，反映变量是否已被初始化。
IsNull 函数：返回 Boolean 值，反映表达式是否含有无效数据(Null)。
IsNumeric 函数：返回 Boolean 值，反映表达式能否转换为数字。
IsObject 函数：返回 Boolean 值，反映表达式是否引用了有效的"自动"对象。
Join 函数：返回通过连接许多含有数组的子串而创建的字符串。
LBound 函数；返回指定维数数组的最小有效下标。
LCase 函数：返回的字符串已被转换为小写字母。
Left 函数：返回字符串最左边的指定数量的字符。
Len 函数：返回字符串中的字符数或存储变量所需的字节数。
LoadPicture 函数：返回图片对象。只用于 32 位平台。
Log 函数：返回数的自然对数。
LTrim 函数；返回去掉前导空格的字符串。
Mid 函数：从字符串中返回指定数量的字符。
Minute 函数：返回分钟数，取值范围为 0 至 59。
Month 函数：返回表示月份的数，取值范围为 1 至 12。
MonthName 函数：返回表示月份的字符串。
MsgBox 函数：在对话框中显示消息，等待用户单击按钮，并返回表示用户所击按钮的数值。
Now 函数：返回计算机的当前系统日期和时间。
Oct 函数：返回表示该数八进制数值的字符串。
Replace 函数：返回一字符串，其中指定的子串已被另一个子串替换了规定的次数。
RGB 函数：返回代表 RGB 颜色值的数字。
Right 函数：返回字符串最右边的指定数量的字符。
Rnd 函数：返回随机数。
Round 函数：返回指定位数、四舍五入的数。
RTrim 函数：返回去掉尾部空格的字符串副本。
ScriptEngine 函数：返回反映使用中的脚本语言的字符串。
ScriptEngineBuildVersion 函数：返回使用中的脚本引擎的编译版本号。
ScriptEngineMajorVersion 函数：返回使用中的脚本引擎的主版本号。
ScriptEngineMinorVersion 函数：返回使用中的脚本引擎的次版本号。
Second 函数：返回秒数，取值范围为 0 至 59。
VBS内置函数之三
Sgn 函数：返回反映数的符号的整数。
Sin 函数：返回角度的正弦值。
Space 函数：返回由指定数量的空格组成的字符串。
Split 函数：返回下限为 0 的、由指定数量的子串组成的一维数组。
Sqr 函数：返回数的平方根。
StrComp 函数：返回反映字符串比较结果的数值。
String 函数：返回指定长度的重复字符串。
StrReverse 函数：返回一字符串，其中字符的顺序与指定的字符串中的顺序相反。
Tan 函数：返回角度的正切值。
Time 函数：返回表示当前系统时间的"日期"子类型的"变体"。
Timer 函数：返回时经子夜 12：00 AM 后的秒数。
TimeSerial 函数：返回含有指定时分秒时间的日期子类型的变体。
Timevalue 函数：返回含有时间的日期子类型的变体。
Trim 函数：返回去掉前导空格或尾部空格的字符串副本。
TypeName 函数：返回一字符串，它提供了关于变量的变体子类型信息。
UBound 函数：返回指定维数数组的最大有效下标。
UCase 函数：返回的字符串已经被转换为大写字母。
VarType 函数：返回标识变体子类型的数值。
Weekday 函数：返回表示星期几的数值。
WeekdayName 函数：返回表示星期几的字符串。
Year 函数：返回表示年份的数值。
vbs病毒的简单例子源代码解析