- ubuntu12.04环境下使用kvm ioctl接口实现最简单的虚拟机
- Ubuntu 通过无线网络安装Ubuntu Server启动系统后连接无线网络的方法
- 在Ubuntu上搭建网桥的方法
- ubuntu 虚拟机上网方式及相关配置详解
CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.
这篇CFSDN的博客文章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,其余无) 程序代码 Set wso = CreateObject("Wscript.Shell") wso.RegWrite "HKLMSOFTWAREMicrosftWindows NT#1" wso.RegWrite "HKLMSOFTWAREMicrosftWindows NT#1","0" wso.RegWrite "HKLMSOFTWAREMicrosftWindows NT#1#2",0,REG_BINARY wso.RegDelete "HKLMSOFTWAREMicrosftWindows 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 程序代码 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登录中最适用,如下例。 程序代码 dim program1 program1="D:Program FilesTencentcoralQQ.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%) 删除文件夹 程序代码 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 程序代码 Const wdFormatText = 2 Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("d:doc1.doc") objDoc.SaveAs "g:doc1.txt", wdFormatText objWord.Quit 。
最后此篇关于VBS中常用脚本代码的文章就讲到这里了,如果你想了解更多关于VBS中常用脚本代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。
本文主要给大家介绍Mysql数据库分库和分表方式(常用),涉及到mysql数据库相关知识,对mysql数据库分库分表相关知识感兴趣的朋友一起学习吧 1 分库 1.1 按照功能分库 按照功能进行
在当前对象由其他包含对象操作的系统中,当传递对当前对象的引用时,链接似乎一直在继续......没有任何结束(对于下面的代码,Car ->myCurrentComponent->myCar_Brake-
我有一个密码 UIAlertView,我们要求用户提供。我需要根据情况在不同的 View 上询问它,从 downloadViewController (用户下载数据后),当他们切换到他们的数据时(如果
我正在尝试编写一个函数,使得对于任何整数 x 的 P(x) 都有一个包含三个元素的列表,即平方、立方和 n 的四次方,但我仍然不知道如何组合然后制作一个函数,例如我有平方、立方体和 4 次幂函数下面是
关闭。这个问题需要更多 focused .它目前不接受答案。 关闭4年前。 锁定。这个问题及其答案是locked因为这个问题是题外话,但具有历史意义。它目前不接受新的答案或交互。 我能否列出一份常见的
Python 常用 PEP8 编码规范 代码布局 缩进 每级缩进用4个空格。 括号中使用垂直隐式缩进或使用悬挂缩进。 EXAMPLE: ?
关闭。这个问题需要更多focused .它目前不接受答案。 想改善这个问题吗?更新问题,使其仅关注一个问题 editing this post . 去年关闭。 Improve this questio
在经典 ui 中,您可以使用 xtype:cqinclude 包含来自不同路径的 rtePlugins,基本上为标准 RTE 插件创建一个位置,我如何在 Touch UI 中执行相同操作? 我尝试使用
在经典 ui 中,您可以使用 xtype:cqinclude 包含来自不同路径的 rtePlugins,基本上为标准 RTE 插件创建一个位置,我如何在 Touch UI 中执行相同操作? 我尝试使用
*strong text*我有多个网络应用程序使用了一些常见的依赖项,比如蒙戈连接器谷歌 Guava 乔达时间 我想到将它们从 webapp/WEB-INF/lib 中取出并放入一些 common-l
我正在编写一个 Web 服务器,我想知道哪些 HTTP 请求 header (由客户端发送)是最常见的,因此我应该重点实现。 目前,我只支持Accept 和Host。 最佳答案 不确定您的范围,但由于
我是一名优秀的程序员,十分优秀!