windows之家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的时候，自动删除自身即可。
转载请注明出处windows之家 » win10如何运行vbs脚本