Solved

VBScript to help automate software installs

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

When it comes to writing scripts for a Client/Server computing environment it is essential to consider some way of enabling the authentication functionality within a script. This sort of consideration mainly comes into the picture when we are dealin…
Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
Hi friends,  in this video  I'll show you how new windows 10 user can learn the using of windows 10. Thank you.

896 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

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now