代码之家 › 专栏 › 技术社区 › Andreas

在VBA中使用PowerShell将打印机添加到系统?

powershell vba

Andreas · 技术社区 · 6 年前

我可以使用批处理文件:

powershell.exe "Add-printer -ConnectionName \\PS02.samba.net\HELPS006"

但是如果我尝试用vba运行上面的BAT文件,它不会添加打印机:

Shell ("c:\Fraktsedlar\HELPS006.bat")

如果我直接从vba运行PowerShell,这些都不起作用:

Shell ("powershell.exe -Command " & Chr(34) & "Add-printer -ConnectionName \\PS02.samba.net\HELPS006" & Chr(34))

Shell ("powershell.exe -Command {" & Chr(34) & "Add-printer -ConnectionName \\PS02.samba.net\HELPS006" & Chr(34) & "}")

Shell ("powershell.exe -Command " & Chr(34) & "{Add-printer -ConnectionName \\PS02.samba.net\HELPS006}" & Chr(34))

我做错什么了?

2 回复 | 直到 6 年前

CatCat 6 年前

如果PowerShell可以这样做,那么vba。

从帮助

http://download.microsoft.com/download/winscript56/Install/5.6/W982KMeXP/EN-US/scrdoc56en.exe 这包含一些系统管理库。您可以使用除根目录之外的所有Windows脚本宿主功能 wscript 对象(由脚本用于与主机通信)。管理/信息可用于 WMI https://msdn.microsoft.com/en-us/library/windows/desktop/aa393262(v=vs.85).aspx .

WSH具有第二个添加打印机功能。看看那个。

将基于Windows的打印机连接添加到计算机系统。

object.AddWindowsPrinterConnection strPrinterPath

对象

WshNetwork 对象。

纵横路径

指示打印机连接路径的字符串值。

例子

以下代码使用 AddWindowsPrinterConnection 方法将网络打印机连接到Windows NT/2000计算机系统。

Set WshNetwork = CreateObject("WScript.Network")
PrinterPath = "\\printserv\DefaultPrinter"
WshNetwork.AddWindowsPrinterConnection PrinterPath

Kirill Pashkov 6 年前

试试这个:

Shell ("powershell.exe -Command { Add-Printer -ConnectionName \\PS02.samba.net\HELPS006 }")

或者:

Shell ("powershell.exe -Command " & Chr(34) & "& { Add-Printer -ConnectionName \\PS02.samba.net\HELPS006 }" & Chr(34))

你也可以试试这个 Add-Printer 做:

$p = Get-WmiObject -List Win32_Printer -EnableAllPrivileges
$p.AddPrinterConnection ("\\PS02.samba.net\HELPS006")

推荐文章

Swapnil Srivastava · exec zsh不在我的windows中工作powershell帮助我理解

1 年前

sorosh_sabz · 为什么插件llcsharp-v2报告失败

1 年前

Purushottam Nawale · Shell脚本打开VS代码,然后脚本在VS代码终端中运行

1 年前

kristaps · 将嵌套的JSON输出导出到CSV文件

1 年前

Bubinsky · 发送邮件前检查登录是否正确-雅虎和Powershell

1 年前

littlepieceofnik · 方法调用失败,因为[System.String]不包含名为“SignData”的方法

1 年前

Flamingo · 如何更改PowerShell exe的默认路径

1 年前

arsaces · 将文本添加到特定文件的末尾

2 年前

Astora · Powershell-在错误位置写入主机打印

2 年前

siennac · 使用powershell更改html中的文本颜色

2 年前