Vbscript runtime error 800a0046

Permission denied 800A0046 Code – Windows Script Host Error (Solved)

The Microsoft VBScript runtime error: Permission denied 800A0046, may faced while trying to install or uninstall a program or driver on your computer. The error 800A0046 is commonly caused because you ‘ll try to install a program on your computer without having administrative privileges or because you have enabled the User Account Control (UAC) on Windows 7 or Vista based computers.

In most cases the VBScript runtime error 800A0046, is occurred whenever you try to install the «Windows Installer Clean Up» utility, in order to remove a program from the system that you cannot uninstall by using the normal way (Programs and features).

This article contains two(2) methods to fix the «Permission denied 800A0046» Windows Script Host Error, on Windows 7 or Vista.

How to bypass the Windows Script Host «Permission Denied – Code 800A0046».

Before applying the methods below to resolve the VBScript Runtime 800A0046 error, first make sure that you have logged on as Administrator on your system,

Method 1: DISABLE User Account Control (UAC).

In order to disable the UAC (User Account Control):

1. Go to Start > Control Panel.
2. Open User Accounts.
3. Click at Change User Account Control settings.

4, Move the slider on the left to Never notify and click OK.
5. Restart your computer.

6. After restart, install (or uninstall) the program that caused the 800A0046 error.

Method 2: RUN the Installer (Setup.exe) as Administrator

In order to install a program as administrator:

1. Right click at the program (installer) that you ‘re trying to install and click Run as Administrator.

That’s all folks! Did it work for you?

Please leave a comment in the comment section below or even better: like and share this blog post in the social networks to help spread the word about this solution.

Источник

Vbscript runtime error 800a0046

This forum is closed. Thank you for your contributions.

Answered by:

Question

I’m so close to get my script to work with a user, but I need your help.
I have a Terminal Server 2003 with policy restrictions. My users can’t even see how much megabytes they have in use. So I created the following script. It runs perfectly with an administrator account:

—
Dim oFS, oFolder
Dim total
Dim message
set oFS = WScript.CreateObject(«Scripting.FileSystemObject»)
set oFolder1 = oFS.GetFolder(«\servershare$»)
set oFolder2 = oFS.GetFolder(«\servershare1$»)
set oFolder3 = oFS.GetFolder(«\servershare2$»)
Wscript.Sleep 300
total = oFolder1.Size + oFolder2.Size + oFolder3.Size
message=MsgBox («Size: » & vbTab & oFolder1.Size /10241024 & «MB» & vbTab & » Path: » & vbTab & oFolder1.Path & Chr(10) _
& «Size: » & vbTab & oFolder2.Size /10241024 & «MB» & vbTab & » Path: » & vbTab & oFolder2.Path & Chr(10) _
& «Size: » & vbTab & oFolder3.Size /10241024 & «MB» & vbTab & » Path: » & vbTab & oFolder3.Path & Chr(10) _
& «Total: » & vbTab & total /10241024 & «MB»,64,»megabytes in use»)
—

The problem I’m facing is that I can’t distribute it to my users because when this script runs as an user I receive this error:
Windows Script Host
Script: pathandname.vbs
Line: 9
Char: 1
Error: Permission denied
Code: 800A0046
Source: Microsoft VBScript runtime error

I’ve checked the users permission on the servershare’s and they have Full Control.
Also on the ACL on the script the user has Full Control.

What else can I check?
Is there a setting in some GPO that denies users to run a .vbs?

Please let me know when you need more information to solve this.

Источник

Vbscript runtime error 800a0046

Asked by:

Question

I write a simple code to check the ADODB.Connection. but it’s giving below error.

This page was last refreshed on 9/1/2015 3:00:57 PM,
LOGON_USER:
Creating ADODB.COnnection object.

Microsoft VBScript runtime error ‘800a0046’

Permission denied: ‘CreateObject’

/Test1.asp, line 9

CODE:

This page was last refreshed on ,

