在Excel中包括PowerShell腳本

Question

希望有人在這里有個建議。 我是一名網絡工程師，多年來從事了大量的編程/腳本編寫工作，但我不是程序員。

我當前的問題是，我已經在Excel中創建了一個表單來收集特定安裝類型的數據。 我還使用了輸入表單中的數據來創建此安裝所涉及的各種網絡設備的配置。 這些配置是簡單的文本，您可以將其復制並粘貼到telnet或ssh會話中。

我希望有一種方法可以單擊excel表單中的按鈕並將配置自動推送到設備，因此用戶不必復制並將其粘貼到設備。 該工作表已經包含一些與VBScript宏綁定的按鈕，這些按鈕可執行各種功能，包括將配置轉儲到文件中。 但是，由於VBScript缺乏打開設備會話以發送/接收文本的本地方法（遠程登錄），因此我正在尋找一種使用PowerShell腳本推送配置的方法。

我已經編寫了PowerShell腳本，可以通過telnet將包含文本配置的文件推送到設備，並捕獲對日志文件的任何響應，但是我找不到像您這樣在Excel中將PowerShell腳本作為宏包含的方法。可以在MS Visual Basic for Applications中使用VBScript。

我試圖避免必須創建將包含Excel文件和PowerShell腳本的.MSI或.zip捆綁包（或在已編譯的.exe中編寫內容）。 這樣做的最終目的是擁有一個工具，任何在Windows上運行Excel的人都可以填寫該工具，然后單擊一些按鈕以通過telnet將配置（文本）發送到設備，而無需在其PC上安裝任何東西。 該工具適用於其他網絡工程師，他們對腳本或Excel的了解遠不如我（不是我所了解的更多）。

Answer 1

Sub RunAndGetCmd()

    strCommand = "Powershell -File ""C:\path\to\My PS File.ps1"""
    Set WshShell = CreateObject("WScript.Shell")
    Set WshShellExec = WshShell.Exec(strCommand)
    strOutput = WshShellExec.StdOut.ReadAll
    Msgbox strOutput

End Sub