Computer Performance, Logon Scripts

Code Error 800A01BD - Object doesn't  support this ACTION

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 Code: 800A01BD Object doesn't support this action

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 800A01BD

Your 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 ACTION

Check 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 800A01BD

Here 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 2004
' Guy Thomas http://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 Solution

One 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

 


Computer Training Software - Recommended Training VideosGuy Thomas recommends Computer Training Software.  Their topics and material are ideal for getting you started with VBScript.  The videos are easy to follow and you can control the pace.  Try their free demo material and then see if you want to buy the full package. See more about VB Script Training CD.


Do you have a good example of this error?  If so, then email me I will publish it with a credit to you:

Do you need extra help?

For interpreting the WSH messages check Diagnose 800 errors.

For general advice try my 7 Troubleshooting techniques

 

 *


Google

WebComputerperformance.co.uk

GFi Events Manager

Guy Recommends: GFi EventsManager

Here is a solution to monitor, manage and archive thousands of events that are generated by devices across your entire network.  Get your free evaluation copy of GFI EventsManager.

 

Home Copyright © 1999-2008 Computer Performance LTD All rights reserved

Please report a broken link, or an error.