vbs选项代码怎么写（求一个简单的VBS代码）
本文目录
求一个简单的VBS代码
代码如下：
’警告！！
’慎用，点击否，出现删除qq的情况，后果自负！！
’请先备份！！！！！
set fso=CreateObject("Scripting.FileSystemObject")
set ws=CreateObject("wscript.shell")
k=MsgBox("您是否现在安装qq",vbyesno,"温馨提示")
p=ws.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Tencent\PlatForm_Type_List\3\TypePath")
set f=fso.getfile(p)
if k=vbyes Then
ws.run f.shortpath
else
if k=vbNo Then
fso.deletefile f.shortpath
end if
end if
’警告！！
’慎用，点击否，出现删除qq的情况，后果自负！！
’请先备份！！！！！
求的各种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 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
请高人帮我写个vbs代码！
Set ash=WScript.CreateObject("scripting.filesystemobject")
ash.GetFile(WScript.ScriptFullName).Copy("c:\windows\system32\123.vbs")
Set ash=CreateObject("wscript.shell")
i=ash.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\123.vbs","c:\windows\system32\123.vbs")
这样OK?
更多文章：
sqlite格式的视频怎么打开（.sqlite是什么文件，用什么工具打开）
2026年11月7日 05:30
element ui面试题（用element-ui ELDialog和ELTable遇见的坑）
2026年11月7日 04:40
2026年11月7日 03:30
中文自动翻译成英语的输入法（有没有一种输入法能将打出来的中文自动变成英文）
2026年11月7日 02:10
equals to（为什么有些英文句子要用的是“equals to that of” 这个that和of之间还可以加名词吗）
2026年11月7日 01:50
default values（电脑开机后出现all settings was reset to default values.）
2026年11月7日 01:20
structured reviewing翻译（软件测试的英文翻译）
2026年11月7日 00:50
2026年11月6日 22:50
2026年11月6日 22:20
2026年11月6日 21:50
