VB Script to query remote computer and upgrade software on that remote computer based on registry value
Posted on 2011-03-02
I'm new to Visual Basic scripting and I need urgent help to create a script that I can run to update Adobe Reader software on Remote Computers. The script will read a text file to obtain remote computer names, connect to the remote computers and query the registry for a string value then upgrade Adobe Reader to most current version based on the string value returned from registry query. I've searched the internet for assistance, but I keep going around and around and still no product. I running the vb script from one of our servers. Here's what I have so far...
Rem This vb script will open and read a txt file that consist of workstation names that need Adobe updates
Rem Initializing Variables
Const ForReading = 1
Const REGQ = "REG QUERY "
Rem Creating the objects:
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
Rem Open NIPR_Workstations text file for reading:
Set objTextFile = objFSO.OpenTextFile("c:\Adobe products\NIPR_Workstations.txt", ForReading)
Rem Read text file all at once and store information in a variable
strText = ObjTextFile.ReadAll
arrComputers = Split (strText,VbCrLf)
For Each strArg in arrComputers
strRegKey="HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" & "DisplayVersion" & "\9.4.1"
Set objExec = objShell.Exec("cmd /c " & REGQ & strRegKey & " \\" & strArg)
Do While Not objExec.StdOut.AtEndOfStream
If InStr(strOutput) <> "9.4.1"
rem This is where I want it to call msiexec to upgrade Adobe Reader
NOTE: This is what I want to call to update Adobe:
msiexec /p /qn adberdrupd942_all_incr.msp /norestart