一键重装系统 最实用的一键重装系统软件 支持windows XP、7、8、10系统
当前位置:主页 > 重装帮助 >

让windows得得系统更安全?巧用VBs脚本

发布日期:2012-03-02    作者:一键重装系统    来源:http://www.k75t.com
让windows得得系统更安全?巧用VBs脚本? VBs脚本对于许多人来说都是很陌生的名词,但是今天小编就给我们讲解这一陌生的名词在系统安全中的妙用吧.许多专业人员都明白,用VBs编写的脚...
让windows得得系统更安全?巧用VBs脚本?

  VBs脚本对于许多人来说都是很陌生的名词,但是今天小编就给我们讲解这一陌生的名词在系统安全中的妙用吧.许多专业人员都明白,用VBs编写的脚本程序在窗口界面是由wscript.exe文件解释执行的,在字符界面由cscript.exe文件解释执行。wscript.exe是一个脚本语言解释器,正是它使得脚本可以被执行,就象执行批解决一样。

  一、给注册表编辑器解锁

  用记事本编辑如下内容:

  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地址。




本站发布的系统与软件仅为个人学习测试使用,不得用于任何商业用途,否则后果自负,请支持购买微软正版软件!

Copyright @ 2020 一键重装系统版权所有