用VBScript批量安装网络打印机和设置默认打印机

所属分类: 脚本专栏 / vbs 阅读数: 754
收藏 0 赞 0 分享
首先打开记事本,输入以下内容:
复制代码 代码如下:

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置1"
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置2"
WshNetwork.AddWindowsPrinterConnection "\\你的网络打印机位置3"
WshNetwork.SetDefaultPrinter "\\你要设置默认网络打印机的位置"

然后另存为printer.vbs,运行即可,也可放在策略里面,让管理的机器开机运行此程序。
更多精彩内容其他人还在看

可自删除 开启3389创建用户粘滞键后门的vbs

on error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = "." Set StdOut = WScript.StdOut Set oReg=GetObject("winmgmts:{i... 查看详情
收藏 0 赞 0 分享

CMD和vbs修改 IP地址及DNS的实现代码

修改IP cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1 修... 查看详情
收藏 0 赞 0 分享

vbScript on error resume next容错使用心得

vbscript中,错误处理使用on error resume next来完成,如果在你的代码里加入这一句,在这句之后的其他代码如果出现错误,系统将忽略这些错误继续运行后面的代码,同时,我们可以使用下面的代码来捕获错误复制代码 代码如下:If err.number<>... 查看详情
收藏 0 赞 0 分享

用vbs实现判断计算机是笔记本还是台式机的代码

ChassisTypes 属性可以告诉您,您使用的是笔记本电脑、台式计算机还是其他类型的计算机。哦,输入。以下脚本可以让您知道您使用的是哪种类型的计算机: 复制代码 代码如下:strComputer = "."  Set objW... 查看详情
收藏 0 赞 0 分享

用vbs清空iis log 中自己登录ip的记录

Option Explicit  Dim sourcefile,ipaddress,objargs const destfile="tempfile" Const ForWriting = 2 Dim ... 查看详情
收藏 0 赞 0 分享

vbs sendmail发邮件带附件方法

NameSpace = "http://schemas.microsoft.com/cdo/configuration/" Set Email = CreateObject("CDO.Message") Email.From&nb... 查看详情
收藏 0 赞 0 分享

用vbs实现虚拟主机和域名查循的脚本

If WScript.Arguments.Count <> 1 Then WScript.Echo "Example: CScript " & WScript.Scrip... 查看详情
收藏 0 赞 0 分享

用vbs通过135端口执行命令的脚本

wmiexec.vbs(通过135端口执行命令)复制代码 代码如下:set ww=createobject("wbemscripting.swbemlocator")  set cc=ww.connectserver("172.20.241.218"... 查看详情
收藏 0 赞 0 分享

用vbs实现的瞬间关闭多个系统进程的脚本

程序试验环境为 windows xp_sp2,主要针对系统存在多个需要中断进程的情况下,瞬间成批中断进程。 复制代码 代码如下:'-----------------------------------------------------------------... 查看详情
收藏 0 赞 0 分享

vbs 中调用shell.application 简单函数

Set os=CreateObject("wscript.shell") Set os0=CreateObject("shell.application") Do  input1=InputBox(" 请选择:"+chr(13)+chr(1... 查看详情
收藏 0 赞 0 分享
查看更多