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

Симптомы Ошибка 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

• Remove From My Forums

• Question

• Hi All,

  i tried move a folder YYYYmm format using below VBScript, move to destination same folder directory, YYYYyyyyMM. However, command prompt shown me Permission Denied, Error Code: 800A0046.

  server Date time format: mm/DD/yyyy, i use VBscript to twist to format DD/MM/yyyy to match folder.

  CDATE(currDay+ «/»  + currMonth + «/» + CurrYYYY)

  'How to use:
  ' type "archiver D:root source folder" in command line eg: D:Testarchiverarchiver.vbs "D:Testarchiver"
  
  DIM strLogFile
  Const ForAppending = 8
  'Wscript.StdOut.WriteBlanklines 100
  Set FSO = CreateObject("Scripting.FileSystemObject")
  
  strLogFile=WScript.Arguments(0) &"LogARCHIVER_Log_" & Year(Date) & Month(Date) & Day(Date) & ".txt"
  
  'Log folder not exists then create new folder
  IF NOT FSO.FolderExists(WScript.Arguments(0) &"Log") THEN
  		FSO.CreateFolder WScript.Arguments(0) & "Log"
  END IF
  
  Set objLogFile = FSO.OpenTextFile(strLogFile, ForAppending, True)
  
  objLogfile.WriteLine NOW & ">> ------------ ARCHIVER BEGIN ------------------"
  objLogfile.WriteLine ""
  objLogfile.WriteLine Now & ">> Root Folder: " & WScript.Arguments(0)
  objLogfile.WriteLine ""
  archiver(FSO.GetFolder(WScript.Arguments(0)))
  objLogfile.WriteLine NOW & ">> ------------ ARCHIVER END ------------------"
  objLogfile.WriteLine ""
  objLogFile.Close 
  
  
  Sub archiver(Folder)
  
  	DIM year_
  	DIM month_
  	Dim dt
  	dt=now
  	
  	'output format: yyyymmddHHnn
  	currMonth=Cstr(month(dt)) 	'current Month
  	currDay=Cstr(day(dt)) 		'current day
  	CurrYYYY=Cstr(year(dt)) 	'current Year
  	'wscript.echo currMonth
  	'wscript.echo currDay
  	'wscript.echo CurrYYYY	
  	
  	archiveMonth = -6
  	'Set myLog = objFSO.OpenTextFile(destinationPath, For_Writing, True)
          For Each Subfolder in Folder.SubFolders		
  		IF LEN(subfolder.Name) = 8 AND ISNUMERIC(subfolder.Name) THEN
  			year_ = MID(subfolder.Name,1,4)
  			month_ = MID(subfolder.Name,5,2)
  			
  
  			objLogfile.WriteLine "Process Checking MM-DD-YY Now......"
  			'objLogfile.WriteLine FormatDateTime(CDATE("01/" + month + "/" + year),2)
  			'IF IsDate(CDATE("01/" + month + "/" + year)) AND DateDiff("m", Date, "01/" + month + "/" + year) < archiveMonth  THEN
  			IF IsDate(CDATE("01/" + month_ + "/" + year_)) AND DateDiff("m", CDATE(currDay+ "/"  + currMonth + "/" + CurrYYYY), "01/" + month_ + "/" + year_) <= archiveMonth  THEN
  			
  				objLogfile.WriteLine archiveMonth '-6
  				objLogfile.WriteLine IsDate(CDATE("01/" + month_ + "/" + year_)) 'True
  				
  				objLogfile.WriteLine NOW & ">> Processing >> " + Subfolder.Name
  				destinationPath = year_ 'WScript.Arguments(0) + " " + year
  				'Year folder not exists then create new folder
  				IF NOT FSO.FolderExists(destinationPath) THEN
  					FSO.CreateFolder destinationPath
  					
  				END IF
  		
  				IF FSO.FolderExists(destinationPath) THEN
  					destinationPath = destinationPath + "" + year_ + month_
  					IF FSO.FolderExists(destinationPath) THEN
  						objLogfile.WriteLine NOW & ">> Moving folder " + Subfolder.Name + " to destination: " + destinationPath
  						Subfolder.Move destinationPath + "" + Subfolder.Name
  					ELSE
  						'Year + Month folder not exists then create new folder
  						FSO.CreateFolder destinationPath
  						IF FSO.FolderExists(destinationPath) THEN
  							objLogfile.WriteLine NOW & ">> Moving folder " + Subfolder.Name + " to destination: " + destinationPath
  							Subfolder.Move destinationPath + "" + Subfolder.Name
  						ELSE
  							objLogfile.WriteLine NOW & ">> ** ERROR: Unable to create folder: " + destinationPath	
  						END IF
  					END IF
  				ELSE
  					objLogfile.WriteLine NOW & ">> ** ERROR: Unable to create folder: " + destinationPath
  				END IF
  				'Wscript.StdOut.WriteBlanklines 1
  				'objLogfile.WriteLine ""
  
  			END IF
  		END IF
          Next
  End Sub

  Error Message

  Script: D:….Archivedarchiver.vbs

  Line: 71

  Char: 7

  Error Code: Permission Denied

  Code: 800A0046

  Source Code: Microsoft VBScript runtime error

  • Moved by

    Wednesday, January 2, 2019 3:18 PM
    This is not «fix/debug/rewrite my script for me» forum

