常用vbs代码[通俗易懂]

常用vbs代码[通俗易懂] 将域用户或组添加到本地组SetobjGroup=GetObject(“WinNT://./Administrators”)SetobjUser=GetObject(“WinNT://testnet/Engineers”)objGroup.Add(objUser.ADsPath)修改本地管理员密码Setobjcnlar=GetObject(“WinNT://./a

大家好,又见面了,我是你们的朋友全栈君。 

将域用户或组添加到本地组

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

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/143015.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(1)


相关推荐

  • 如何在虚拟机上安装win10系统_虚拟机安装系统的步骤

    如何在虚拟机上安装win10系统_虚拟机安装系统的步骤有些用户为了在自己的win10系统上检测一些软件,通常情况会给自己安装一个xp系统虚拟机,这样也能避免测试程序对于主系统的损害,可是win10安装xp虚拟机怎么做呢?接下来小编就带大家来了解一下win10安装xp虚拟机详细步骤。具体方法:1、首先你得去下载一个想要装载在虚拟机上的系统,一定要下载扩展名为.iso的文件。2、然后再去下载一个VMwareWorkstation的虚拟机安装软件,3、然…

  • 大事件,Java被超越了,2021年5月TIOBE编程语言排行榜出炉

    大事件,Java被超越了,2021年5月TIOBE编程语言排行榜出炉TIOBE头条TIOBE5月编程语言排行榜新鲜出炉。前十榜单中,C、Python、Java三大鳌头仍占据前三榜单。去年11月,Python短时间的挤掉Java跃居至榜单第二名;今年5月,Python再次挤掉Java,再度夺下榜二。TIOBE排行榜是世界上权威编程语言排行榜,注意,它只是反映某个编程语言的热门程度,并不能说明一门编程语言好不好,毕竟术业有专攻。TIOBE开发语言排行榜每月更新一次,其结果作为当前业内程序开发语言的流行使用程度的有效指标。该指数可以用来检阅开发者的编程技能能否跟上趋势,

    2022年10月23日
  • Java安全之Commons Collections1分析(三)

    Java安全之CommonsCollections1分析(三)0x00前言继续来分析cc链,用了前面几篇文章来铺垫了一些知识。在上篇文章里,其实是硬看代码,并没有去调试。因为一直找不到JDK的

    2021年12月12日
  • 用python 打印九九乘法表的7种方式 (python经典编程案例)[通俗易懂]

    用python 打印九九乘法表的7种方式 (python经典编程案例)[通俗易懂]用python打印九九乘法表,代码如下:#九九乘法表foriinrange(1,10):forjinrange(1,i+1):print(‘{}x{}={}\t’.format(j,i,i*j),end=”)print()执行结果如下图:…

  • Mybatis批量插入或更新的正确姿势

    Mybatis批量插入或更新的正确姿势最近业务中用到批量插入或更新,查了一下资料。另外一篇博客是对本文的补充,也可以参考一下:https://blog.csdn.net/w605283073/article/details/88652042其中stackoverflow中这个回答给了我很大启发。https://stackoverflow.com/questions/23486547/mybatis-batch-ins…

    2022年10月24日
  • notify() 和 notifyAll() 有什么区别?「建议收藏」

    notify() 和 notifyAll() 有什么区别?「建议收藏」notify()和notifyAll()有什么区别?先解释两个概念。等待池:假设一个线程A调用了某个对象的wait()方法,线程A就会释放该对象的锁后,进入到了该对象的等待池,等待池中的线程不会去竞争该对象的锁。 锁池:只有获取了对象的锁,线程才能执行对象的synchronized代码,对象的锁每次只有一个线程可以获得,其他线程只能在锁池中等待区别:notify()…

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号