1.win10怎么运行VBS?
打开win10系统的电脑,然后准备好vbs文件,这里说明一下,所有vbs都可以用记事本打开,不过看到的只是代码,而并不是运行代码的状态,我们要的是vbs真实运行的状态。
接着右击vbs文件,在弹出的右键菜单中选择打开方式,有的朋友没有打开方式这个选项,也可以选择属性选项。
一般win10系统会自动识别vbs文件,并且自动匹配打开的程序,默认是Microsoft
®
Windows
Based
Script
Host,如果自动识别的就可以双击直接运行vbs文件了,没有识别的需要手动来调节。
接着说下没有自动匹配程序的情况,同样是在打开方式选择程序的窗口界面,点击下方的更多应用选项,
在下方的列表中是没有可以打开的程序,这个时候点击最下面蓝色的zd文字,也就是在这台电脑上查找其他应用选项,点击打开。
接着进入到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脚本保护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循环,删除数组中的每一个元素,即各个日志。
4.怎麽做"*.vbs"文件
你好啊,这个很简单的,用记事本就可以编写,步骤如下:
1:新建一个记事本,打开,然后将你的vbs脚本代码复制进去
2:另存为,在另存为的时候,文件类型,选择“所有文件”,然后再写文件名,文件名一定要有vbs脚本的后续,比如 XX.vbs 其他的不用改
3:成功了,这个就是 vbs 脚本,双击即可运行脚本了
给你写出了,就这么简单,只要你有代码,就可以做vbs 脚本,采纳哟 做 vbs 脚本容易,去网上找脚本就行了,但是写 vbs 这些都是牛人的问题,你要是想学,你开另外个问题叫会的人教你怎么写,就行了
5.VBS怎么弄
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true
dim a do while(a <>; "我是猪")
a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,一切皆有可能~"
********************************************************************************************************
上面已经说清楚了啊。在桌面新建一个文本文档,把代码写到里面。然后左上角有个“文件”>;“另存为”。文件名输入:00.vbs或者11.vbs或者22.vbs或者33.vbs ,只要后面带个.vbs就行
转载请注明出处windows之家 » win10怎么制作vbs文件夹