Код 800a0046 ошибка выполнения microsoft vbscript

• 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

В этой статье представлена ошибка с номером Ошибка 800A0046, известная как Ошибка программы очистки установщика Windows 800A0046, описанная как Ошибка 800A0046: Возникла ошибка в приложении Windows Installer CleanUp Utility. Приложение будет закрыто. Приносим свои извинения за неудобства.

О программе Runtime Ошибка 800A0046

Время выполнения Ошибка 800A0046 происходит, когда Windows Installer CleanUp Utility дает сбой или падает во время запуска, отсюда и название. Это не обязательно означает, что код был каким-то образом поврежден, просто он не сработал во время выполнения. Такая ошибка появляется на экране в виде раздражающего уведомления, если ее не устранить. Вот симптомы, причины и способы устранения проблемы.

Определения (Бета)

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

• Установщик — ОБЩАЯ ПОДДЕРЖКА УСТАНОВЩИКА НЕ ВОСПРИНИМАЕТСЯ
• Утилита . Утилита — это системное программное обеспечение, предназначенное для анализа, настройки и оптимизировать или поддерживать компьютер.
• Windows — ОБЩАЯ ПОДДЕРЖКА WINDOWS НЕ В ТЕМЕ.
• Установщик Windows — Установщик Microsoft Windows является услуга установки и настройки, предоставляемая с Windows

Следуйте за нами:

Последнее обновление:

10/11/22 05:47 : Пользователь Windows 10 проголосовал за то, что метод восстановления 2 работает для него.

Этот инструмент восстановления может устранить такие распространенные проблемы компьютера, как синие экраны, сбои и замораживание, отсутствующие DLL-файлы, а также устранить повреждения от вредоносных программ/вирусов и многое другое путем замены поврежденных и отсутствующих системных файлов.

ШАГ 1:

Нажмите здесь, чтобы скачать и установите средство восстановления Windows.

ШАГ 2:

Нажмите на Start Scan и позвольте ему проанализировать ваше устройство.

ШАГ 3:

Нажмите на Repair All, чтобы устранить все обнаруженные проблемы.

СКАЧАТЬ СЕЙЧАС

Совместимость

Требования

1 Ghz CPU, 512 MB RAM, 40 GB HDD
Эта загрузка предлагает неограниченное бесплатное сканирование ПК с Windows. Полное восстановление системы начинается от $19,95.

ID статьи: ACX012844RU

Применяется к: Windows 10, Windows 8.1, Windows 7, Windows Vista, Windows XP, Windows 2000

Совет по увеличению скорости #63

Как удалить лишние панели инструментов:

Удаление дополнительных панелей инструментов с панели задач Windows и интернет-браузера может повысить скорость вашего компьютера. Эти дополнительные панели инструментов часто устанавливаются вместе при установке плагинов и программного обеспечения. И в большинстве случаев они перекрывают уже имеющуюся у вас функцию.

Нажмите здесь, чтобы узнать о другом способе ускорения работы ПК под управлением Windows

• Remove From My Forums

• Question

• User291970639 posted

   Hello I am new on the forum.

  I have one scrip to search a local Word Template and if the template exist then delete the template.

  I have this script:

  ‘Search  MyTemplate.Dot
  Dim Path
  Set objWord = CreateObject(«Word.Application»)
  objWord.Visible = False

  Set Fso = CreateObject(«Scripting.FileSystemObject»)
  Set objSelection = objWord.Selection
     Set objOptions = objWord.Options
     Const wdStartupPath = 8
     Path= objOptions.DefaultFilePath(wdStartupPath) & «MyTemplate.Dot»
     MsgBox «The route is : » & Path
  objWord.Quit

  Set Fso = CreateObject(«Scripting.FileSystemObject»)

  ‘If MyTemplate.Dot exist…

  If (Fso.FileExists(Path) ) Then

  MsgBox  «YES

  MyTemplate.Dot
  EXIST BUT IF I DONT DISPLAY A MSGBOX LIKE THIS ONE THE SCRIPT MAKE ERROR 800A0046″
         fso.DeleteFile(Path)
  Else
         MsgBox «DONT EXIST MyTemplate.Dot«

  End If

  The really strange part is the MsgBox… if I dont make a MsgBox BEFORE fso.DeleteFile I get one error…

  
  What have to do MsgBox with 800A0046 error??

<!— /* Font Definitions */ @font-face {font-family:Wingdings; panose-1:5 0 0 0 0 0 0 0 0 0; mso-font-charset:2; mso-generic-font-family:auto; mso-font-pitch:variable; mso-font-signature:0 268435456 0 0 -2147483648 0;} /* Style Definitions */ p.MsoNormal,
li.MsoNormal, div.MsoNormal {mso-style-parent:»»; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:12.0pt; font-family:»Times New Roman»; mso-fareast-font-family:»Times New Roman»;} @page Section1 {size:595.3pt
841.9pt; margin:70.85pt 70.85pt 70.85pt 70.85pt; mso-header-margin:35.4pt; mso-footer-margin:35.4pt; mso-paper-source:0;} div.Section1 {page:Section1;} /* List Definitions */ @list l0 {mso-list-id:2068841666; mso-list-type:hybrid; mso-list-template-ids:-2012814198
67895297 67895299 67895301 67895297 67895299 67895301 67895297 67895299 67895301;} @list l0:level1 {mso-level-number-format:bullet; mso-level-text:; mso-level-tab-stop:36.0pt; mso-level-number-position:left; text-indent:-18.0pt; font-family:Symbol;} ol {margin-bottom:0cm;}
ul {margin-bottom:0cm;} —>

Hi everybody !

I hope someone will bring me some help because I really need it.

The facts :

