windows之家1.win10怎么运行VBS?
打开win10系统的电脑，然后准备好vbs文件，这里说明一下，所有vbs都可以用记事本打开，不过看到的只是代码，而并不是运行代码的状态，我们要的是vbs真实运行的状态。
接着右击vbs文件，在弹出的右键菜单中选择打开方式，有的朋友没有打开方式这个选项，也可以选择属性选项。
一般win10系统会自动识别vbs文件，并且自动匹配打开的程序，默认是Microsoft
®
Windows
Based
Script
Host，如果自动识别的就可以双击直接运行vbs文件了，没有识别的需要手动来调节。
接着说下没有自动匹配程序的情况，同样是在打开方式选择程序的窗口界面，点击下方的更多应用选项，
在下方的列表中是没有可以打开的程序，这个时候点击最下面蓝色的zd文字，也就是在这台电脑上查找其他应用选项，点击打开。
接着进入到c盘，然后进入到windows\system32的文件夹，在里边选择wscript.exe，点击打开即可。
2.如何妙用VBS脚本保护Windows系统安全性呢?
一、给注册表编辑器解锁 用记事本编辑如下内容： DIM WSH SET WSH=WSCRIPT。
CreateObject("WSCRIPT。SHELL") '击活WScript。
Shell对象 WSH。POPUP（"解锁注册表编辑器！"） '显示弹出信息“解锁注册表编辑器！” 1。
WSH。Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\ DisableRegistryTools",0,"REG_DWORD" '给注册表编辑器解锁 WSH。
POPUP（"注册表解锁成功！"） '显示弹出信息“注册表解锁成功！” 保存为以。vbs为扩展名的文件，使用时双击即可。
二、关闭Win NT/2000的默认共享 用记事本编辑如下内容： Dim WSHShell'定义变量 set WSHShell=CreateObject("WScript。 shell") '创建一个能与操作系统沟通的对象WSHShell Dim fso,dc Set fso=CreateObject("Scripting。
FileSystemObject")'创建文件系统对象 set dc=fso。Drives '获取所有驱动器盘符 For Each d in dc Dim str WSHShell。
run("net share"&d。driveletter &"$ /delete")'关闭所有驱动器的隐藏共享 next WSHShell。
run("net share admin$ /delete") WSHShell。run("net share ipc$ /delete")'关闭admin$和ipc$管道共享 现在来测试一下，先打开cmd。
exe，输入net share命令就可以看到自己机子上的共享。双击执行stopshare。
vbs后，会看见窗口一闪而过。然后再在cmd里输入net share命令，这时候没有发现共享列表了 1。
New Roman"> 三、显示本机IP地址 有许多时候，我们需要知道本机的IP地址，使用各种软件虽然可以办到，但用VBS脚本也非常的方便。 用记事本编辑如下内容： 1。
Dim WS 2。 Set WS=CreateObject("MSWinsock。
Winsock") 3。 IPAddress=WS。
LocalIP 4。 MsgBox "Local IP=" & IPAddress 将上面的内容保存为ShowIP。
vbs，双击执行即可得到本机IP地址。 四、利用脚本编程删除日志 入侵系统成功后黑客做的第一件事便是清除日志，如果以图形界面远程控制对方机器或是从终端登陆进入，删除日志不是一件困难的事，由于日志虽然也是作为一种服务运行，但不同于 stop eventlog是不能停止的，所以有人认为在命令行下删除日志是很困难的，实际上不是这样，比方说利用脚本编程中的VMI就可以删除日志，而且非常的简单方便。
源代码如下： 1。 strComputer= "。
" 2。 Set objWMIService = GetObject("winmgmts:" _ 3。
& "{impersonationLevel=impersonate,(Backup)}!\\" & _ 4。 strComputer & "\root\cimv2") 5。
dim mylogs (3) 6。 mylogs (1)="application" 7。
mylogs (2)="system" 8。 mylogs (3)="security" 9。
for Each logs in mylogs 10。 Set colLogFiles=objWMIService。
ExecQuery _ 11。 ("Select * from Win32_NTEventLogFile where LogFileName='"&logs&"'") 12。
For Each objLogfile in colLogFiles 13。 objLogFile。
ClearEventLog() 14。 Next 15。
next 将上面的代码保存为cleanevent。vbs文件即可。
在上面的代码中，首先获得object对象，然后利用其clearEventLog（) 方法删除日志。 建立一个数组，application,security,system，如果还有其他日志也可以加入数组。
然后用一个for循环，删除数组中的每一个元素，即各个日志。
3.Windows10系统如何设置关机U盘拔出提醒?
操作步骤： 1、新建记事本文档，在记事本中输入以下代码，并将它命名为USBDISK。
vbs。，存在C盘的根目录。
代码如下：On error resume nextDim fso, d,dc,fSet fos = CreateObject(Scripting。 FileSystemObject)Set dc = fso,DrivesFor Each d in dcSet f = fso。
GetFile(d \U盘。txt)If left(f,2)=d then msgbox 我是您的：d盘，请带我回家！，vbcritical，主人：您好！Next 2、Win10系统点击开始运行，输入gpedit。
msc，按回车键，打开组策略编辑器。依次展开计算机配置Windows设置脚本（启动/关机）， 双击打开关机项，再点击添加，选择添加前面保存在C盘的USBDISK。
vbs文件，确定后退出组策略编辑器。 3、在需要关机Win10系统时随身带走你的U盘或移动硬盘的要目录中，建立一个文件名为请带我回家。
txt的文本文件。
4.Win7旗舰版下如何关闭vbs文件提醒窗口
关闭vbs文件提醒窗口 第一步、使用组合快捷键win键+r键打开运行窗口，在打开的运行窗口中输入regedit回车确认打开注册表编辑器。
第二步、在打开的注册表编辑器窗口中，点击查看（v）按钮，然后在弹出的查找窗口中输入c:$ntuninst allQ8877565 $WINSYS.vbs找到该文件并且将其删除。 第三步、使用同样的方法搜索WIN.INI和SYSTEM.INI文件，然后使用记事本分别打开这两个文件，在记事本中将关键词c:$ntuninst allQ8877565 $WINSYS.vbs删除并且保存即可。
转载请注明出处windows之家 » win10记事本如何vbs