• Remove From My Forums

• Question

• Hi All,

  i tried move a folder YYYYmm format using below VBScript, move to destination same folder directory, YYYYyyyyMM. However, command prompt shown me Permission Denied, Error Code: 800A0046.

  server Date time format: mm/DD/yyyy, i use VBscript to twist to format DD/MM/yyyy to match folder.

  CDATE(currDay+ «/»  + currMonth + «/» + CurrYYYY)

  'How to use:
  ' type "archiver D:root source folder" in command line eg: D:Testarchiverarchiver.vbs "D:Testarchiver"
  
  DIM strLogFile
  Const ForAppending = 8
  'Wscript.StdOut.WriteBlanklines 100
  Set FSO = CreateObject("Scripting.FileSystemObject")
  
  strLogFile=WScript.Arguments(0) &"LogARCHIVER_Log_" & Year(Date) & Month(Date) & Day(Date) & ".txt"
  
  'Log folder not exists then create new folder
  IF NOT FSO.FolderExists(WScript.Arguments(0) &"Log") THEN
  		FSO.CreateFolder WScript.Arguments(0) & "Log"
  END IF
  
  Set objLogFile = FSO.OpenTextFile(strLogFile, ForAppending, True)
  
  objLogfile.WriteLine NOW & ">> ------------ ARCHIVER BEGIN ------------------"
  objLogfile.WriteLine ""
  objLogfile.WriteLine Now & ">> Root Folder: " & WScript.Arguments(0)
  objLogfile.WriteLine ""
  archiver(FSO.GetFolder(WScript.Arguments(0)))
  objLogfile.WriteLine NOW & ">> ------------ ARCHIVER END ------------------"
  objLogfile.WriteLine ""
  objLogFile.Close 
  
  
  Sub archiver(Folder)
  
  	DIM year_
  	DIM month_
  	Dim dt
  	dt=now
  	
  	'output format: yyyymmddHHnn
  	currMonth=Cstr(month(dt)) 	'current Month
  	currDay=Cstr(day(dt)) 		'current day
  	CurrYYYY=Cstr(year(dt)) 	'current Year
  	'wscript.echo currMonth
  	'wscript.echo currDay
  	'wscript.echo CurrYYYY	
  	
  	archiveMonth = -6
  	'Set myLog = objFSO.OpenTextFile(destinationPath, For_Writing, True)
          For Each Subfolder in Folder.SubFolders		
  		IF LEN(subfolder.Name) = 8 AND ISNUMERIC(subfolder.Name) THEN
  			year_ = MID(subfolder.Name,1,4)
  			month_ = MID(subfolder.Name,5,2)
  			
  
  			objLogfile.WriteLine "Process Checking MM-DD-YY Now......"
  			'objLogfile.WriteLine FormatDateTime(CDATE("01/" + month + "/" + year),2)
  			'IF IsDate(CDATE("01/" + month + "/" + year)) AND DateDiff("m", Date, "01/" + month + "/" + year) < archiveMonth  THEN
  			IF IsDate(CDATE("01/" + month_ + "/" + year_)) AND DateDiff("m", CDATE(currDay+ "/"  + currMonth + "/" + CurrYYYY), "01/" + month_ + "/" + year_) <= archiveMonth  THEN
  			
  				objLogfile.WriteLine archiveMonth '-6
  				objLogfile.WriteLine IsDate(CDATE("01/" + month_ + "/" + year_)) 'True
  				
  				objLogfile.WriteLine NOW & ">> Processing >> " + Subfolder.Name
  				destinationPath = year_ 'WScript.Arguments(0) + " " + year
  				'Year folder not exists then create new folder
  				IF NOT FSO.FolderExists(destinationPath) THEN
  					FSO.CreateFolder destinationPath
  					
  				END IF
  		
  				IF FSO.FolderExists(destinationPath) THEN
  					destinationPath = destinationPath + "" + year_ + month_
  					IF FSO.FolderExists(destinationPath) THEN
  						objLogfile.WriteLine NOW & ">> Moving folder " + Subfolder.Name + " to destination: " + destinationPath
  						Subfolder.Move destinationPath + "" + Subfolder.Name
  					ELSE
  						'Year + Month folder not exists then create new folder
  						FSO.CreateFolder destinationPath
  						IF FSO.FolderExists(destinationPath) THEN
  							objLogfile.WriteLine NOW & ">> Moving folder " + Subfolder.Name + " to destination: " + destinationPath
  							Subfolder.Move destinationPath + "" + Subfolder.Name
  						ELSE
  							objLogfile.WriteLine NOW & ">> ** ERROR: Unable to create folder: " + destinationPath	
  						END IF
  					END IF
  				ELSE
  					objLogfile.WriteLine NOW & ">> ** ERROR: Unable to create folder: " + destinationPath
  				END IF
  				'Wscript.StdOut.WriteBlanklines 1
  				'objLogfile.WriteLine ""
  
  			END IF
  		END IF
          Next
  End Sub

  Error Message

  Script: D:….Archivedarchiver.vbs

  Line: 71

  Char: 7

  Error Code: Permission Denied

  Code: 800A0046

  Source Code: Microsoft VBScript runtime error

  • Moved by

    Wednesday, January 2, 2019 3:18 PM
    This is not «fix/debug/rewrite my script for me» forum