singe

Hallo hab es mit dem Script probiert das du mir per link gschickt hast.

 

Mein Code:

 

org="itnetworx.ch"

SG="Postfachspeicher(itxerhf01),CN=Erste Speichergruppe"

 

' bind to container, create user and set some (basic) settings

 

Set ou = GetObject("LDAP://OU=" + org + ", DC=itnetworx, DC=ch")

Set usr = ou.Create("user", "cn=JSmith")

usr.Put "samAccountName", "jsmith"

usr.givenName = "John"

usr.sn = "Smith"

usr.displayName = "John Smith"

usr.userPrincipalName = jsmith

usr.mail = JSmith

usr.SetInfo

 

'use CDOEXM to create mailbox, this is not possible with ADSI

'when using this script take care of the correct names !

 

Set objMailbox = usr

objMailbox.CreateMailbox ("LDAP://itxerhf01/CN=" + SG + ",CN=InformationStore,CN=itxerhf01,CN=Servers,Erste Administrative Gruppe,CN=Administrative Groups,CN=itnetworx,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=itnetworx,DC=ch")

 

'use IMailboxStore interface from CDOEXM to set Store Limits

 

objMailbox.EnableStoreDefaults = FALSE

objMailbox.StoreQuota = 10000

objMailbox.OverQuotaLimit = 12000

objMailbox.HardLimit = 15000

' set password and enable account

usr.setPassword "password"

usr.AccountDisabled = False

usr.SetInfo

wscript.echo "Finished!"

 

Jetzt erhalte ich die Fehlermeldung:

 

Line 6. Char 1,,, Ther is no such object on the server, Code 80072030

 

Besten Dank für Eure Hilfe

 

Lieber Gruss

Singe

Danke für deine schnelle Antwort. Wollte dieses Script benützen

aber erhalte immer eine Fehlermeldung.

 

Hier mein Script:

 

Dim fso, f, Zeile, Feld

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile ("user2.txt",1,0)

 

Do while not f.AtEndOfLine

Zeile = f.readLine

Feld = split(Zeile,",")

Benutzer = Feld(0)

Vorname = Feld(1)

Nachname = Feld(2)

Passwort = Feld(3)

Mail = Feld(4)

Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Mail)

Loop

f.Close

Wscript.Quit(0)

 

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort,Mail)

Dim ouo, b

Set ouo = GetObject("LDAP://CN=Users,DC=itnetworx,DC=ch")

Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)

Dim WshShell, ret

Set WshShell = WScript.CreateObject("WScript.Shell")

b.Put "sAMAccountName", Benutzer

b.Put "userPrincipalName", Benutzer & "@itnetworx.ch"

b.Put "mail", Mail & "@itnetworx.ch"

b.Put "profilePath", "\\itxerhf01\Daten\Test\profile\" & Benutzer

b.Put "homeDirectory", "\\itxerhf01\Daten\Test\home\" & Benutzer

b.Put "homeDrive", "U:"

b.SetInfo

 

'use CDOEXM to create mailbox, this is not possible with ADSI

'when using this script take care of the correct names !

 

Set objMailbox = b

objMailbox.CreateMailbox ("LDAP://itnetworx/CN=" + SG + ",CN=InformationStore,CN=itnetworx,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=itnetworx ASP,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=itnetworx,DC=ch")

 

'use IMailboxStore interface from CDOEXM to set Store Limits

 

objMailbox.EnableStoreDefaults = true

objMailbox.StoreQuota = 10000

objMailbox.OverQuotaLimit = 12000

objMailbox.HardLimit = 15000

 

' set password and enable account

 

 

 

b.SetPassword Passwort

b.AccountDisabled = true

b.SetInfo

WScript.Sleep(1000)

ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)

End Sub

 

Fehlermeldung.

Line 36, Char 1, Invalid Argument, ID no: c103071f Microsoft CDO Exchange Management

 

 

Ich weiss einfach nicht mehr weiter. Bitte um Hilfe. Besten Dank

 

Singe

Hallo zusammen

 

Ich habe folgendes Problem. Ich möchte mit vb Script auf meinem Exchange Server 2003 Postfächer anlegen. Kann mir jemand helfen. Wäre euch sehr dankbar.

 

Liebe Grüsse

Singe

Hallo zusammen super script konnte das heute wunderbar anwenden um 240 Benützer auf meinem Exchange anzulegen danke vielmals. Hat mir sehr viel arbeit erspart!

 

Jetzt habe ich eine weiter Frage: Wie kann ich die Mailboxen für den Exchange 2003 Server im gleichen Script mit aktivieren?

Hier mien Script in leicht abgeänderter Form.

 

Mein Code:

 

Dim fso, f, Zeile, Feld

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile ("user2.txt",1,0)

 

Do while not f.AtEndOfLine

Zeile = f.readLine

Feld = split(Zeile,",")

Benutzer = Feld(0)

Vorname = Feld(1)

Nachname = Feld(2)

Passwort = Feld(3)

Mail = Feld(4)

Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort,Mail)

Loop

f.Close

Wscript.Quit(0)

 

Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort,Mail)

Dim ouo, b

Set ouo = GetObject("LDAP://CN=Users,DC=itnetworx,DC=ch")

Set b = ouo.Create("user", "CN=" & Vorname & " " & Nachname)

Dim WshShell, ret

Set WshShell = WScript.CreateObject("WScript.Shell")

b.Put "sAMAccountName", Benutzer

b.Put "userPrincipalName", Benutzer & "@itnetworx.ch"

b.Put "mail", Mail & "@itnetworx.ch"

b.Put "profilePath", "\\itxerhf01\Daten\Test\profile\" & Benutzer

b.Put "homeDirectory", "\\itxerhf01\Daten\Test\home\" & Benutzer

b.Put "homeDrive", "U:"

b.SetInfo

 

Set objMailbox = b

objMailbox.CreateMailbox ("LDAP://MyNet-BE/CN=" + SG + ",CN=InformationStore,CN=MyNet-BE,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=MyNet ASP,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=MyNet,DC=com")

 

objMailbox.EnableStoreDefaults = true

objMailbox.StoreQuota = 10000

objMailbox.OverQuotaLimit = 12000

objMailbox.HardLimit = 15000

 

b.SetPassword Passwort

b.AccountDisabled = False

b.SetInfo

WScript.Sleep(1000)

ret = WshShell.Run ("verz.cmd " & Benutzer,0,1)

End Sub

 

Fehlermeldung:

 

Line 36, Char 1, Invalid Argument, Id no: c103071f Microsoft CDO Exchange Management, Code 80070057

 

 

Habe keine Schimmer wie ich das anstellen kann. Für Eure Hilfe wäre ich Euch sehr dankbar.

 

Gruss

 

Singe