vbs选项代码怎么写（求一个简单的VBS代码）

：暂无数据 2026-07-12 09:40:01 ：1

这篇文章给大家聊聊关于vbs选项代码怎么写，以及求一个简单的VBS代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站哦。

本文目录

求一个简单的VBS代码
求的各种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?

文章分享结束，vbs选项代码怎么写和求一个简单的VBS代码的答案你都知道了吗？欢迎再次光临本站哦！

vbs选项代码怎么写（求一个简单的VBS代码）