Solved

Error 800A400 On Vbscript

Posted on 2014-10-11
1
355 Views
Last Modified: 2014-10-11
hi
 how do i get rid of this error 800A400 please


 
Set objShell = WScript.CreateObject ("WScript.Shell")
Set objEnv = objShell.Environment("PROCESS")

Visual2010X86 = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\{F0C3E5D1-1ADE-321E-8167-68EF0DE699A5}"
2010X86 = """\\share\vcredist_x86_2010.exe"" /q /norestart"


objEnv("SEE_MASK_NOZONECHECKS") = 1

If KeyExists(HKLM, Visual2010X86) = False Then
                objShell.Run 2010X86,0,1
            End If


Function KeyExists(Key, KeyPath)
          Set objReg = GetObject("winmgmts:!root/default:StdRegProv")
          If objReg.EnumKey(Key, KeyPath, arrSubKeys) = 0 Then
              KeyExists = True
    Else
              KeyExists = False
   End If
End Function
0
Comment
Question by:David Regev
1 Comment
 
LVL 17

Accepted Solution

by:
vb_elmar earned 500 total points
ID: 40374855
1) object names may not begin with a number.
-Please try to name 2010X86 to aaa2010X86 .

2) the term objEnv("SEE_MASK_NOZONECHECKS") returns a path in string format.
-To get the path try :
myString = objEnv("SEE_MASK_NOZONECHECKS")
0

Featured Post

Highfive + Dolby Voice = No More Audio Complaints!

Poor audio quality is one of the top reasons people don’t use video conferencing. Get the crispest, clearest audio powered by Dolby Voice in every meeting. Highfive and Dolby Voice deliver the best video conferencing and audio experience for every meeting and every room.

Join & Write a Comment

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Although it can be difficult to imagine, someday your child will have a career of his or her own. He or she will likely start a family, buy a home and start having their own children. So, while being a kid is still extremely important, it’s also …
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…

706 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

21 Experts available now in Live!

Get 1:1 Help Now