Solved

VBScript to help automate software installs

Posted on 2009-05-06
3
853 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

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

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

This is an addendum to the following article: Acitve Directory based Outlook Signature (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_24950055.html) The script is fine, and works in normal client-server domains…
Welcome, welcome!  If you are new to the series and haven't been following along, please take a brief moment to review the first three installments: Part 1 (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/A_266-VBScri…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

777 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