Ошибка разрешение отклонено код 800а0046

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

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

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

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

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

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

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

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

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

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

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

• Remove From My Forums

• 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.

  Cheers,
  Yuri

Информация о системе:

На вашем ПК работает:  …

0x800A0046 сообщения об ошибке могут появляться из-за засорения реестра Windows и ошибочных записей несуществующих программ, поскольку пользователь обычно неправильно удаляет программное обеспечение. Другими распространенными причинами являются неправильный ввод данных, отсутствие файлов, которые были случайно удалены из реестра, что вызывает проблемы в работе системы.

• Remove From My Forums

• Question

• Hello All,

  I am very new to VBScript and am trying to work with an existing one that my organization has been using for a while. Unfortunately we’ve encountered the above error during a mass roll-out and cannot get the darn thing to run regardless of permissions of
  who is running it. The script is hit or miss as SOME workstations will allow it and others will not. We’re working in a Windows 7/XP mixed environment.

  The script is SUPPOSED to either DELETE or ADD a network printer for all users on a workstation. I know that an alternative is to use Group Policy in AD but that’s not an option here.

  Any ideas?

  Set objShell	= CreateObject("Wscript.Shell")
  Set objEnv	= objShell.Environment("Process")
  PrinterFlag	= 1
  
  '********************************************************************************
  '* Gather Information: Workstation Name, Printer Server, and Printer Name       *
  '********************************************************************************
  ADResult	= MsgBox("Click 'YES' to Add or 'NO' to Delete a printer.  Click 'CANCEL' to cancel the request", vbQuestion + vbyesNoCancel, "Add or Delete?")
  If ADResult	= vbYes    then AddOrDelete	= "/ga"
  If ADResult	= vbNo     then AddOrDelete	= "/gd"
  If ADResult	= vbCancel then Wscript.Quit Result
  
  ComputerName	= objEnv("ComputerName")
  ComputerName	= InputBox("Enter the Name of the Workstation you wish to Install the printer on.", "Workstation Name", ComputerName)
  Set objComputer = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & ComputerName & "rootcimv2")
  
  PrinterServer	= "PRINTER"
  PrinterServer	= InputBox("Enter the NAME of the Server that hosts the printer you wish to Install.", "Server Name", PrinterServer)
  Set objServer	= GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & PrinterServer & "rootcimv2")
  
  PrinterShare	= ""
  PrinterShare	= InputBox("Enter the NAME of the printer you wish to Install, (i.e. K0507).  The name is Case Sensitive.", "Printer Name", PrinterShare)
  PrinterString	= "rundll32 printui.dll,PrintUIEntry " & AddOrDelete & " /c" & ComputerName & " /n" & PrinterServer & "" & PrinterShare
  
  '********************************************************************************
  '* Start SPOOLER Service                                                        *
  '********************************************************************************
  Set objService	= objComputer.Get("Win32_Service='Spooler'")
  Result		= objService.StartService()
  
  If  ADResult	= vbYes then
  '   ********************************************************************************
  '   * Check to see if the printer exists                                           *
  '   ********************************************************************************
      Set colPrinters = objServer.ExecQuery("Select * from Win32_Printer Where Name = '" & PrinterShare & "'")
      For Each objPrinter in colPrinters
          If  objPrinter.Name = PrinterShare Then
  '           ********************************************************************************
  '           * Printer was Found                                                            *
  '           ********************************************************************************
              Result	= objShell.Run(PrinterString,,True)
              If Result 	<> 0 Then MsgBox "There was an error executing the command.  The return code is: " & Result
              DefResult	= MsgBox("Default Printer?  'YES' or 'NO'", vbQuestion + vbyesNo, "Default Printer?")
              If  DefResult = vbYes then
  '               ********************************************************************************
  '               * Get list of SID's for remote machine and Set their Default Printer           *
  '               ********************************************************************************
                  Set objReg	= GetObject("winmgmts:" & ComputerName & "rootdefault:StdRegProv")
                  objReg.EnumKey &H80000002, "SOFTWAREMicrosoftWindows NTCurrentVersionProfileList", colSIDs
                  For Each objSID In colSIDs
                      objReg.SetStringValue &H80000003, objSID & "SoftwareMicrosoftWindows NTCurrentVersionWindows", "Device", "" & PrinterServer & "" & PrinterShare & "," & "winspool,Ne00:"
                  Next
              End If
              MsgBox "Printer, " & PrinterServer & "" & PrinterShare & " was successfully INSTALLED on " & ComputerName & ".",vbOKOnly + vbInformation,"Printer INSTALLED"
              PrinterFlag	= 0
              Exit For
          End If
      Next
      If PrinterFlag <> 0 Then MsgBox "Printer, " & PrinterServer & "" & PrinterShare & " does not exist.",vbOKOnly + vbCritical,"Printer NOT Found"
  Else
  '   ********************************************************************************
  '   * Delete the Printer                                                           *
  '   ********************************************************************************
      Result = objShell.Run(PrinterString,,True)
      If Result <> 0 Then MsgBox "There was an error executing the command.  The return code is: " & Result
      MsgBox "Printer, " & PrinterServer & "" & PrinterShare & " was successfully DELETED on " & ComputerName & ".",vbOKOnly + vbInformation,"Printer DELETED"
  End If
  
  '********************************************************************************
  '* Stop SPOOLER Service                                                         *
  '********************************************************************************
  Result		= objService.StopService()
  
  '********************************************************************************
  '* Start SPOOLER Service                                                        *
  '********************************************************************************
  Result		= objService.StartService()
  
  Wscript.Quit 0
  

  • Moved by

    Monday, September 22, 2014 4:31 PM
    This is not «fix script for me» forum

