vbs脚本 - vbs脚本-课件·PPT.ppt

VBS脚本编程
VBS是Visual Basic的的一个抽象子集,是系统内置的
用它编写的脚本代码直接由Windows Script Host解释执行
对象的简便支持(特定功能程序模块)
例一
打开你的“记事本”程序,在编辑窗口填写
msgbox "Hello World!“
然后保存为vbs文件
例二
打开你的“记事本”程序,在编辑窗口填写
Option Explicit
Dim Question
Question = InputBox(“请输入您的帐号","密码查询")
if Question ="" Then
MsgBox"请输入帐号",vbinformation,"密码查询"

End If
If Question=60537 Then
MsgBox "您的密码是ABCDEFG"
End If
然后保存为vbs文件
提供了一条极为方便、功能相当强的命令——CreateObject
对象,并且可以调用这些部件中存放的命令
通过CreateObject可以创建的对象:
1、   —>   提供一整套文件系统操作函数
2、   —>   用来返回存放键值对的字典对象
3、   —>   提供一套读取系统信息的函数,如读写注册表、查找指定文件的路径、读取DOS环境变量,读取链接中的设置
4、Work   —>   提供网络连接和远程打印机管理的函数。(其中,,。)
Work搜索网络共享的例子
e_msg = "网络连接搜索测试" Set work = ("work")  ’创建一个网络对象
Set colDrives =  ’创建一个网络共享连接列表 If = 0 Then  MsgBox "没有可列出的驱动器。",  vbInformation + vbOkOnly,e_msg  Else  strMsg = "当前网络驱动器连接: " &CRLF  For i=0To - 1 Step 2  strMsg = strMsg & Chr(13)&Chr(10)&colDrives(i)  & Chr(9)&colDrives(i+1)  Next  MsgBox strMsg, vbInformation + vbOkOnly,  e_msg’显示当前网络驱动器连接 End If
例三
打开你的“记事本”程序,在编辑窗口填写
Set objShell = reateObject("")
"notepad",,true
"calc“
保存为vbs,然后运行
Vbs脚本编程—修改注册表
读注册表的关键词和值
可以通过把关键词的完整路径传递给wshshell对象的regread方法。例如:
set ws=("")
v=("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\nwiz")
v
Vbs脚本编程—修改注册表
写注册表
使用wshshell对象的regwrite方法。
例子
path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\"
set ws=("")
t=(path & “hz","hello")
这样就把HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\hz这个键值改成了hello