Jump to content

frauke

Members
  • Gesamte Inhalte

    328
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von frauke

  1. Hallo,

     

    ich möchte einen neuen Benutzer anlegen und ihm gleichzeitig eine Mailbox auf unserem Exchange Server 2003 zuweisen.

    Die Anlage des Benutzers klappt, er bekommt auch eine Mailadresse, aber leider keine Mailbox.

    Die Methode CreateMailbox(LDAP...) klappt anscheinend nicht.

    Wir verwenden WSH und darin VBScript, um auf unserem Windows 2000 Server Benutzer anzulegen.

     

    Das Skript füge ich mal an. Den Teil für die Mailbox habe ich gar nicht drin, weil ich bis jetzt nix vernünftiges gefunden habe.

    Vielen Dank,

    Frauke

     

    '****************************************************************

    ' Dateiname: add.vbs - Benutzer und Gruppe hinzufügen

    '****************************************************************

     

    'Variablendeklarationen erforderlich

    Option Explicit

     

    'Variablen deklarieren

    Dim WshShell

    Dim WshNetwork

    Dim Fso

    Dim IE

     

    ' WshShell-Objekt und WshNetwork-Objekt erzeugen

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

    Set WshNetwork = WScript.CreateObject("WScript.Network")

    Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

    Set IE = WScript.CreateObject("InternetExplorer.Application")

     

     

    Dim strTLD

    strTLD = "TLD"

     

    Dim strDomain

    strdomain = "Domänenname"

     

    'Dim strGroup

    'strGroup = InputBox("Gruppe:", "Eingabe", "")

     

    Dim strCN

    strCN = "users"

     

    Dim strFirstname

    strFirstname = InputBox("Vorname:", "Eingabe", "Frauke")

     

    Dim strUser

    strUser = InputBox("Nachname:", "Eingabe", "Riekentest")

     

    Dim ShareServer

    ShareServer = "Server"

     

    DIm HomeDirServer

    HomeDirServer = "Server"

     

    Dim ShareName

    ShareName = "Users"

     

    Dim SharePath

    SharePath = "home"

     

    Dim Profile

    profile = "profile"

     

    Dim UserDrive

    userDrive = "H:"

     

    Dim Userprofile

    userprofile = "\\" & shareServer & "\" & profile & "\" & strUser &".pds"

     

    Dim workOU

    Set workOU = GetObject("LDAP://CN=" & strCN & ",DC=" & strDomain & ",DC=" & strTLD) ' Ich verbinde mich auf die Domäne

     

    Dim strAg

    strAg = InputBox("Arbeitsgruppe eingeben", "Eingabe", "")

     

    Dim strPwd

     

    Dim strPath

    Dim computer

    Dim fs

     

    'neuen Benutzer anlegen

    Dim oUser

    set oUser = workOU.Create("user", "CN=" & strUser)

    oUser.Put "sAMAccountName", strUser

    oUser.Put "userPrincipalName", strUser & "@" & strDomain & "." & strTLD

    oUser.Put "Description", strAg

    oUser.Put "givenName", strFirstName

    oUser.Put "sn", strUser

    oUser.Put "DisplayName", strUser

    oUser.Put "ProfilePath", userProfile

    oUser.Put "HomeDrive", userDrive

    oUser.Put "homedirectory", "\\" & HomeDirServer & "\users\" & strUser

    'homedirectory ist eine Eigenschaft, daher muss mit = gearbeitet werden.

    oUser.Put "scriptPath", strUser & ".cmd"

    oUser.setinfo

    strPwd = "nichts"

    oUser.SetPassword strPwd

    oUser.AccountDisabled = False

    oUser.setinfo 'Daten übertragen

     

    Dim grp

    Set grp = GetObject("WinNT://Domäne/Gruppe")

    grp.Add ("WinNT://Domäne/" & strUser)

     

    oUser.setinfo

     

    WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

     

    computer = "//Server"

     

    strPath = computer & "/users" & "/" & strUser

     

    WScript.Echo("Der Ordner " & strPath & " wurde angelegt")

     

    Set fs = fso.CreateFolder(strPath)

     

    WScript.Quit(0)

  2. Hallo,

    das geht mit WSH, Du schreibst ein Skript in VBS oder JS.

    Ich habe vor einiger Zeit mal eines geschrieben, was ich als Beispiel mitsende.

    Ist vielleicht anfangs etwas unübersichtlich, sind aber zur Hilfe einige Kommentare drin.

    Viel Glück.

     

    '****************************************************

    ' Dateiname: add.vbs - Benutzer und Gruppe hinzufügen

    ' '***************************************************

     

    'Variablendeklarationen erforderlich

    Option Explicit

     

    'Variablen deklarieren

    Dim WshShell

    Dim WshNetwork

    Dim Fso

    Dim IE

     

    ' WshShell-Objekt und WshNetwork-Objekt erzeugen

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

    Set WshNetwork = WScript.CreateObject("WScript.Network")

    Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

    Set IE = WScript.CreateObject("InternetExplorer.Application")

     

     

    Dim strTLD

    strTLD = "TLD"

     

    Dim strDomain

    strdomain = "Domänenname"

     

    'Dim strGroup

    'strGroup = InputBox("Gruppe:", "Eingabe", "")

     

    Dim strCN

    strCN = "users"

     

    Dim strFirstname

    strFirstname = InputBox("Vorname:", "Eingabe", "")

     

    Dim strUser

    strUser = InputBox("Nachname:", "Eingabe", "")

     

    Dim ShareServer

    ShareServer = "Server"

     

    DIm HomeDirServer

    HomeDirServer = "Server"

     

    Dim ShareName

    ShareName = "Users"

     

    Dim SharePath

    SharePath = "home"

     

    Dim Profile

    profile = "profile"

     

    Dim UserDrive

    userDrive = "H:"

     

    Dim Userprofile

    userprofile = "\\" & shareServer & "\" & profile & "\" & strUser &".pds"

     

    Dim workOU

    Set workOU = GetObject("LDAP://CN=" & strCN & ",DC=" & strDomain & ",DC=" & strTLD) ' Ich verbinde mich auf die Domäne

     

    Dim strAg

    strAg = InputBox("Arbeitsgruppe eingeben", "Eingabe", "")

     

    Dim strPwd

     

    Dim strPath

    Dim computer

    Dim fs

     

     

    'neuen Benutzer anlegen

    Dim oUser

    set oUser = workOU.Create("user", "CN=" & strUser)

    oUser.Put "sAMAccountName", strUser

    oUser.Put "userPrincipalName", strUser & "@" & strDomain & "." & strTLD

    oUser.Put "Description", strAg

    oUser.Put "givenName", strFirstName

    oUser.Put "sn", strUser

    oUser.Put "DisplayName", strUser

    oUser.Put "ProfilePath", userProfile

    oUser.Put "HomeDrive", userDrive

    oUser.Put "homedirectory", "\\" & HomeDirServer & "\users\" & strUser

     

    oUser.Put "scriptPath", strUser & ".cmd"

    oUser.setinfo

    strPwd = "nichts"

    oUser.SetPassword strPwd

    oUser.AccountDisabled = False

    oUser.setinfo 'Daten übertragen

     

    'oUser.SetPassword "nichts"

    'WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

     

    'Benutzer Gruppen zuweisen

    'oGroup.Add "LDAP:" & strDomain & "/" & strUser

     

    Dim grp

    Set grp = GetObject("WinNT://Domäne/Gruppe")

    grp.Add ("WinNT://Domäne/" & strUser)

     

    oUser.setinfo

     

    WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

     

    computer = "//Server"

     

    strPath = computer & "/users" & "/" & strUser

     

    WScript.Echo("Der Ordner " & strPath & " wurde angelegt")

     

    Set fs = fso.CreateFolder(strPath)

     

    WScript.Quit(0)

  3. Hallo,

    das geht mit WSH, Du schreibst ein Skript in VBS oder JS.

    Ich habe vor einiger Zeit mal eines geschrieben, was ich als Beispiel mitsende.

    Ist vielleicht anfangs etwas unübersichtlich, sind aber zur Hilfe einige Kommentare drin.

    Viel Glück.

     

    '****************************************************

    ' Dateiname: add.vbs - Benutzer und Gruppe hinzufügen

    ' '***************************************************

     

    'Variablendeklarationen erforderlich

    Option Explicit

     

    'Variablen deklarieren

    Dim WshShell

    Dim WshNetwork

    Dim Fso

    Dim IE

     

    ' WshShell-Objekt und WshNetwork-Objekt erzeugen

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

    Set WshNetwork = WScript.CreateObject("WScript.Network")

    Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

    Set IE = WScript.CreateObject("InternetExplorer.Application")

     

     

    Dim strTLD

    strTLD = "TLD"

     

    Dim strDomain

    strdomain = "Domänenname"

     

    'Dim strGroup

    'strGroup = InputBox("Gruppe:", "Eingabe", "")

     

    Dim strCN

    strCN = "users"

     

    Dim strFirstname

    strFirstname = InputBox("Vorname:", "Eingabe", "")

     

    Dim strUser

    strUser = InputBox("Nachname:", "Eingabe", "")

     

    Dim ShareServer

    ShareServer = "Server"

     

    DIm HomeDirServer

    HomeDirServer = "Server"

     

    Dim ShareName

    ShareName = "Users"

     

    Dim SharePath

    SharePath = "home"

     

    Dim Profile

    profile = "profile"

     

    Dim UserDrive

    userDrive = "H:"

     

    Dim Userprofile

    userprofile = "\\" & shareServer & "\" & profile & "\" & strUser &".pds"

     

    Dim workOU

    Set workOU = GetObject("LDAP://CN=" & strCN & ",DC=" & strDomain & ",DC=" & strTLD) ' Ich verbinde mich auf die Domäne

     

    Dim strAg

    strAg = InputBox("Arbeitsgruppe eingeben", "Eingabe", "")

     

    Dim strPwd

     

    Dim strPath

    Dim computer

    Dim fs

     

     

    'neuen Benutzer anlegen

    Dim oUser

    set oUser = workOU.Create("user", "CN=" & strUser)

    oUser.Put "sAMAccountName", strUser

    oUser.Put "userPrincipalName", strUser & "@" & strDomain & "." & strTLD

    oUser.Put "Description", strAg

    oUser.Put "givenName", strFirstName

    oUser.Put "sn", strUser

    oUser.Put "DisplayName", strUser

    oUser.Put "ProfilePath", userProfile

    oUser.Put "HomeDrive", userDrive

    oUser.Put "homedirectory", "\\" & HomeDirServer & "\users\" & strUser

     

    oUser.Put "scriptPath", strUser & ".cmd"

    oUser.setinfo

    strPwd = "nichts"

    oUser.SetPassword strPwd

    oUser.AccountDisabled = False

    oUser.setinfo 'Daten übertragen

     

    'oUser.SetPassword "nichts"

    'WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

     

    'Benutzer Gruppen zuweisen

    'oGroup.Add "LDAP:" & strDomain & "/" & strUser

     

    Dim grp

    Set grp = GetObject("WinNT://Domäne/Gruppe")

    grp.Add ("WinNT://Domäne/" & strUser)

     

    oUser.setinfo

     

    WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

     

    computer = "//Server"

     

    strPath = computer & "/users" & "/" & strUser

     

    WScript.Echo("Der Ordner " & strPath & " wurde angelegt")

     

    Set fs = fso.CreateFolder(strPath)

     

    WScript.Quit(0)

  4. Hallo,

    das geht mit WSH, Du schreibst ein Skript in VBS oder JS.

    Ich habe vor einiger Zeit mal eines geschrieben, was ich als Beispiel mitsende.

    Ist vielleicht anfangs etwas unübersichtlich, sind aber zur Hilfe einige Kommentare drin.

    Viel Glück.

     

    '****************************************************

    ' Dateiname: add.vbs - Benutzer und Gruppe hinzufügen

    ' '***************************************************

     

    'Variablendeklarationen erforderlich

    Option Explicit

     

    'Variablen deklarieren

    Dim WshShell

    Dim WshNetwork

    Dim Fso

    Dim IE

     

    ' WshShell-Objekt und WshNetwork-Objekt erzeugen

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

    Set WshNetwork = WScript.CreateObject("WScript.Network")

    Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

    Set IE = WScript.CreateObject("InternetExplorer.Application")

     

     

    Dim strTLD

    strTLD = "TLD"

     

    Dim strDomain

    strdomain = "Domänenname"

     

    'Dim strGroup

    'strGroup = InputBox("Gruppe:", "Eingabe", "")

     

    Dim strCN

    strCN = "users"

     

    Dim strFirstname

    strFirstname = InputBox("Vorname:", "Eingabe", "")

     

    Dim strUser

    strUser = InputBox("Nachname:", "Eingabe", "")

     

    Dim ShareServer

    ShareServer = "Server"

     

    DIm HomeDirServer

    HomeDirServer = "Server"

     

    Dim ShareName

    ShareName = "Users"

     

    Dim SharePath

    SharePath = "home"

     

    Dim Profile

    profile = "profile"

     

    Dim UserDrive

    userDrive = "H:"

     

    Dim Userprofile

    userprofile = "\\" & shareServer & "\" & profile & "\" & strUser &".pds"

     

    Dim workOU

    Set workOU = GetObject("LDAP://CN=" & strCN & ",DC=" & strDomain & ",DC=" & strTLD) ' Ich verbinde mich auf die Domäne

     

    Dim strAg

    strAg = InputBox("Arbeitsgruppe eingeben", "Eingabe", "")

     

    Dim strPwd

     

    Dim strPath

    Dim computer

    Dim fs

     

     

    'neuen Benutzer anlegen

    Dim oUser

    set oUser = workOU.Create("user", "CN=" & strUser)

    oUser.Put "sAMAccountName", strUser

    oUser.Put "userPrincipalName", strUser & "@" & strDomain & "." & strTLD

    oUser.Put "Description", strAg

    oUser.Put "givenName", strFirstName

    oUser.Put "sn", strUser

    oUser.Put "DisplayName", strUser

    oUser.Put "ProfilePath", userProfile

    oUser.Put "HomeDrive", userDrive

    oUser.Put "homedirectory", "\\" & HomeDirServer & "\users\" & strUser

     

    oUser.Put "scriptPath", strUser & ".cmd"

    oUser.setinfo

    strPwd = "nichts"

    oUser.SetPassword strPwd

    oUser.AccountDisabled = False

    oUser.setinfo 'Daten übertragen

     

    'oUser.SetPassword "nichts"

    'WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

     

    'Benutzer Gruppen zuweisen

    'oGroup.Add "LDAP:" & strDomain & "/" & strUser

     

    Dim grp

    Set grp = GetObject("WinNT://Domäne/Gruppe")

    grp.Add ("WinNT://Domäne/" & strUser)

     

    oUser.setinfo

     

    WScript.Echo("Der Benutzer " & strFirstname & " " & struser & " wurde angelegt")

     

    computer = "//Server"

     

    strPath = computer & "/users" & "/" & strUser

     

    WScript.Echo("Der Ordner " & strPath & " wurde angelegt")

     

    Set fs = fso.CreateFolder(strPath)

     

    WScript.Quit(0)

  5. Hallo,

    ich muß wohl etwas ausholen, um unser Problem zu beschreiben (hoffe, dass es eine ganz einfache Lösung gibt):

    Jeder MA hat eine eigene Mailadresse, aber einige MAs müssen auch die allgemeine Adresse (info@domain) bearbeiten.

    Diese Info-Adresse könnte ich ja einem MA (aber nur einem) zusätzlich eintragen. Möchte ich aber eigentlich nicht.

    Besser ist es doch, ich richte ein Postfach ein, das diese Adresse als Hauptadresse hat, oder? Die beiden user öffnen das Postfach der Infoadresse zusätzlich zu ihrem eigenen, indem sie es in den Exchange-Eigenschaften ihres Outlook einstellen.

    Wird aber nun eine mail gelöscht, so wird sie nicht in den "Gelöschte Objekte" Ordner des Info-Postfachs geschoben, sondern in den des einzelnen users und ist somit für den anderen nicht mehr sichtbar. Das möchten die beiden Benutzer aber (zumindest für einen begrenzten Zeitraum).

    Wie ist das beste Vorgehen bei Adressen, die sich mehrere user teilen müssen?

    Ich hoffe, meine Anfrage war nicht zu konfus und blicke guten Vorschlägen erwartungsvoll entgegen.

    Viele Grüße,

    Frauke

  6. Hallo,

    anscheinend ist es so, dass bei mailaktivierten Sicherheitsgruppen diese standardmäßig angezeigt werden, bei Verteilergruppen aber nicht.

    Schau mal in den Eigenschaften der Gruppe unter Exchange-erweitert, ob das Häkchen "In Adresslisten anzeigen" gesetzt ist.

    Ich habe nur Exchange 2003, hoffe aber, dass dieser Punkt in E2k genauso funktioniert.

    Viel Glück,

    Frauke

  7. Hallo,

    vielleicht interessiert ja noch jemanden die Lösung dieses Problems, obwohl es mir etwas ähem peinlich ist, sie zu posten.

    Nach längerem Probieren mußten wir feststellen, dass bei den 3 Konten, bei denen Exmerge mit dieser Fehlermeldung abbrach, die PST-Dateien mit einem Kennwort versehen waren. Eigentlich war ich der Meinung, dass die Einrichtung aller user und ihrer PST-Dateien identisch sei.

    Seit gestern bin ich schlauer.

    Frauke

  8. Hallo,

    beim Konvertieren von PST-Dateien in Postfächer auf unserem Exchange 2003 Server benutzen wir das Tool Exmerge. Dies funktioniert auch meistens.

    Bei einigen usern (jetzt der 3. von ca. 15) kommt es aber zu folgender Fehlermeldung in der log-Datei von exmerge:

     

    [09:56:17] Successfully initialized MAPI.

    [09:56:17] Ending Routine: (CMapiSession::MapiInit)

    [09:56:17] Entered Routine: (CMapiSession::CreateEMSPSTProfile)

    [09:56:17] Error configuring message service (MSPST MS) (UNKNOWN ERROR) (CMapiSession::CreateEMSPSTProfile)

    [09:56:17] Ending Routine: (CMapiSession::CreateEMSPSTProfile)

     

    Die PST-Datei ist nicht schreibgeschützt, so wie es die Knowledgebase von MS als Lösung anbietet. Ich habe auch alle Rechte auf die Postfächer, da ja die Konvertierung bei den meisten Konten klappt.

    Hat irgendjemand eine Idee?

    Vielen Dank,

    Frauke

  9. Richtig müsste der Punkt lauten: "Ereignis bei Warnschwellenüberschreitung protokollieren". So wie es bei XP auch lautet. Das ist in Windows 2000 sehr mißverständlich ausgedrückt. Der user bekommt eine Meldung, allerdings nur als Eintrag in sein Ereignisprotokoll.

    Frauke

  10. Hallo,

    kannst Du für diesen PC nicht eine IP-Adresse reservieren? Oder widerspricht das anderen Anforderungen?

    Es ist ja außerdem nicht so, dass jeweils nach Ablauf der lease alle IP-Adressen durcheinander gewürfelt werden. Es wird z.B. immer nach der Hälfte der Leasedauer versucht, die Adresslease zu verlängern. In der Regel behalten auch bei der Verteilung über einen DHCP-Server die PCs ihre IP-Adressen.

    Gruß,

    Frauke

  11. Dafür gibt es das Tool "Exmerge". Du wählst den Benutzer aus, gibst den Speicherort der entsprechenden PST-Datei an und der Inhalt der Datei inklusive aller Unterordner wird in ein Postfach umgewandelt.

    Achtung: Zu dem Tool gibt es eine Datei "exmerge.ini". Diese Datei ist in den Support-tools von MS falsch übersetzt und damit funktioniert das ganze tool nicht.

    Eine korrekte Version gibt es hier: http://www.all-exchange.de/exmerge.ini

    Leider gibt es kleine Probleme, z.B. werden die Regeln nicht mit importiert (s. mein Posting in diesem Forum).

    Die Postfächer der Benutzer müssen so heißen, wie die PST-Dateien (Vorsicht bei Umlauten!).

    Viel Erfolg,

    Frauke

  12. Hallo,

    wir stellen gerade unser Mail-System um von MS-Mail (und somit *.pst-Dateien) auf Exchange 2003 (serverbasierte Postfächer).

    Unsere user verwenden Outlook 2000. Bei der Umstellung der PST-Dateien auf die Exchange 2003 Postfächer sind alle Regeln, die eingehende mails in bestimmte Ordner verschieben, verloren gegangen.

    Gespeichert werden die Regeln ja in einer *.RWZ Datei. Leider schaffen wir es nicht, dass diese Regeln anschließend auf den Posteingang des nun servergespeicherten Postfachs angewandt werden.

    Im günstigen Fall werden die Regeln angezeigt, und man muss den Zielordner neu festlegen (da nicht mehr wie früher mit Ordnernamen, sondern mit IDs gearbeitet wird). Im ungünstigen Fall wird aber keine Regeln übernommen. Es gibt auch noch den Fall, dass die Regeln als "Nur Client" bezeichnet werden und zwar angezeigt werden, aber nicht greifen.

    Kennt jemand einen Weg?

    Vielen Dank,

    Frauke

  13. Hallo,

    auf Deine Frage, die sich auf die Überprüfung von Gruppenrichtlinien bezog:

    Es gibt im Resource Kit ein Tool "GPresult.exe". Die Kurzbeschreibung lautet: This command-line tool displays information about the result Group Policy has had on the current computer and logged-on user.

    Das sollte helfen, herauszufinden, inwieweit die Richtlinien abgearbeitet wurden.

    Viel Erfolg,

    Frauke

  14. Hallo,

    ein normaler Benutzer kann sich nicht an einem DC anmelden. Dafür benötigt er das Recht "Lokale Anmeldung". Dies ist gemeint mit der Meldung "Interaktive Anmeldung".

    Du mußt dafür ein Gruppenrichtlinienobjekt für den DC erstellen und anhand der beigefügten Grafik dem Benutzer das Recht zuweisen.

    Ich füge zum ersten Mal eine Grafik an und hoffe, daß es klappt.

    Die Gruppenrichtlinien kannst Du über Start, Ausführen, MMC erreichen.

    Viel Glück,

    Frauke

    post-1769-13567389119911_thumb.gif

×
×
  • Neu erstellen...