用VBS来代替BAT或CMD文件进行命令第1/2页
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
WSH.POPUP("现在您可以下载程序了!") ！读本机“计算机名” ''ReadComputerName.vbs DimReadComputerName SetReadComputerName=WScript.CreateObject("WScript.Shell") DimComputerName,RegPath RegPath="HKLM\System\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName" ComputerName=ReadComputerName.RegRead(RegPath) MsgBox("计算机名为"&ComputerName) ！隐藏快捷方式图标上的小箭头 ''Hidden.vbs DimHiddenArrowIcon SetHiddenArrowIcon=WScript.CreateObject("WScript.Shell") DimRegPath1,RegPath2 RegPath1="HKCR\lnkfile\IsShortCut" RegPath2="HKCR\piffile\IsShortCut" HiddenArrowIcon.RegDelete(RegPath1) HiddenArrowIcon.RegDelete(RegPath2) ！改造“开始”菜单 ''ChangeStartMenu.vbs DimChangeStartMenu SetChangeStartMenu=WScript.CreateObject("WScript.Shell") RegPath="HKCR\Software\Microsoft\Windows\CurrentVersion\Policies\" Type_Name="REG_DWORD" Key_Data=1 StartMenu_Run="NoRun" StartMenu_Find="NoFind" StartMenu_Close="NoClose" SubChange(Argument) ChangeStartMenu.RegWriteRegPath&Argument,Key_Data,Type_Name MsgBox("Success!") EndSub CallChange(StartMenu_Run)''禁用“开始”菜单中的“运行”功能 CallChange(StartMenu_Find)''禁用“开始”菜单中的“查找”功能 CallChange(StartMenu_Close)''禁用“开始”菜单中的“关闭系统”功能 ！向Windows中添加自启动程序 该程序能在开机时自动运行。 ''AddAutoRunProgram.vbs ''假设该程序在c:\myfile文件夹中，文件名为autorun.exe DimAutoRunProgram SetAutoRunProgram=WScript.CreateObject("WScript.Shell") RegPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\" Type_Name="REG_SZ" Key_Name="AutoRun" Key_Data="C:\Myfile\autorun.exe" ''该自启动程序的全路径文件名 AutoRunProgram.WriteRegPath&Key_Name,Key_Data,Type_Name ''在启动组中添加自启动程序autorun.exe MsgBox("Success!") 一、给注册表编辑器解锁 用记事本编辑如下内容： DIMWSH SETWSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")''击活WScript.Shell对象 WSH.POPUP("解锁注册表编辑器!") ''显示弹出信息“解锁注册表编辑器!” WSH.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion \Policies\System\DisableRegistryTools",0,"REG_DWORD" ''给注册表编辑器解锁 WSH.POPUP("注册表解锁成功!") ''显示弹出信息“注册表解锁成功!” 保存为以.vbs为扩展名的文件，使用时双击即可。 二、关闭WinNT/2000的默认共享 用记事本编辑如下内容： DimWSHShell''定义变量 setWSHShell=CreateObject("WScript.shell")''创建一个能与操作系统沟通的对象WSHShell Dimfso,dc Setfso=CreateObject("Scripting.FileSystemObject")''创建文件系统对象 setdc=fso.Drives''获取所有驱动器盘符 ForEachdindc Dimstr WSHShell.run("netshare"&d.driveletter&"$/delete")''关闭所有驱动器的隐藏共享 next WSHShell.run("netshareadmin$/delete") WSHShell.run("netshareipc$/delete")''关闭admin$和ipc$管道共享 现在来测试一下，先打开cmd.exe，输入netshare命令就可以看到自己机子上的共享。双击执行stopshare.vbs后，会看见窗口一闪而过。然后再在cmd里输入netshare命令，这时候没有发现共享列表了 三、显示本机IP地址 有许多时候，我们需要知道本机的IP地址，使用各种软件虽然可以办到，但用VBS脚本也非常的方便。用记事本编辑如下内容： DimWS SetWS=CreateObject("MSWinsock.Winsock") IPAddress=WS.LocalI |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢! |
你可能对下面的文章感兴趣
上一篇: 用VBS检测Guest状态的脚本下一篇: vbscript禁用 启用fso的方法
关于用VBS来代替BAT或CMD文件进行命令第1/2页的所有评论
