원격 컴퓨터에 소프트웨어를 설치 하시겠습니까?

이것은 덤프 질문처럼 보일지 모르겠지만 VBScript에 대한 내 완전 무지는 나에게 그것을 시도 할 수있는 기회를 제공하지 못합니다. 간단히 말해서, 내 시스템 관리자 인 한 친구는 원격 컴퓨터 이름, 도메인 자격 증명 및 지정된 원격 컴퓨터에 설치 될 MSI 패키지를 입력 할 수있는 스크립트를 작성하도록 요청했습니다.
나는 그것이 어리석은다는 것을 알고있다, 나는 의미한다, 어서! 아무도 그렇게 로그인하지 않고 케이크를달라고 요청할 수 있습니다. 사람들은 어떻게 케이크를 조리해야하는지 묻습니다. 나도 안다. 그러나 나의 게으름과 도움을 용서해주세요!원격 컴퓨터에 소프트웨어를 설치 하시겠습니까?

출처

2009-06-15 Galilyou

이에 Serverfault로 이동해야 - "PsExec를 원격 무인 MSI 설치는" – 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)

**이 스크립트는 테스트되지 않았습니다. http://www.geekytidbits.com/unattended-msi-installation-psexec/

출처

2009-06-15 12:38:17 Tester101