Solved

VBScript to help automate software installs

Posted on 2009-05-06
3
855 Views
Last Modified: 2012-06-03
I'm looking to automate some software installs.  For example install .NET2.0SP1, C++ Package, SOme ActiveX Controls from one VBScript.  How Can this be done?   Thanks...
0
Comment
Question by:DougAZ
  • 2
3 Comments
 
LVL 20

Expert Comment

by:ltlbearand3
ID: 24321839
Sure this can be done.  Your script would need access to the install files for each piece of software that you want to install.  Depending on how much you want to display while it it being run, some exe files will have switches to make silent or on the other end you could make VBscript give updates in an IE window.

Below is the basic code to have vb script run the install file.  By using strReturn, it will wait for each install to finish

Dim strReturn, objShell
Set objShell = CreateObject("WScript.Shell")
strReturn = objShell.Run ("C:\pathtofile\installfile.exe", 1, true)
strReturn = objShell.Run ("C:\pathtofile\installfile2.exe", 1, true)

Open in new window

0
 

Author Comment

by:DougAZ
ID: 24321879
Couple of Questions:
  - If MSI or EXE have command line switches would I put them in the " "?
  - What are the other values (....,1, true)?
  - If I could expand this question...  How can you set some IE Settings like  Disable Script Debugging (Internet Explorer) and Disable Script Bebugging (Other)

Thanks..
0
 
LVL 20

Accepted Solution

by:
ltlbearand3 earned 250 total points
ID: 24322176
DougAZ,

Here you go:
1.  Yes put switches inbetween the " ".  When I have multiple commands I usually set up a string array for the exe files and then loop through the arrary calling the objShell.Run process
2.  1 is for show window, true is wait for return value.   See http://msdn.microsoft.com/en-us/library/d5fk67ky(VS.85).aspx for more information
3.  I don't know that I follow this question.  Are you wanting to set IE Security settings via a script?  Some IE settings like Proxy can be set via the registry, but I have never had much good luck with that.  You have to set this by adjusting the registry  
HKCU\Software\Microsoft\InternetExplorer\Main

Below is a sample registry script I found awhile ago and keep for registry update reference.

-Bear

Option Explicit
 
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005
 
Dim strComputer
Dim objRegistry
Dim strKeyPath
Dim strValueName
Dim strValue
Dim arrValues
Dim intValue
 
strComputer = "."
 
Set objRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strComputer & "\root\default:StdRegProv")
 
'Create Key
strKeyPath = "Registry Test"
objRegistry.CreateKey HKEY_CURRENT_USER,strKeyPath
 
'Set String value
strKeyPath = "Registry Test"
strValueName = "String Test"
strValue = "123"
objRegistry.SetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
 
'Get String value
strKeyPath = "Registry Test"
strValueName = "String Test"
objRegistry.GetStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
Wscript.Echo strValueName & " = " & strValue
 
'Delete String value
strKeyPath = "Registry Test"
strValueName = "String Test"
objRegistry.DeleteValue HKEY_CURRENT_USER,strKeyPath,strValueName
 
'Set Binary value
strKeyPath = "Registry Test"
strValueName = "Binary Test"
arrValues = Array(1,2,3,4,5,6,7,8,9,10)
objRegistry.SetBinaryValue HKEY_CURRENT_USER,strKeyPath,strValueName,arrValues
 
'Get Binary value
strKeyPath = "Registry Test"
strValueName = "Binary Test"
objRegistry.GetBinaryValue HKEY_CURRENT_USER,strKeyPath,strValueName,arrValues
For Each strValue In arrValues
Wscript.Echo strValueName & " = " & strValue
Next
 
'Delete Binary value
strKeyPath = "Registry Test"
strValueName = "Binary Test"
objRegistry.DeleteValue HKEY_CURRENT_USER,strKeyPath,strValueName
 
'Set DWORD value
strKeyPath = "Registry Test"
strValueName = "DWORD Test"
intValue = 123
objRegistry.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,intValue
 
'Get DWORD value
strKeyPath = "Registry Test"
strValueName = "DWORD Test"
objRegistry.GetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,intValue
Wscript.Echo strValueName & " = " & intValue
 
'Delete DWORD value
strKeyPath = "Registry Test"
strValueName = "DWORD Test"
objRegistry.DeleteValue HKEY_CURRENT_USER,strKeyPath,strValueName
 
'Set Multi-String value
strKeyPath = "Registry Test"
strValueName = "Multi-String Test"
arrValues = Array("Test1","Test2","Test3")
objRegistry.SetMultiStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,arrValues
 
'Get Multi-String value
strKeyPath = "Registry Test"
strValueName = "Multi-String Test"
objRegistry.GetMultiStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,arrValues
For Each strValue In arrValues
Wscript.Echo strValueName & " = " & strValue
Next
 
'Delete Multi-String value
strKeyPath = "Registry Test"
strValueName = "Multi-String Test"
objRegistry.DeleteValue HKEY_CURRENT_USER,strKeyPath,strValueName
 
'Set Expandable String value
strKeyPath = "Registry Test"
strValueName = "Expandable String Test"
strValue = "123"
objRegistry.SetExpandedStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
'Get Expandable String value
strKeyPath = "Registry Test"
strValueName = "Expandable String Test"
objRegistry.GetExpandedStringValue HKEY_CURRENT_USER,strKeyPath,strValueName,strValue
Wscript.Echo strValueName & " = " & strValue
 
'Delete Expandable String value
strKeyPath = "Registry Test"
strValueName = "Expandable String Test"
objRegistry.DeleteValue HKEY_CURRENT_USER,strKeyPath,strValueName
 
'Delete Key
strKeyPath = "Registry Test"
objRegistry.DeleteKey HKEY_CURRENT_USER,strKeyPath
 
Set objRegistry = Nothing
 
'Loop Through SubKey
strKeyPath = "SYSTEM\CurrentControlSet\Services"
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
 
For Each subkey In arrSubKeys
    Wscript.Echo subkey
Next
	

Open in new window

0

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Hello again, all.  For those of you that have been following along, you'll know that this is my third article on this topic (though it is not Part III).  This article is sort of remedial, and probably the topic with which I should have started the s…
With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

830 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