I given full permission on folder to IUser_ComputerName but same error is coming. I used process monitor to check if I can find access denied error but there is no access denied error. Also when I changed the application pool identity to «LocalSystem» , It’s working but when I changed its identity to «NetworkService» or «DefultApplicationPool» , Its not working.

OS: Windows 2008 R2

Please configure application pool identity account permission instead of IUser_ComputerName account. For more information, please refer to the document:

And you can check event log and enable Failed request Tracing to troubleshooting it.

It’s not working even set identity to «NetworkService» or «DefultApplicationPool» for application pool.

I configured the failed request tracing but Its not creating any logs.

I configured the failed the request tracing and below error/warning exist in logs.

No.↓ Severity Event Module Name

99. view trace Error -ASP_LOG_ERROR
LineNumber 9
ErrorCode 800a0046
Description Permission denied: ‘CreateObject’

102. view trace Warning -MODULE_SET_RESPONSE_ERROR_STATUS
ModuleName IsapiModule
Notification 128
HttpStatus 500
HttpReason Internal Server Error
HttpSubStatus 0
ErrorCode 0
ConfigExceptionInfo
Notification EXECUTE_REQUEST_HANDLER
ErrorCode The operation completed successfully. (0x0)

Источник

Code Error 800A0046 – Permission Denied

Troubleshooting Code 800A0046 – Permission Denied

Code 800A0046 is a straightforward error to solve. The secret is to read the Windows Script Error message carefully, then check the access control list to see who has permission to use the page, or use the device.

Introduction to Error 800A0046

Code 800A0046 is runtime error that is more likely to occur with an .ASP file than a .VBS. You could be trying to connect to SQL, IIS or Exchange. However, my example of is taken from printer permission problem sent in by Keith S.

The Symptoms You Get With Error 800A0046

When you get a pop-up message box. Put on your detective hat, and pay close attention to the line number. Error 800A0046 is a runtime error, so the problem is likely to outside your script, there could be something the matter with permissions on an application server.

The Cause of Error 800A0046

In the example above, Line 6: is the source of the error. Char 1: is not always very useful as the error could be anywhere on the line, and WSH still blames char 1.

The cause of error 800A0046 is likely to be read-only permissions on some aspect of your server. The Source: tells us that this is a runtime error, therefore the syntax is probably o.k.

The Solution

If its Exchange, then check the MailRoot and Pickup folder permissions. If its IIS check the permissions to run scripts. If its SQL check the execute permissions on the services.

The solution in the printer problem below would be to change the share permissions on the HP6L printer share.

Example 1: Script to map a printer

In this example, the user does not have permission to install the HP6L printer. Tell the truth, an example script is not that useful with Error 800A0046 as you cannot see the permissions!

‘ VBScript to create a local printer mapped to a network server
‘ Guy Thomas February 2010.
Option Explicit
Dim netPrinter
Set netPrinter = CreateObject(«WScript.Network»)
netPrinter.AddWindowsPrinterConnection «\ServerPrnHP6L»

Guy Recommends: Permissions Analyzer – Free Active Directory Tool

I like thePermissions Monitor because it enables me to see quickly WHO has permissions to do WHAT. When you launch this tool it analyzes a users effective NTFS permissions for a specific file or folder, takes into account network share access, then displays the results in a nifty desktop dashboard!

Think of all the frustration that this free utility saves when you are troubleshooting authorization problems for users access to a resource. Give this permissions monitor a try – it’s free!

Example 2: Error 800A0046 When You Install Visual Studio 6.0 (Also other Microsoft Products)

When you install Visual Studio you get the following message.

Permission denied: ‘CreateObject’

/Retail/include/global_siteconfig_lib.asp, line 194

Once again it’s a permissions problem on the Windowssystem32 folder. Another idea is to try the useful Free Permissions Analyzer.

Example 3: ASP on IIS (Kindly sent in by a reader)

The way we got error 800A0046 was running ASP on IIS under Server 2003R2. Someone wrote a debug routine that did an OpenTextFile from a FileSystemObject; I think what happened was there were multiple simultaneous attempts to open that file.

