windows - software - tag mp3 files automatically

Instalar software en una máquina remota?

Question

Esto puede parecer una pregunta dump, pero mi total ignorancia con VbScript no me da la oportunidad de intentar resolverlo. En resumen, un amigo del administrador del sistema, me pidió que le escribiera un script que debería permitirle ingresar un nombre de máquina remoto, credenciales de dominio y un paquete MSI que se instalará en la máquina remota especificada.
Sé que esto es tonto, quiero decir, ¡vamos! Nadie puede simplemente iniciar sesión en SO y pedir un pastel, la gente debería preguntar cómo cocinar el pastel. Lo sé, pero por favor perdona mi absoluta pereza y ayuda.

Answer 1

¿Puedes usar psexec ?

O bien, parece que puede usar el método de instalación de la clase WMI Win32_Product. Ver technet para más información. También hay más información en este artículo de serverwatch

Answer 2

Esto abrirá cuadros de entrada simples para obtener la información requerida. * NOTA: La entrada solo se verifica para asegurarse de que no esté en blanco, al ingresar datos no válidos hará que la secuencia de comandos falle.

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)

** Este script no ha sido probado.

Answer 3

TechNet tiene una secuencia de comandos de ejemplo: Instalar software en una computadora remota .

Answer 4

Escriba algunos VbScript en torno a los comandos descritos aquí: "Instalación MSI desatendida remota con PsExec" - http://www.geekytidbits.com/unattended-msi-installation-psexec/