Jump to content

Exchange Script: Globales Adressbuch


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hi,

 

Ich habe folgendes Problem:

 

Ich resete die Exchange Postfächer auf dem Backup Exchange Server in regelmäßigen abständen.

(Die werden per exmerge immer weiter befüllt)

 

Das funktioniert auch alles wunderbar. Das einzige Problem ist das nach dem reset die Backup User wieder in der Globalen Adressliste auftauchen.

 

Wie kann ich das zusätzlich zum Mailbox anlegen mitgeben?

 

Händisch ist das über "Benutzer und Computer/Eigenschaften des benutzers/Exchange erweitert/Nicht in Exchange-Adresslisten anzeigen" zu reparieren.

 

Nur Scriptmäßig kann ich nichts finden.

 

Vielen Dank

 

PS: Mailbox anlege Script:

 

'------------- Config ----------------

strDomainName = "DC=---,DC=--"
strDCName = "---"
OU = "---"
strExchOrg = "---"
strExchSG = "---"
strDefaultHomeMDBUrl = "CN=Postfachspeicher (" & strDCName & "),CN=" & strExchSG & "," & _
	"CN=InformationStore,CN=" & strDCName & ",CN=Servers," & _
	"CN=" & strExchOrg & "," & _
	"CN=Administrative Groups,CN=---,CN=Microsoft Exchange,CN=Services,CN=Configuration," & strDomainName
mylogfilepath = "C:\test\log\"
mylogfileextension = ".log"
mylogfilename = "cleanuser"
'----------- Datums Berechnung -----------

heute = date()
daynumber = weekday(heute)

cleanuserfile = "cleanuser_" & daynumber & ".txt"


'-------------- LOG FILES ---------------
mylogfile = mylogfilepath & mylogfilename & "_" & daynumber & mylogfileextension
Set MyFiles = CreateObject("Scripting.FileSystemObject")


If MyFiles.FileExists(mylogfile) Then MyFiles.DeleteFile(mylogfile)
MyFiles.CreateTextFile(mylogfile)

set logfile = MyFiles.OpenTextFile(mylogfile,8)

logfile.write("Benutze " & cleanuserfile & " am " & heute &VbCrLf & "----------------------------------" & VbCrLf)


' -------------- User des Tages Durchgehen -------------------

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.OpenTextFile(cleanuserfile, 1)
Do Until objFile.AtEndOfStream
   	strUser = objFile.ReadLine

logfile.write("Bearbeite " & strUser & VbCrLf)

' ------------------- DELETE SCRIPT ANFANG-------------------------------
strUserName = "/cn=" & strUser & ",ou=" & OU & ",dc=logim,dc=at" 
strQuery = "LDAP://" & strDCName & strUserName

Set theUser = GetObject(strQuery) 
if (theUser.HomeMDB = "") then
	logfile.write(strUser & " hat keine Mailbox -> Nothing to Do" & VbCrLf)
else
	theUser.DeleteMailbox
  		theUser.SetInfo
  		logfile.write("Mailbox von " & strUser & " gelöscht" & VbCrLf)
end if

' ------------------- DELETE SCRIPT ENDE -------------------------------

' -------------------  ADD SCRIPT ANFANG --------------------------------------


if (theUser.HomeMDB <> "") then
	logfile.write(strUser & " Hat bereits eine Mailbox" & VbCrLf)
else
	theUser.CreateMailbox strDefaultHomeMDBUrl
  		theUser.SetInfo
  		logfile.write("Mailbox fuer " & strUser & " erstellt" & VbCrLf)
end if
logfile.write("----------- End of User -------------" & VbCrLf)
' -------------------  ADD SCRIPT ENDE --------------------------------------
Loop
logfile.write("Finisched" & VbCrLf)
logfile.close

Link zu diesem Kommentar

Naja es geht nur darum das die "Echten" User per Exmerge auf den Backup Server Gesichert werden. Da das täglich läuft und eigentlich gelöschte mails ja am backupserver verbleiben, wächst dort die datenmenge ins unendliche.

 

Deshalb werden die Backup User regelmäßig gelöscht. Die Daten kommen ja bei der nächtlichen Sicherung wieder, aber nur die Aktuellen und der ganze alte mist ist weg.

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...