Example 4: Constantly Writing to File

Dim FSO
Dim oFS
CONST F_ATTR_RONLY = 1
Set FSO = CreateObject(«Scripting.FileSystemObject»)
Set oFS = FSO.GetFile(«d:testo2test.png»)
IF oFS.Attributes AND F_ATTR_RONLY ‘check if bit 1 is set – read only
THEN
‘do nothing
ELSE
FSO.CopyFile «d:testo1test.png», «d:testo2»
END IF

The problem was: the file is written into the sourcelocation every 10 seconds. This is done by a Closed Source Software i have no way of editing. It seems like i get the error (line 11) every time i try to READ the sourcefile while it is being written/created.
Sadly the only solution i found was to run the script with
c:windowssystem32wscript.exe «c:» //B
preventing the errornotice.

I have found no way to check if the file is currently being modified except for try and error.

See More Windows Update Error Codes 8004 Series

Guy Recommends: WMI Monitor and It’s Free!

Windows Management Instrumentation (WMI) is one of the hidden treasures of Microsoft operating systems. Fortunately, SolarWinds have created the WMI Monitor so that you can examine these gems of performance information for free. Take the guess work out of which WMI counters to use for applications like Microsoft Active Directory, SQL or Exchange Server.

Do you need additional help?

Give something back?

Would you like to help others? If you have a good example of this error, then please email me, I will publish it with a credit to you:

If you like this page then please share it with your friends

Источник

Vbscript runtime error 800a0046

This forum is closed. Thank you for your contributions.

Answered by:

Question

Apologies if this is not really within the scope of this forum, but I have been searching for a solution for days and this seemed like the best option for finding a solution. We are a very small company (4 people) and I am the ‘IT manager’ by default as I seem to know the most about computers. Forums like this are a real lifeline for me, as I have no formal training in computers and my other responsibilities don’t allow much time to spend on this kind of thing. We can’t afford to get in ‘proper’ help as our IT budget only just covers the cost of printer ink!

I’m trying to automate the process that seems to fix most of the (frequent) problems our Dell 966 printer experiences. I do this by writing batch files from stuff I’ve cobbled together of the internet, and then compile these into executables using Bat to Exe Converter v1.5.1. The exe first restarts the print spooler and DLCQ device services, clears the print queue, and then resets the Dell 966 print server via the network (by logging onto its network web page, going to the reset page, and ‘clicking’ on the reset button). Finally it then restarts the print spooler and DLCQ device services again for good measure. Relevant portion of code below (The three items in square brackets are where I’ve hidden the details):

On my computer it runs fine (Windows XP [fully up-to-date] with IE8, VBScript version is 5.8.6001.23141). However when I try to run it on two other XP computers it fails, generating the same error (one running IE7, the other running IE8). From what I can tell, there are no IE security settings blocking scripting on these other two computers. The error I get is a VBScript runtime error 800A0046 «permission denied, Document.Forms(. ).Action». The line at which the error is generated is:

On the other two computers what seems to happen is it (mostly) opens up the online reset page of the printer, but then doesn’t actually ‘click’ on the button. The rest of the script seems to run OK, and of course on my computer it works well (apart from occasionally when IE doesn’t become the active window and the username/password details are therefore not entered — that’s another problem for later).

I hope someone can help.

Answers

Great! I’m glad you got it working. I didn’t realize the first page wasn’t loading until after the authentication was complete.

For future reference, the problem with the greater than and less than symbols in the ECHO statements is that they represent redirection in console applications. Therefore, they must be escaped using the carat (shift-6, ^) character, something like this .

>>%script% echo Do Until .ReadyState ^> 1

