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 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
Try
a different solution, download SolarWinds ipMonitor
Here is my thinking,
ipMonitor will give you valuable data about your network and servers.
This extra information just may unlock the solution to your error code.
One more thing, sometimes when troubleshooting you go around in circles;
therefore if you try a different, but related approach, you may just crack the
problem.
Free Download
of SolarWinds ipMonitor
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.