リモートマシンにソフトウェアをインストールしますか？

これはダンプのように思えるかもしれませんが、VBScriptの完全な無知は私にそれを解決しようとする機会を与えてくれません。要するに、私のシステム管理者の友人は、指定されたリモートマシンにインストールされるリモートマシン名、ドメインクレデンシャル、およびMSIパッケージを入力するスクリプトを作成するように頼まれました。
私はこれが愚かであることを知っています、私は、来ることを意味します！誰もSOにログインしてケーキを頼むことはできません。人々はケーキの調理方法を尋ねるべきです。私は知っているが、私の絶対的な怠け者を許して助けてください！リモートマシンにソフトウェアをインストールしますか？

出典

2009-06-15 Galilyou

これはServerFaultのに行くべきでしょうか？ – Galilyou

これは、必要な情報を得るために簡単な入力ボックスを開きます。注：入力は空白でないことを確認するためにのみチェックされ、無効なデータを入力するとスクリプトが失敗します。

strUser = "" 
strPassword = "" 
strMSI = "" 
strComputer = "" 

'Get user name, cannot be blank 
Do While strUser = "" 
    strUser = InputBox("Enter user name", "User Name") 
Loop 
'Get password, cannot be blank 
Do While strPassword = "" 
    strPassword = InputBox("Enter password", "Password") 
Loop 
'Get msi package path, cannot be blank 
Do While strMSI = "" 
    strMSI = InputBox("Enter the path to the msi package", "MSI package") 
Loop 
'Get destination computer, cannot be blank 
Do While strComputer = "" 
    strComputer = InputBox("Enter the destination computer name", "Computer") 
Loop 


Const wbemImpersonationLevelDelegate = 4 

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator") 
Set objConnection = objwbemLocator.ConnectServer _ 
    (strComputer, "root\cimv2", strUser, strPassword) 
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate 

Set objSoftware = objConnection.Get("Win32_Product") 
errReturn = objSoftware.Install(strMSI,,True)

**このスクリプトはテストされていません。

出典

2009-06-15 12:38:17 Tester101