>>%script% echo Do While .ReadyState ^ «%temp%.temp.vbs»
>>%script% echo wsh.echo «*** Start script ***» ‘ *** debug only ***
>>%script% echo Dim url, WshShell
>>%script% echo set WshShell = CreateObject(«WScript.Shell»)
>>%script% echo url = «http://*********/cgi-bin/dynamic/config/secure/resetnet.html»
>>%script% echo with CreateObject(«InternetExplorer.Application»)
>>%script% echo .Visible = true
>>%script% echo .Navigate url
>>%script% echo with WshShell
>>%script% echo do until .AppActivate «Windows Internet Explorer»
>>%script% echo WScript.sleep 10
>>%script% echo loop
>>%script% echo wsh.echo «*** Authentication dialog open ***» ‘ *** debug only ***
>>%script% echo .SendKeys «*******» : WScript.sleep 10
>>%script% echo .SendKeys «» : WScript.sleep 10
>>%script% echo .SendKeys «*******» : WScript.sleep 10
>>%script% echo .SendKeys «»
>>%script% echo end with ‘ WshShell
>>%script% echo Do Until WshShell.AppActivate(«Reset Print Server»)
>>%script% echo WScript.sleep 50
>>%script% echo Loop
>>%script% echo Do Until .ReadyState = 4
>>%script% echo WScript.sleep 50
>>%script% echo Loop
>>%script% echo ‘ .Document.Forms(0).submit
>>%script% echo wsh.echo «*** Form submitted ***» ‘ *** debug only ***
>>%script% echo end with ‘ IE
>>%script% echo wsh.echo «*** Script done ***» ‘ *** debug only ***
cscript //nologo %script%
del %script%
pause

Anyway, glad you got it working.

Using Sendkeys is fraught with pitfalls and your VB Script could use some techniques that might help make it less so. For example, running the script ‘open loop’ is a sure way to have the Sendkey keystrokes go astray, as you witness. I know the MS docs use that approach, but that does not make it good. In addition, the use of guesses on the timing of the Sleeps might explain why you are getting the problem on some machines and not others — they are loading the applications at differing speeds. It might be something else, but I’d start troubleshooting there.

The approach I would use to address both of the problems I mentioned above is to press the AppActivate function into use, something like this .

set script=»%temp%.temp.vbs»> «%temp%.temp.vbs»

>>%script% echo Dim url, WshShell
>>%script% echo set WshShell = CreateObject(«WScript.Shell»)
>>%script% echo url = «http://[ADDRESS OF PRINTER]/cgi-bin/dynamic/config/secure/resetnet.html»
>>%script% echo with CreateObject(«InternetExplorer.Application»)
>>%script% echo .Visible = true
>>%script% echo .Navigate url
>>%script% echo Do While .document.ReadyState <> «complete»
>>%script% echo WScript.sleep 50
>>%script% echo Loop
>>%script% echo with WshShell
>>%script% echo .AppActivate «Title of target Page»
>>%script% echo .SendKeys «[USERNAME]» : WScript.sleep 10
>>%script% echo .SendKeys «» : WScript.sleep 10
>>%script% echo .SendKeys «[PASSWORD]» : WScript.sleep 10
>>%script% echo .SendKeys «» % this should cause page to submit %
>>%script% echo end with ‘ WshShell
>>%script% echo .Document.Forms(0).submit % redundant, I think — or even a problem %
>>%script% echo ‘ Wait for page to load
>>%script% echo Do Until WshShell.AppActivate(«Title of NEXT Page»)
>>%script% echo WScript.sleep 50
>>%script% echo Loop
>>%script% echo Do While .document.ReadyState <> «complete»
>>%script% echo WScript.sleep 50
>>%script% echo Loop
>>%script% echo end with ‘ IE
%script%
del %script%

You need to supply the two page titles for the two instances of AppActivate. They only need to be unique parts of the title at the beginning of the each. They are not case sensitive.

I might also suggest that most such pages can be controlled using DHTML scripted solutions that access the elements on the page by ID/Name or sequence on the page, rather than by resorting to SendKeys. Here is an old example (in VBScript form) of such a login .

Set oIE = CreateObject(«InternetExplorer.Application»)
oIE.navigate «https://xyz.com/login»
oIE.Visible = True

Do while oIE.Busy
WSH.Sleep 50
Loop

