Active Directory

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Active Directory

Logged in as: Guest

arrSession:exec spGetSession 2,2,36836

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Active Directory
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Active Directory - 8/9/2006 12:22:49 AM

centrino

Posts: 16
Score: 0
Joined: 9/4/2005
Status: offline

Hello

I have a problem with the Active Directory. I will add multiple email addresses. My code works, but when I try to remove one addresse, I get the follow error message: "The specified directory service attribute or value already exists." (Code: 8007200D)

Thanks!

Post #: 1

RE: Active Directory - 8/9/2006 12:37:24 AM

Snipah

Posts: 1343
Score: 6
Joined: 11/1/2004
From: Netherlands
Status: offline

I think we need to see more of your script, this part only show where your set the info, not where you attempt to remove it...

pluc seeing a script in its context will also contribute to a better problem solving

_____________________________

For more information, please see the "Read me First" topic.

http://www.visualbasicscript.com

(in reply to centrino)

Post #: 2

RE: Active Directory - 8/9/2006 6:55:55 PM

centrino

Posts: 16
Score: 0
Joined: 9/4/2005
Status: offline

'Global variables
Dim Container
Dim OutPutFile
Dim FileSystem
Dim User
'Initialize global variables
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
Set OutPutFile = FileSystem.CreateTextFile("neu2.txt", True)
'Set Container=GetObject("[link=http://www.visualbasicscript.com/ldap://OU=Domain]LDAP://OU=Domain[/link] Users,DC=testing,DC=local")
Set adsRootDSE = GetObject("[link=http://www.visualbasicscript.com/ldap://RootDSE]LDAP://RootDSE[/link]")
strDomainPath = adsRootDSE.Get("DefaultNamingContext")
'Set adsDefaultDomain = GetObject("LDAP://" & strDomainPath)
Set Container = GetObject("LDAP://" & strDomainPath)
i = 0
n = 0
'Enumerate Container
EnumerateUsers Container
'Clean up
OutPutFile.Close
Set FileSystem = Nothing
Set Container = Nothing
'Say Finished when your done
WScript.Echo "Finished"
WScript.Quit(0)
'List all Users
Sub EnumerateUsers(Cont)
Dim User
'Go through all Users and select them
For Each User In Cont
Select Case LCase(User.Class)
'If you find Users
Case "user"
'Select all proxyAddresses
Dim Alias
If Not IsEmpty(User.proxyAddresses) Then
vProxyAddresses = User.proxyAddresses
bProxyAddresses = User.proxyAddresses
For Each Alias in vProxyAddresses
if 1 = (inStr(Alias, "GWISE:Exchange.First Administrative Group.")) then
n = n - 1
'User.Put "proxyaddresses", "GWISE:Exchange1234"
'User.SetInfo
'WScript.Echo "1"
else
if 1 = (inStr(Alias, "smtp:")) then
strKlein = LCase(Alias)
'User.proxyaddresses(i) = strKlein
'WScript.Echo bProxyAddresses(n)
bProxyAddresses(n) = strKlein
'User.Put "proxyaddresses", vProxyAddresses(i)
'User.SetInfo
'WScript.Echo "2" & vProxyAddresses(i)
OutPutFile.WriteLine "alias: " & strKlein
else
if 1 = (inStr(Alias, "SMTP:")) then
strKlein = LCase(Alias)
neu = replace(strKlein, "smtp", "SMTP")
bProxyAddresses(n) = neu
'User.proxyaddresses(i) = neu
'User.Put "proxyaddresses", vProxyAddresses(i)
'WScript.Echo "3" & vProxyAddresses(i)
'User.SetInfo
OutPutFile.WriteLine "alias: " & neu
else
OutPutFile.WriteLine "alias: " & Alias
End If
End If
End If
'WScript.Echo Alias
i = i + 1
n = n + 1
Next
i = i - 1
n = n - 1
WScript.Echo bProxyAddresses(n)
n = n - 1
WScript.Echo bProxyAddresses(n)
n = n - 1
WScript.Echo bProxyAddresses(n)
User.proxyAddresses = bProxyAddresses
User.SetInfo
End If
'User.proxyAddresses = vProxyAddresses
'User.SetInfo
Case "organizationalunit" , "container"
EnumerateUsers User
End Select
i = 0
n = 0
Next
End Sub

(in reply to Snipah)