Click here to Skip to main content
11,789,512 members (55,894 online)
Rate this: bad
Please Sign up or sign in to vote.
See more: VBScript
hi frnds,
i m using following script to install software to remote pc.
strUser = ""
strPassword = ""
strMSI = ""
strComputer = ""
'Get user name, cannot be blank
Do While strUser = ""
strUser = InputBox("Enter user name", "User Name")
'Get password, cannot be blank
Do While strPassword = ""
strPassword = InputBox("Enter password", "Password")
'Get msi package path, cannot be blank
Do While strMSI = ""
strMSI = InputBox("Enter the path to the msi package", "MSI package")
'Get destination computer, cannot be blank
Do While strComputer = ""
strComputer = InputBox("Enter the destination computer name", "Computer")

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)

but it show the following error on command prompt
SWbemLocator: The RPC server is unvalable.
pls help me what is the problem in my script
Posted 19-Jul-12 1:05am

1 solution

Rate this: bad
Please Sign up or sign in to vote.

Solution 1

Here, this should help in finding out the issue: Troubleshooting "The RPC server is unavailable"[^]

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 OriginalGriff 954
1 Maciej Los 765
2 KrunalRohit 666
3 CPallini 606
4 Richard MacCutchan 420

Advertise | Privacy | Mobile
Web04 | 2.8.1509028.1 | Last Updated 19 Jul 2012
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100