Set UID = oIE.document.all.IDToken1
UID.value = «theUserID»

Set PWD = oIE.document.all.IDToken2
PWD.value = «thePassword»

sLocation = «*ERROR*»
n = 0
Do until oIE.document.ReadyState = «complete» or n=100
n=n+1
WSH.Sleep 50
Loop

sLocation = lcase(unescape(oIE.document.location))
if not sLocation = «https://xyz.com/the/expected/destination_page.ext» then
wsh.echo «Login failed»
else
wsh.echo «You made it.»
end if

The two elements on this particular page that needed filling were named IDToken1 and IDToken2 — your page will have different IDs (or names or maybe no names). Once those are known, this approach could be used, thereby bypassing the need for the problematic SendKeys approach all together.

Источник

Troubleshooting Code 800A0046 – Permission Denied

Code 800A0046 is a straightforward error to solve.  The secret is to read the Windows Script Error message carefully, then check the access control list to see who has permission to use the page, or use the device.

• Introduction to Error Code 800A0046
• Example 1: Script to map a printer
• Example 2: Error 800A0046 When You Install Visual Studio
• Permissions Analyzer Free Tool

  ‡

Introduction to Error 800A0046

Code 800A0046 is runtime error that is more likely to occur with an .ASP file than a .VBS.  You could be trying to connect to SQL, IIS or Exchange.  However, my example of is taken from printer permission problem sent in by Keith S.

The Symptoms You Get With Error 800A0046

When you get a pop-up message box.  Put on your detective hat, and pay close attention to the line number.  Error 800A0046 is a runtime error, so the problem is likely to outside your script, there could be something the matter with permissions on an application server.

The Cause of Error 800A0046

In the example above, Line 6: is the source of the error.  Char 1: is not always very useful as the error could be anywhere on the line, and WSH still blames char 1.

The cause of error 800A0046 is likely to be read-only permissions on some aspect of your server.  The Source: tells us that this is a runtime error, therefore the syntax is probably o.k.

The Solution

If its Exchange, then check the MailRoot and Pickup folder permissions.  If its IIS check the permissions to run scripts.  If its SQL check the execute permissions on the services.

The solution in the printer problem below would be to change the share permissions on the HP6L printer share.

Example 1: Script to map a printer

In this example, the user does not have permission to install the HP6L printer. Tell the truth, an example script is not that useful with Error 800A0046 as you cannot see the permissions!

‘  VBScript to create a local printer mapped to a network server
‘  Guy Thomas February 2010.
Option Explicit
Dim netPrinter
Set netPrinter = CreateObject(«WScript.Network»)
netPrinter.AddWindowsPrinterConnection «\ServerPrnHP6L»

Guy Recommends: Permissions Analyzer – Free Active Directory Tool

I like thePermissions Monitor because it enables me to see quickly WHO has permissions to do WHAT.  When you launch this tool it analyzes a users effective NTFS permissions for a specific file or folder, takes into account network share access, then displays the results in a nifty desktop dashboard!

Think of all the frustration that this free utility saves when you are troubleshooting authorization problems for users access to a resource.  Give this permissions monitor a try – it’s free!

Download Permissions Analyser – Free Active Directory Tool

Example 2: Error 800A0046 When You Install Visual Studio 6.0 (Also other Microsoft Products)

When you install Visual Studio you get the following message.

Permission denied: ‘CreateObject’

/Retail/include/global_siteconfig_lib.asp, line 194

Once again it’s a permissions problem on the Windowssystem32 folder.  Another idea is to try the useful Free Permissions Analyzer.

Example 3: ASP on IIS (Kindly sent in by a reader)

The way we got error 800A0046 was running ASP on IIS under Server 2003R2. Someone wrote a debug routine that did an OpenTextFile from a FileSystemObject; I think what happened was there were multiple simultaneous attempts to open that file.

Example 4: Constantly Writing to File