We integrated a couple of Seven-based desktops in our domain two months ago.

We use GPOs to map network drives at logon for each user in our organisation. To ensure the network drives map correctly on XP and Seven, we followed the Microsoft guidelines and introduced a small VBScript called «launchapp.wsf».
This script encapsulates each «net» command in a scheduled task if the Operating System is Vista or higher and executes it directly if the OS is XP. This script works fine on Seven but generate error messages like this one during the logon on XP
:

Script : the path of the script file

Error : Permission denied

Code : 800A0046

Source : Microsoft VBScript runtime error

What we already tried :

• We followed and applied all Microsoft issues about the topic ()
• We thought it was related to the fact the current user wasn’t already logged on as the script executes. So we delayed the execution of the script and then gave all users “Read & Write”, “List folder content”
  and “Read” permissions on the script file.
• Then we remarked that the problem do not appear on every XP-desktops in the organisation and finally we thing that the problem could be a hardware problem.

I know that this is a known problem and that several people have to face it. So I would be grateful if somebody could give me further explanations about the situation I described.

 Here is the VBScript file content :

<job>
<script language="VBScript">
'---------------------------------------------------------
' This sample launches the application as interactive user.
'---------------------------------------------------------
const TriggerTypeRegistration = 7 ' A constant that specifies a registration trigger.
const ActionTypeExecutable = 0 ' A constant that specifies an executable action.
const FlagTaskCreate = 2 ' A constant that specifies the flag in RegisterTaskDefinition.
const LogonTypeInteractive = 3 ' A constant that specifies an executable action.

If WScript.Arguments.Length <> 2 Then

  WScript.Echo "Usage: cscript launchapp.wsf <AppPath>"
  WScript.Quit
  
End If

strAppPath = WScript.Arguments(0) ' This is the script to run.
strTaskName = WScript.Arguments(1) ' This is the name of the task to run.

'********************************************************
' Is this Vista or XP?
' Begin the section added by Jarvis
'********************************************************
' This section that determines OS version is a modified version of code
' originally posted at the following web page:
' http://blog.eqinox.net/jed/archive/2006/12/05/1270.aspx
'
Dim vistaClient
Dim wshShell

Set wshShell = CreateObject("WScript.Shell")
computer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & computer & "rootcimv2")
Set objOSList = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")

For Each os In objOSList

  BuildNumber = OS.BuildNumber
  
  If BuildNumber < 6000 Then
  
    NotVistaClient = True
    
  End If
Next

If NotVistaClient = True Then

  ' Be CAREFULL !!! Sometime, users are not well autheticated ! If you connect to a network share (\ServerShare), be
  ' sure that the group "Everyone" have read rights on the share !
  
  ' Run the script
  wshShell.Run(strAppPath), 0, True

  ' =======================================
  ' OLD METHOD, NOW WE DONT NEED IT ANYMORE
  ' =======================================
  
  'Dim runReturn
  'runReturn = -1
  'Dim numberOfTry
  'numberOfTry = 10
  'Dim sleepingMillisec
  'sleepingMillisec = 5000
  'Dim ok
  'ok = False
  '
  ' Try many times to run the script. Sometimes, it gets an "Access denied" message. So let's try and sleep
  'Do While numberOfTry > 0
  '
  '  runReturn = wshShell.Run(strAppPath, 0, True) ' Run the logon script normally
  '  
  '  If runReturn = 0 Then
  '
  '    numberOfTry = 0
  '    ok = True
  '    
  '  Else
  '  
  '    numberOfTry = numberOfTry - 1
  '    WScript.Sleep(sleepingMillisec)
  '  
  '  End If
  '  
  'Loop
  '
  'If ok = False Then
  '
  '  WScript.Echo "launchapp.wsf --> maximum try reached for : " & strAppPath
  '
  '  End If

  WScript.Quit
  
Else ' Run the logon script using launchapp.wsf
  '********************************************************
  ' Create the TaskService object.
  '********************************************************
  
  Set service = CreateObject("Schedule.Service")
  call service.Connect()
  strTaskName = "Launch Logon Script " & strTaskName & " as Interactive User"
  
  '********************************************************
  ' Get a folder to create a task definition in.
  '********************************************************
  
  Dim rootFolder
  Set rootFolder = service.GetFolder("")
  
  'Delete the task if already present
  On Error Resume Next
  call rootFolder.DeleteTask(strTaskName, 0)
  Err.Clear
  
  '********************************************************
  ' Create the new task
  '********************************************************
  
  Dim taskDefinition
  Set taskDefinition = service.NewTask(0)
  
  '********************************************************
  ' Create a registration trigger.
  '********************************************************
  
  Dim triggers
  Set triggers = taskDefinition.Triggers
  Dim trigger
  Set trigger = triggers.Create(TriggerTypeRegistration)
  
  '********************************************************
  ' Set the task settings.
  '********************************************************
  
  Dim settings
  set settings = taskDefinition.Settings
  settings.StopIfGoingOnBatteries = false
  settings.DisallowStartIfOnBatteries = false
  
  '***********************************************************
  ' Create the action for the task to execute.
  '***********************************************************
  ' Add an action to the task. The action executes the app.
  
  Dim Action
  Set Action = taskDefinition.Actions.Create( ActionTypeExecutable )
  Action.Path = strAppPath
  
  '***********************************************************
  ' Register (create) the task.
  '***********************************************************
  
  call rootFolder.RegisterTaskDefinition(strTaskName, taskDefinition, FlagTaskCreate,,, LogonTypeInteractive)
  
End If
</script>
</job>

Best regards.

—————-

Gilles Rudaz

• Moved by

  Tuesday, September 7, 2010 2:16 PM
  (From:Application Compatibility for Windows Development)