• Remove From My Forums

• Question

• Hello All,

  I am very new to VBScript and am trying to work with an existing one that my organization has been using for a while. Unfortunately we’ve encountered the above error during a mass roll-out and cannot get the darn thing to run regardless of permissions of
  who is running it. The script is hit or miss as SOME workstations will allow it and others will not. We’re working in a Windows 7/XP mixed environment.

  The script is SUPPOSED to either DELETE or ADD a network printer for all users on a workstation. I know that an alternative is to use Group Policy in AD but that’s not an option here.

  Any ideas?

  Set objShell	= CreateObject("Wscript.Shell")
  Set objEnv	= objShell.Environment("Process")
  PrinterFlag	= 1
  
  '********************************************************************************
  '* Gather Information: Workstation Name, Printer Server, and Printer Name       *
  '********************************************************************************
  ADResult	= MsgBox("Click 'YES' to Add or 'NO' to Delete a printer.  Click 'CANCEL' to cancel the request", vbQuestion + vbyesNoCancel, "Add or Delete?")
  If ADResult	= vbYes    then AddOrDelete	= "/ga"
  If ADResult	= vbNo     then AddOrDelete	= "/gd"
  If ADResult	= vbCancel then Wscript.Quit Result
  
  ComputerName	= objEnv("ComputerName")
  ComputerName	= InputBox("Enter the Name of the Workstation you wish to Install the printer on.", "Workstation Name", ComputerName)
  Set objComputer = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & ComputerName & "rootcimv2")
  
  PrinterServer	= "PRINTER"
  PrinterServer	= InputBox("Enter the NAME of the Server that hosts the printer you wish to Install.", "Server Name", PrinterServer)
  Set objServer	= GetObject("winmgmts:" & "{impersonationLevel=impersonate}!" & PrinterServer & "rootcimv2")
  
  PrinterShare	= ""
  PrinterShare	= InputBox("Enter the NAME of the printer you wish to Install, (i.e. K0507).  The name is Case Sensitive.", "Printer Name", PrinterShare)
  PrinterString	= "rundll32 printui.dll,PrintUIEntry " & AddOrDelete & " /c" & ComputerName & " /n" & PrinterServer & "" & PrinterShare
  
  '********************************************************************************
  '* Start SPOOLER Service                                                        *
  '********************************************************************************
  Set objService	= objComputer.Get("Win32_Service='Spooler'")
  Result		= objService.StartService()
  
  If  ADResult	= vbYes then
  '   ********************************************************************************
  '   * Check to see if the printer exists                                           *
  '   ********************************************************************************
      Set colPrinters = objServer.ExecQuery("Select * from Win32_Printer Where Name = '" & PrinterShare & "'")
      For Each objPrinter in colPrinters
          If  objPrinter.Name = PrinterShare Then
  '           ********************************************************************************
  '           * Printer was Found                                                            *
  '           ********************************************************************************
              Result	= objShell.Run(PrinterString,,True)
              If Result 	<> 0 Then MsgBox "There was an error executing the command.  The return code is: " & Result
              DefResult	= MsgBox("Default Printer?  'YES' or 'NO'", vbQuestion + vbyesNo, "Default Printer?")
              If  DefResult = vbYes then
  '               ********************************************************************************
  '               * Get list of SID's for remote machine and Set their Default Printer           *
  '               ********************************************************************************
                  Set objReg	= GetObject("winmgmts:" & ComputerName & "rootdefault:StdRegProv")
                  objReg.EnumKey &H80000002, "SOFTWAREMicrosoftWindows NTCurrentVersionProfileList", colSIDs
                  For Each objSID In colSIDs
                      objReg.SetStringValue &H80000003, objSID & "SoftwareMicrosoftWindows NTCurrentVersionWindows", "Device", "" & PrinterServer & "" & PrinterShare & "," & "winspool,Ne00:"
                  Next
              End If
              MsgBox "Printer, " & PrinterServer & "" & PrinterShare & " was successfully INSTALLED on " & ComputerName & ".",vbOKOnly + vbInformation,"Printer INSTALLED"
              PrinterFlag	= 0
              Exit For
          End If
      Next
      If PrinterFlag <> 0 Then MsgBox "Printer, " & PrinterServer & "" & PrinterShare & " does not exist.",vbOKOnly + vbCritical,"Printer NOT Found"
  Else
  '   ********************************************************************************
  '   * Delete the Printer                                                           *
  '   ********************************************************************************
      Result = objShell.Run(PrinterString,,True)
      If Result <> 0 Then MsgBox "There was an error executing the command.  The return code is: " & Result
      MsgBox "Printer, " & PrinterServer & "" & PrinterShare & " was successfully DELETED on " & ComputerName & ".",vbOKOnly + vbInformation,"Printer DELETED"
  End If
  
  '********************************************************************************
  '* Stop SPOOLER Service                                                         *
  '********************************************************************************
  Result		= objService.StopService()
  
  '********************************************************************************
  '* Start SPOOLER Service                                                        *
  '********************************************************************************
  Result		= objService.StartService()
  
  Wscript.Quit 0
  

  • Moved by

    Monday, September 22, 2014 4:31 PM
    This is not «fix script for me» forum