Solved

vbscript to install a .msi file

Posted on 2006-11-30
5
1,194 Views
Last Modified: 2012-05-05
I am trying to come up with a script to install a .msi file on 100+ machines.
I found the below from activexperts.com but keep getting an rpc error. I know it is becuase I am not using correct syntax....

The error is on line 3.. What should be the value for Set objConnection???

Const wbemImpersonationLevelDelegate = 4
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer _
    ("WebServer", "root\cimv2", "fabrikam\administrator", _
     "password", , "kerberos:WebServer")
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate
Set objSoftware = objConnection.Get("Win32_Product")
errReturn = objSoftware.Install("\\atl-dc-02\scripts\1561_lab.msi",,True)
Wscript.Echo errReturn

Thanks for any help
0
Comment
Question by:andrew_89
  • 3
  • 2
5 Comments
 
LVL 26

Expert Comment

by:Pber
ID: 18047852
Try this one instead (specifically the "Script to Create (Start) a Process on a Computer"):

http://www.computerperformance.co.uk/vbscript/wmi_process_start.htm#Scenario_-_Why_you_need_to_Launch_a_Processes_on_a_Remote_Machine_

Works like a charm
0
 
LVL 1

Author Comment

by:andrew_89
ID: 18047888
How does it know where the .msi lives to execute on the remote machine
0
 
LVL 26

Accepted Solution

by:
Pber earned 500 total points
ID: 18047958
I main msiexec process will end up running under system.  that is the one that needs access to the file.

Thus I copy the msi to the remote machine first (\\machine\c$), then run the script, then remove the file.  I do this all in a batch

The strExe in the StartProcess.vbs would be

strExe = "msiexec /i c:\1561_lab.msi /qb"

I've modified the script slightly to allow me to use command line parameters.





0
 
LVL 1

Author Comment

by:andrew_89
ID: 18048232
Thanks alot that is very helpful !!!!



0
 
LVL 26

Expert Comment

by:Pber
ID: 18048714
I was also able to get the first script to work, but it you have to mess around with dcom on the PC sourcing the MSI.

On the MSI source
load dcomcnfg
Expand Component Services\Computers\My computer
Right click My Computer and select properties
Select the COM Security TAB
Select  the Edit Defaults of the Access Permissions
Grant System Remote Access.


;new vbs file
strcomputer="some machine"

Const wbemImpersonationLevelDelegate = 3 ;not change to 3 from 4
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer (strComputer, "root\cimv2", , , , "kerberos:" & strComputer)
Wscript.Echo "Error: " & Err.Description
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate
Set objSoftware = objConnection.Get("Win32_Product")
errReturn = objSoftware.Install("\\MSIsource\share\some.msi",,True)
WScript.Echo(errReturn)

0

Featured Post

Best Practices: Disaster Recovery Testing

Besides backup, any IT division should have a disaster recovery plan. You will find a few tips below relating to the development of such a plan and to what issues one should pay special attention in the course of backup planning.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Organizations create, modify, and maintain huge amounts of data to help their businesses earn money and generally function.  Typically every network user within an organization has a bit of disk space to store in process items and personal files.   …
Many of us need to configure DHCP server(s) in their environment. We can do that simply via DHCP console on server or using MMC snap-in on each computer with Administrative Tools installed in a network. But what if we have to configure many DHCP ser…
This Micro Tutorial will teach you how to censor certain areas of your screen. The example in this video will show a little boy's face being blurred. This will be demonstrated using Adobe Premiere Pro CS6.
This video shows how to use Hyena, from SystemTools Software, to bulk import 100 user accounts from an external text file. View in 1080p for best video quality.

832 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question