win10怎么运行vbs

win10如何运行vbs脚本

1.win10怎么运行VBS?

打开win10系统的电脑，然后准备好vbs文件，这里说明一下，所有vbs都可以用记事本打开，不过看到的只是代码，而并不是运行代码的状态，我们要的是vbs真实运行的状态。

接着右击vbs文件，在弹出的右键菜单中选择打开方式，有的朋友没有打开方式这个选项，也可以选择属性选项。一般win10系统会自动识别vbs文件，并且自动匹配打开的程序，默认是Microsoft ® Windows Based Script Host，如果自动识别的就可以双击直接运行vbs文件了，没有识别的需要手动来调节。

接着说下没有自动匹配程序的情况，同样是在打开方式选择程序的窗口界面，点击下方的更多应用选项，在下方的列表中是没有可以打开的程序，这个时候点击最下面蓝色的文字，也就是在这台电脑上查找其他应用选项，点击打开。接着进入到c盘，然后进入到windows\system32的文件夹，在里边选择wscript.exe，点击打开即可。

2.在windows系统如何编写一个VBS脚本?在windows系统

Dim wsh'声明变量 set wsh=createobject("wscript.shell")'创建对象 wsh.regwrite"HKCU\software\microsoft\windows\currentversion\run\? vbs",WScript.ScriptFullName,"REG_SZ"'获得自身路径并加入开机自启动 wsh.run "mspaint.exe"'运行绘图程序 '在我的电脑windonws7上测试成功如果觉的我答案有用，请点赞。

3.谁知道,怎么给vbs脚本,

另存为 xxx。

vbs 1。option Explicit 2。

dim wmi,proc,procs,proname,flag,WshShell 3。Do 4。

proname="QQ。exe" '需要监测的服务进程的名称，自行替换这里的记事本进程名 5。

set wmi=getobject("winmgmts:{impersonationlevel=impersonate}!\\。\root\cimv2") 6。

set procs=wmi。execquery("select * from win32_process") 7。

flag=true 8。for each proc in procs 9。

if strcomp(proc。name,proname)=0 then 10。

flag=false 11。 exit for 12。

end if 13。next 14。

set wmi=nothing 15。 if flag then 16。

Set WshShell = Wscript。 CreateObject("Wscript。

Shell") 17。 WshShell。

Run ("D:\Tencent\QQ。exe") 18。

end if 19。 wscript。

sleep 50000 '检测间隔时间，这里是50秒 20。 loop 定时查杀进程的VBS脚本。

vbs 复制代码 1。'********************************************************************************************************** 2。

'Description：定时查杀自定义进程，建议设为开机启动 3。'********************************************************************************************************** 4。

Dim scriptPath,lenRootPath,listFilePath 5。Dim sCheck 6。

scriptPath=WScript。ScriptFullName 7。

lenRootPath=Left(scriptPath,InStrRev(scriptPath,"\")) 8。 listFilePath=lenRootPath & "list。

txt" '设置进程黑名单文件名称 9。sCheck=10 '设定间隔多少秒钟扫描一次进程 10。

Do 11。 Call CheckList(listFilePath) 12。

WScript。Sleep sCheck*1000 13。

Loop 14。Sub CheckList(listFilePath) 15。

On Error Resume Next 16。 Dim Fso,listFile 17。

Dim KeyWord,processKey,pathKey,TipStr 18。 Set Fso=CreateObject("Scripting。

FileSystemObject") 19。 If Fso。

FileExists(listFilePath) Then 20。 Set listFile=Fso。

OpenTextFile(listFilePath,1,0) 21。 Do While Not listFile。

AtEndOfStream 22。 KeyWord=listFile。

ReadLine 23。 If KeyWord"" And Left(KeyWord,1)"'" Then 24。

KeyWord=Split(KeyWord,"|") 25。 If UBound(KeyWord)>1 Then 26。

processKey=Trim(KeyWord(0)) 27。 pathKey=Trim(KeyWord(1)) 28。

Tipstr=Trim(KeyWord(2)) 29。 Call ProcessKiller(processKey,TipStr) 30。

If pathKey"" Then Call ProcessKiller(pathKey,TipStr) 31。 End If 32。

End If 33。 If Err Then Err。

Clear 34。 Loop 35。

Set listFile=Nothing 36。 Else 37。

WScript。Quit 38。

End If 39。 Set Fso=Nothing 40。

End Sub 41。Sub ProcessKiller(callstr,Tstr) 42。

On Error Resume Next 43。 Dim WMI,objProcess,Process 44。

Dim MsgStr 45。 Dim isKilled 46。

isKilled=False 47。 Set WMI=GetObject("WinMgmts:") 48。

Set Process=WMI。InstancesOf("Win32_Process") 49。

For Each objProcess In Process 50。 If InStr(callstr,"。

")>0 Then 51。 If objProcess。

name=callstr Then 52。 objProcess。

Terminate 53。 isKilled=True 54。

End If 55。 Else 56。

If InStr(objProcess。ExecutablePath,callstr)>0 Then 57。

objProcess。Terminate 58。

isKilled=True 59。 End If 60。

End If 61。 If Err Then Err。

Clear 62。 Next 63。

Set Process=Nothing 64。 Set WMI=Nothing 65。

MsgStr="对不起，为了营造一个良好的网络环境，本网吧禁止运行以下程序：" & vbCrLf & vbCrLf 66。 MsgStr=MsgStr & " - " & Tstr & vbCrLf & vbCrLf & "敬请广大顾客朋友理解并配合，谢谢！" 67。

If isKilled=True Then MsgBox MsgStr 68。End Sub 希望能帮助到你，麻烦点击“有用”，谢谢。

4.如何妙用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循环，删除数组中的每一个元素，即各个日志。

5.如何让电脑自动运行VBS脚本

电脑自动运行接受的文件是不太可能的，除非有人破解电脑植入木马

可以制作一个自解压的RAR文件（后缀为.exe），然后压缩成.rar文件，把自解压文件的图标伪装成影像或者图片的图标，当然自解压文件里也要包含一个和图标相关的文件

比如使用.jpg的图标，然后在压缩包内放一张YY图，还有你的VBS文件，然后再用一个Bat文件将VBS加入自启动项，最后全部打包成自解压文件

关于只开机自动运行3，之后失效的方法为，使用一个bat文件，每次开机的时候自动运行你的VBS文件，然后还往一个特定的文本文档之追加一个字符，比如5.每次开机追加一个，当开机三次后，特定的文本文档的内容就会变成555，然后再在bat的头部写一个判断，当X.txt的内容=555的时候，自动删除自身即可。

win10如何运行vbs脚本