Troubleshooting Code 800A01BD – Object doesn’t support this ACTION Introduction to Error Code 800A01BD This error code, 800A01BD usually occurs when you execute a VBScript. One of your commands is not valid. The method / property combination does not interact. A wild guess, you copied and pasted a .Property from one script to another. The Symptoms You Get  The script does not execute as you hoped, instead you get a WSH error message. The probable scenario is that you are attempting to use a WSH method or property that is inappropriate. The Cause of Error 800A01BDYour VBScript contains an illegal method, maybe a typing mistake, an extra letter or space. Note the Source: Is a VBScript runtime error. Beware using a .property from another object. The Solution Object doesn’t support this ACTIONCheck the syntax of your script, particularly the method that you have used. Look for clues, particularly in the Line: number. In my example Line 12 is at fault. However Char : 1 is a surprise as its actually the method about character 50. Incidentally, Source: reports a runtime error not a compilation error, this means you are looking not for a pure syntax problem, but a fault logic error. In the case of runtime errors, you can use this temporary work around. Add this statement just before the line which errors: On Error Resume Next. ‡ Example 1 of Script with error 800A01BDHere the problem is is the .UserProfile property. The objNetwork does not support this property, thus it cannot perform the required action. ‘ Start
‘ User.vbs
‘ 800A01BD Script to Echo the name of the current user
‘ Version 2.1 August 2010
‘ Guy Thomas https://computerperformance.co.uk Option Explicit
Dim objNetwork, objFSO
Dim strName ‘ String Variables here Set ObjNetwork = CreateObject("Wscript.Network")
Wscript.Echo objNetwork.UserName & objNetwork.UserProfile Wscript.Quit ‘ End of Guy’s Error 800A01BD script
Another SolutionOne solution would be try a completely method, for example ‘winmgmts’ On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkConnection",,48) For Each objItem in colItems 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? 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
About The Author
ComputerPerfomance.co.uk uses cookies. More info.
| 
