常用vbs集合.
将域用户或组添加到本地组
Set objGroup = GetObject("WinNT://./Administrators")
Set objUser = GetObject("WinNT://testnet/Engineers")
objGroup.Add(objUser.ADsPath)
修改本地管理员密码
Set objcnlar = GetObject("WinNT://./administrator, user")
objcnla.SetPassword "P@ssW0rd"
objcnla.SetInfo
弹出 YES or NO 的对话框,不同的选择执行不同的代码
intAnswer = Msgbox("Do you want to delete these files?", vbYesNo, "Delete Files")
If intAnswer = vbYes Then
Msgbox "You answered yes."
Else Msgbox "You answered no."
End If
运行CMD命令行命令
set obshell=wscript.createobject("wscript.shell")
obshell.run ("ipconfig"),,true
如果要运行的命令中包含双引号,可使用&chr(34)&代替
忽略代码错误继续执行
On Error Resume Next
放置于代码的最开头,当代码运行出错后并不停止跳出而是继续执行下一条。适当应用会很有效果。
注册表的修改,读取,删除,创建
Set wso = CreateObject("WScript.Shell") '声明
wso.RegWrite "%Path%"'创建子键
wso.RegWrite "%Path%","%Value%"'修改"默认"键值
wso.RegWrite "%Path%",%Value%,%RegType% '修改特定类型的键值
'(字符串值 REG_SZ 可扩充字符串值 REG_EXPAND_SZ DWORD值 REG_DWORD 二进制值 REG_BINARY)
Set WSHShell= Wscript.CreateObject("Wscript.Shell")
WSHShell.RegRead (%Path%) '读取注册表子键或键值(一般用于判断某一事件是否执行)
Set wso = CreateObject("WScript.Shell")
wso.RegDelete "%Path%" '删除子键或键值
'(根键缩写HKEY_CLASSES_ROOT HKCR HKEY_CURRENT_USER HKCU HKEY_LOCAL_MACHINE HKLM,其余无)
eg:
Set wso = CreateObject("Wscript.Shell")
wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1"
wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1","0"
wso.RegWrite "HKLM\SOFTWARE\Microsft\Windows NT\#1\#2",0,REG_BINARY
wso.RegDelete "HKLM\SOFTWARE\Microsft\Windows NT\#1"
Wscript.quit
文件的复制,删除,创建,简单的写入
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明
Set f = fso.CreateTextFile("%PATH%") '创建文件,其中f可任意,包含缩略名
f.WriteLine("VBS") '写文件内容,该命令功能太简单,目前看来只能用于TXT文件
f.Close
set c=fso.getfile("%path%") ’拷贝某文件
c.copy("%PATH2%") '拷贝文件到指定地点
fso.deletefile("%PATH%") '删除文件
Wscript.quit
eg.
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile("C:\Sample.txt")
WriteLine("VBS")
f.close
set e=fso.getfile(C:\Sample.txt)
e.copy("D:\Sample.txt")
fso.deletefile(C:\Sample.txt)
Wscript.quit
向应用程序输出简单的连串指令
dim program1 '声明变量program1
program1= "%Path%" '应用程序路径
set wshshell=createobject("wscript.shell") '声明饮用函数
set oexec=wshshell.exec(program1) '运行程序
wscript.sleep 2000 '(该行命令未知作用.估计是设定延迟,请高手指点)
wshshell.appactivate "%WindowsName%" '激活运用程序窗口
wshshell.sendkeys "+{%KeyBoardName%}" '第一次输出键盘按键指令前要加+
wshshell.sendkeys "555555" '在程序输入栏中输入运用该系列命令须首先确定程序可以实施连串的键盘操作,这在QQ登录中最适用,如下例。
eg.
dim program1
program1="D:\Program Files\Tencent\coralQQ.exe"
set wshshell=CreateObject("wscript.shell")
set oexec=wshshell.exec(program1)
wscript.sleep 2000
wshshell.appactivate "QQ登录"
wshshell.sendkeys "+{TAB}"
wshshell.sendkeys "250481892"
wscript.sleep 2000
wshshell.sendkeys "{TAB}"
wshshell.sendkeys "****************"
wscript.sleep 2000
wshshell.sendkeys "{ENTER}"
Wscript.quit
文件夹的简单操作
Set fso = Wscript.CreateObject("Scripting.FileSystemObject") ‘声明
Set f = fso.CreateFolder("%PATH%") 创建文件夹
Set e = getFolder(%PATH%) 类似于“绑定目标”
e.copy("%PATH2%") 复制文件夹
fso.deletefolder(%PATH%) 删除文件夹
eg.
Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateObject("C:\sample")
f.copy("D:\sample")
fso.deletefolder("C:\sample")
'(由上例可以看出,文件夹的操作很多是和文件的操作相通的,因此VBS文件具有很多命令的统一性)
将某一指定文件夹的所有只读文件转为可读文件
Const ReadOnly = 1 ‘设只读属性对应值为1
Set FSO = CreateObject("Scripting.FileSystemObject") '声明
Set Folder = FSO.GetFolder("%PATH%") ’绑定文件夹
Set colFiles = Folder.Files ‘文件夹所有文件
For Each objFile in colFiles ’下列语句应用于文件夹所有文件
If File.Attributes AND ReadOnly Then '这是关键之处,这里应用了If判断语句,来检测文件属性是否为只读
File.Attributes = File.Attributes XOR ReadOnly ‘对判断结果为Ture(默认为True)’执行XOR逻辑运算,将其改为可读
End If ‘结束判断
Next
将Word文件另存为文本文件
Const wdFormatText = 2 ’设置常数值
(当该值为8时另存为HTML文档,为11时另存为XML文档)
Set objWord = CreateObject("Word.Application") '申明调用函数
Set objDoc = objWord.Documents.Open("%Path%") ‘打开某DOC文件
objDoc.SaveAs "%PATH2%", wdFormatText 另存为……
objWord.Quit
eg:
Const wdFormatText = 2
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("d:\doc1.doc")
objDoc.SaveAs "g:\doc1.txt", wdFormatText
objWord.Quit
没有合适的资源?快使用搜索试试~ 我知道了~
VB学习资料,包括三个文件包
共58个文件
vbs:45个
txt:10个
chm:2个
5星 · 超过95%的资源 需积分: 3 2 下载量 124 浏览量
2011-02-19
11:32:41
上传
评论
收藏 1.54MB RAR 举报
温馨提示
几个VB初级学习的帮助资料,涵盖VBS几个简单实例,及VBS教程文档
资源推荐
资源详情
资源评论
收起资源包目录
VB学习资料.rar (58个子文件)
VBS实例
定时关机.vbs 617B
更改终端端口.vbs 807B
查看hot-fixes(补丁信息).vbs 1KB
中文姓名笔画计算(VBS脚本版).vbs 14KB
exe2swf工具.vbs 2KB
妙用脚本清除电脑中的痕迹.vbs 647B
右键菜单中添加CMD HERE.vbs 562B
利用VB编写文本朗读精灵.vbs 7KB
禁止Guest访问日志.vbs 1KB
NET DELETE SHARE FOR 2K SERVER.vbs 348B
旁注查询工具.vbs 1KB
改变ie的标题的一个vbs.vbs 1KB
禁止IPC$匿名连接.vbs 318B
将用户在登陆面版隐藏起来.vbs 910B
更换日志目录.vbs 2KB
操作系统信息.vbs 495B
病毒专杀VBS模板.txt 4KB
查看系统在网络中的角色.vbs 915B
两个简易VBS脚本结束进程与防止进程启动.txt 2KB
xp_彻底屏蔽windows update的vbs.vbs 595B
禁止显示上次登陆用户.vbs 343B
NET DELETE SHARE FOR 2K PRO.vbs 349B
后台字典文件管理器.vbs 3KB
重新安装ie的一个vbs.vbs 968B
VBS看看今天是星期几.vbs 87B
启动脚本(信息提示框).vbs 988B
汉字转拼音vbs版.vbs 9KB
字符统计功能模块.txt 1KB
清理所有盘磁盘碎片的vbs.vbs 416B
修改xp任务拦状态的vbs.vbs 1KB
防止匿名登陆.vbs 294B
使用vbscript显示windows office 的安装key.vbs 3KB
两个简易VBS脚本结束进程与防止进程启动..txt 2KB
常用vbs集合..txt 5KB
关机时清除掉页面文件.vbs 300B
VBS 文件操作.txt 2KB
vbs中的错误捕获器.txt 786B
创建windowsxp还原点的vbs.vbs 847B
VBS取QQ-TM号码的自动登录命令行.vbs 3KB
在隐藏窗口中创建进程.txt 622B
关闭 DirectDraw .vbs 301B
VBS脚本实现XP2003序列号更换.vbs 935B
关闭445端口.vbs 374B
VBS实现 xp sp2 远程多用户登陆.rar 100KB
隐藏cmd命令行运行.vbs 312B
查看BIOS信息.vbs 2KB
更换日志文件大小.vbs 1KB
查看系统环境变量(ECHO)版.vbs 775B
用vbs控制iis创建虚拟目录.txt 3KB
列出管理工具集.vbs 368B
打开任务管理器.vbs 196B
URL筛选小工具.vbs 940B
查看系统环境变量(IE)版.vbs 1KB
vbs强制关闭程序.vbs 485B
远程开启telnet服务的脚本.txt 3KB
查看SQL状态.vbs 587B
VBS教程.chm 1.38MB
VB代码库帮助文档.chm 52KB
共 58 条
- 1
资源评论
- ASC2242013-07-08学习要靠自己但是资料很重要,谢谢分享!
mustin
- 粉丝: 0
- 资源: 2
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功