Dim FSO
Dim oFS
CONST F_ATTR_RONLY = 1
Set FSO = CreateObject(«Scripting.FileSystemObject»)
Set oFS = FSO.GetFile(«d:testo2test.png»)
IF oFS.Attributes AND F_ATTR_RONLY ‘check if bit 1 is set – read only
THEN
‘do nothing
ELSE
FSO.CopyFile «d:testo1test.png», «d:testo2»
END IF

The problem was: the file is written into the sourcelocation every 10 seconds. This is done by a Closed Source Software i have no way of editing. It seems like i get the error (line 11) every time i try to READ the sourcefile while it is being written/created.
Sadly the only solution i found was to run the script with
c:windowssystem32wscript.exe «c:{path to script}» //B
preventing the errornotice.

I have found no way to check if the file is currently being modified except for try and error.

See More Windows Update Error Codes 8004 Series

• Error 800A101A8 Object Required   •Error 800A0046   •Error 800A10AD   •Error 800A000D

• Error 80048820   •Error 800A0401   •Review of SolarWinds Permissions Monitor

• Error 80040E14   • Error 800A03EA   • Error 800A0408   • Error 800A03EE

Guy Recommends: WMI Monitor and It’s Free!

Windows Management Instrumentation (WMI) is one of the hidden treasures of Microsoft operating systems.  Fortunately, SolarWinds have created the WMI Monitor so that you can examine these gems of performance information for free.  Take the guess work out of which WMI counters to use for applications like Microsoft Active Directory, SQL or Exchange Server.

Download your free copy of WMI Monitor

Do you need additional help?

• For interpreting the WSH messages check Diagnose 800 errors.
• For general advice try my 7 Troubleshooting techniques.
• See master list of 0800 errors.
• Codes beginning 08004…
• Codes beginning 08005…
• Codes beginning 08007…
• Codes beginning 0800A…

Give something back?

Would you like to help others?  If you have a good example of this error, then please email me, I will publish it with a credit to you:

If you like this page then please share it with your friends

Симптомы Ошибка 800A0046 — Ошибка программы очистки установщика Windows 800A0046

Ошибки времени выполнения происходят без предупреждения. Сообщение об ошибке может появиться на экране при любом запуске %программы%. Фактически, сообщение об ошибке или другое диалоговое окно может появляться снова и снова, если не принять меры на ранней стадии.

Возможны случаи удаления файлов или появления новых файлов. Хотя этот симптом в основном связан с заражением вирусом, его можно отнести к симптомам ошибки времени выполнения, поскольку заражение вирусом является одной из причин ошибки времени выполнения. Пользователь также может столкнуться с внезапным падением скорости интернет-соединения, но, опять же, это не всегда так.

(Только для примера)

Причины Ошибка программы очистки установщика Windows 800A0046 — Ошибка 800A0046

При разработке программного обеспечения программисты составляют код, предвидя возникновение ошибок. Однако идеальных проектов не бывает, поскольку ошибки можно ожидать даже при самом лучшем дизайне программы. Глюки могут произойти во время выполнения программы, если определенная ошибка не была обнаружена и устранена во время проектирования и тестирования.

Ошибки во время выполнения обычно вызваны несовместимостью программ, запущенных в одно и то же время. Они также могут возникать из-за проблем с памятью, плохого графического драйвера или заражения вирусом. Каким бы ни был случай, проблему необходимо решить немедленно, чтобы избежать дальнейших проблем. Ниже приведены способы устранения ошибки.

Методы исправления

Ошибки времени выполнения могут быть раздражающими и постоянными, но это не совсем безнадежно, существует возможность ремонта. Вот способы сделать это.

Если метод ремонта вам подошел, пожалуйста, нажмите кнопку upvote слева от ответа, это позволит другим пользователям узнать, какой метод ремонта на данный момент работает лучше всего.

Обратите внимание: ни ErrorVault.com, ни его авторы не несут ответственности за результаты действий, предпринятых при использовании любого из методов ремонта, перечисленных на этой странице — вы выполняете эти шаги на свой страх и риск.