Code 80072030 - There is no such object on the server
Troubleshooting Code 80072030 - There is no such object on the server
A wild guess, there is a mistake in the reference to your OU. However, to hedge my bets, it could be any
Active Directory object that causes the error 80072030 : 'There is no such object on the server'
Introduction to Error Code 80072030
This is an easy error code to troubleshoot. Code 8007xxxx indicates a
problem with Windows, or Active Directory. For example, you are trying create
a child object inside an OU, but that parent OU does not exist.
The Symptoms You Get 80072030
The script does not execute as you
hoped, instead you get a WSH error message.
One possibility is that you are trying to create an Active Directory object but there is no parent
container, example misspelled OU.
The Cause of Code 80072030
Check Active Directory User's and Computers, perhaps there is no such
parent OU, therefore you cannot create the child OU.
‡
The Solutions
Use Active Directory Users and Computers to check that the OU exists. Create the
parent container object so that the
new child object will have a 'home'. Note: The error is in Line 5. In
the case of runtime errors you can use this work around. Add this line:
On Error Resume Next.
The OU specified by strContainer is mis-spelt, or the comma is missing. Such errors are common in scripts with very long Active Directory paths. strContainer = "OU=Cowbridge ,"
' Set AccountControl.vbs ' Example VBScript to enable user accounts in a named OU ' Author Guy Thomas http://computerperformance.co.uk/ ' Version 1.7 - March 21st 2010 '
----------------------------------------------------' Option Explicit Dim objOU, objUser, objRootDSE Dim strContainer, strLastUser, strDNSDomain, intCounter, intAccValue Set objRootDSE
= GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("DefaultNamingContext") strContainer = "OU=Cowbridge ," intAccValue = 512 strContainer = strContainer & strDNSDomain set objOU
=GetObject("LDAP://" & strContainer ) intCounter = 0 For each objUser in objOU If objUser.class="user" then objUser.Put "userAccountControl", intAccValue objUser.SetInfo
intCounter = intCounter +1 strLastUser = objUser.Get ("name") End if next WScript.Echo intCounter & " Accounts Enabled. Value " _ & intAccValue WScript.Quit
' End of VBScript Example
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.
The extra features you get in your eBook
include, more pages full of detailed examples. Also, ten 'how to...'
sections, with screen shots showing which menus to use. Go for Guy's
eBook - and get a printable version with copy enabled and no expiry date.
Thus utility makes it easy to check the health of a router or firewall. Check the real-time performance and availability statistics for any device
on your network.
