Jump to content

autowolf

Members
  • Gesamte Inhalte

    521
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von autowolf

  1. Cool werde ich mal heute abend testen.

     

    Ich habe in der zwichen Zeit noch ein Script geschrieben, wecheles User Accounds Updatet.

    Sprich du hast User in einer OU und willst ihnen ein Loginscript und E-Mail Adressen verpassen.

     

     

    Da das Forum nur 4000 Zeichen zuläst und ich keine lust habe es in 3 Blöcke hier zu posten werde ich es als Zip hier hinstellen.

  2. So erstemal riesen dank. Habs soweit hinbekommen (bekomme keine Fehler mehr)

     

    Leider legt er mir keine Mailbox an. Die Reiter beim User fehlen.

     

    Ich habe ja eine SBS 2003 SP1 Deutsch. Das Lustige ist das der Exchange ein mischmasch von Deutsch und Englisch ist. Hier mal der Code:

     

    'Mailbox anlegen'

    Set oIADSUser = b

    oIADSUser.createMailbox "LDAP://CN=Postfachspeicher (SBS-SERVER),CN=Erste Speichergruppe,CN=InformationStore,CN=SBS-SERVER,CN=Servers,CN=erste administrative gruppe,CN=Administrative Groups,CN=WUTM,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=WUTM,DC=local"

    oIADSUser.EnableStoreDefaults = FALSE

    oIADSUser.StoreQuota = 10000

    oIADSUser.OverQuotaLimit = 12000

    oIADSUser.HardLimit = 15000

  3. Hi hab ein VB Script geschrieben. Leider komme ich nicht weiter.

    Habe schon hier im Froum und bei Googel 3 Stunden gesucht.

     

    Er legt mir keine Mailbox für den User an den ich aus der User.txt auslese.

     

     

     

    Dim fso, f, Zeile, Feld

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set f = fso.OpenTextFile ("c:\user.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)

    Call BenuntzerAnlegen(Benutzer,Vorname,Nachname,Passwort)

    Loop

    f.Close

    MSGBOX "Scriptverarbeitung abgeschlossen" & vbCrlf & "by Autowolf"

    Wscript.Quit(0)

     

    Sub BenuntzerAnlegen (Benutzer,Vorname,Nachname,Passwort)

    Dim ouo, b

    Set ouo = GetObject("LDAP://OU=TEST,DC=WUTM,DC=local")

    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 & "@WUTM.local"

    b.Put "mail", Benutzer & "@lanwolf.de"

    b.Put "c", "DE"

    b.Put "co", "DEUTSCHLAND"

    b.Put "l", "Stadt"

    b.Put "postalCode", "PLZ"

    b.Put "postOfficeBox", "Postfach"

    b.Put "st", "Bundesland"

    b.Put "streetAddress", "Strasse Zeile 1" & vbCrlf & "Strasse Zeile 2" & vbCrlf

    b.SetInfo

     

    'Password läuft nicht ab'

    b.SetPassword Passwort

    b.Put "userAccountControl", 66082

    b.AccountDisabled = False

    b.SetInfo

    '40'

    'Logincript'

    Set UserObj = GetObject("WinNT://WUTM/" & Benutzer)

    UserObj.LoginScript = "datev.bat"

    UserObj.SetInfo

    Set UserObj = Nothing

     

    'Gruppe hinzufügen'

    Set GroupObj = GetObject("WinNT://SBS-SERVER/DATEVuser")

    GroupObj.Add ("WinNT://WUTM/" & Benutzer)

    Set DomainObj = Nothing

    Set GroupObj = Nothing

     

    'Mailbox'

    'Create Users Mailbox

    b.createMailbox "LDAP://CN=Postfachspeicher (SBS-SERVER),CN=Erste Speichergruppe,CN=Infromationsspeicher,CN=SBS-SERVER,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=My Organization,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=wutm,DC=local"

    b.setInfo

     

     

    WScript.Sleep(1000)

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

    End Sub

     

     

    Ich komme mit den Variabelen für den Exchange nicht ganz klar.

    Als Fehler bekomme ich immer "Einsolches Objekt ist auf dem Server nicht vorhanden" mit der Zeile wo "b.crateMailbox..... " steht.

     

    Ohne die Mailbox geht alles 1a

     

    System:

    Windows 2003 SBS SP1

    Name: SBS-SERVER

    Domain: WUTM.local

     

    Hier noch mal der Originalcode auf dem Netz:

    'Create Users Mailbox

    Dim oIADSUser

    Set oIADSUser = objRoot.OpenDSObject("LDAP://CN=" & firstName & " " & lastName & ",OU=Volunteers,DC=mydomain,DC=local", strAdminDN, strAdminPassword, ADS_SECURE_AUTHENTICATION)

    oIADSUser.createMailbox "LDAP://CN=Mailbox Store (MYSERVER),CN=First Storage Group,CN=InformationStore,CN=MYSERVER,CN=Servers,CN=First Administrative Group,CN=Administrative Groups,CN=My Organization,CN=Microsoft Exchange,CN=Services,CN=Configuration,DC=mydomain,DC=local"

    oIADSUser.setInfo

  4. Hi habe einen Kunden der patu nur eine E-Mail Adresse haben will.

    Es sollen aber alle User mit der E-Mail Adresse Senden und Empfangen.

     

    Empfangen ist ja kein Problem.

     

    Aber Senden... kann ja nicht jedem User die selbe E-Mail verpassen.

     

    Das Problem ist ja, das beim Empfänger dann alles mails mit user@domain.local ankommen.

     

    Es soll aber immer firma@t-online.de erscheinen.

     

     

    Gibs da eine Lösung zu ? oder vieleicht ein tool was alle Mails kontrolliert und wenn sie nicht .local am Ende haben, dann rausschickt ?

     

    Ich habe das mit dem VON Feld auch gelesen.. nur kann ich nicht von den Usern verlagen immer einen virtuellen user in das VON Feld zu wählen.

  5. Hi

     

    folgende Sache.

     

    User sollen mit Ihren Notebooks keine UMC Pfade ansteuern können. Nur wenn Sie (das Notebook) mitglied in der Domain sind.

    Gibs da ne möglichkeit ?

     

    Sprich wenn man eingibt \\Servername\freigabe dann kommt ja die Aufforderung für das Kennwort und Username.. kann man das unterbinden ? (NB die nicht in der Domain angemeldet sind bzw. garnicht aufgenommen sind)

    Es handelt sich um eine Win2003 ADS

  6. netzguru Hallo, hast du schun in der Ereignisanzeige des Servers nachgeschaut?

    Vielleicht findest du hier einen Eintrag..

     

    In der Ereigniss anzeige ist nichts auffälliges.

     

    kraecck Auch am User keine Eintragung von wegen Verbindung trennen, nach XX min. Leerlauf

    Im User steht alles auf NIE. Soweit war ich auch.

     

    snake99 Hast du schon die RDP Eigenschaften auf dem Terminalserver geprüft?

     

    Wie meinst du das ?

  7. Das Icon wird schon erstellt vieleicht auch mit einer Fehlermeldung.

     

    Ich habe solche Sachen mit einem Loginscript gelöst, welches im Autostart des Default Users liegt.

    Wenn der Users ich sich das erstemal anmeldet wird das Script ja wie alles in sein Profiel kopiert. Es wird durch den Autostart gestartet und löscht sich nach der Tätigkeit aus dem Autostart des Users. Somit kann man das Script für alle Users nutzen.

     

    Du must immer schauen, was für ein Zeit und Nutzenfaktor du hast.

    Ich halte mich nicht mehr mit solchen Sachen auf, nur weil Sie nicht 1a sind und ich Tage fummeln muss.

     

    Des Weiteren wäre ich immer sehr vorsichtig mit DLL rauswerfen. 6 Monate später kommt dann eine neue Software, die die DLLs wieder brauch. Und schon gehts wieder los mit fummeln :cry: (alles schon gehabt)

  8. Habe den Fehler alle paar Stunden auf einem Windows 2003 Standart Terminal Server mit SP1

     

    Kann mir einger sagen was das ist und obs gefährlich ist ?

     

    Das COM+-Ereignissystem konnte das EventSystem.EventSubscription-Objekt {4440C947-94B5-4F74-B750-73158F7A6A7A}-{00000000-0000-0000-0000-000000000000}-{00000000-0000-0000-0000-000000000000} nicht entfernen. HRESULT war 80070005.

     

    Weitere Informationen über die Hilfe- und Supportdienste erhalten Sie unter http://go.microsoft.com/fwlink/events.asp.

  9. Der SBS 2003 Faxservice ist eigentlich für eine B1 Karte vorgesehen. Man kann mit keinen Tricks auch eine normale Fritz! Karte zum laufen bekommen (Fritz! Karte 50€ b1 Karte 250€). Auch gehen "popel" 56K FaxModems, leider haben die meisten Firmen keinen analogen Anschluss mehr oder man brauch einen D/A Wandler.

     

    NEIN. Es ist nicht möglich mehrere Ports für den Fax versand zu nutzen.

     

    Serienfaxe lassen sich über den normalen Faxassistenten generieren. Dabei hift das Outlook mit seinem Adressbuch nach.

  10. Also ich kenne das so, das jeder User auch den Drucker des anderen sehen kann. Leider hatte ich auch schon Probleme damit. Lag bei mir daran das viele Drucker per USB angeschlossen waren und der Terminalserver mist gebaut hat (war vor SP1). Jetzt sind alle Durcker LAN oder Parallel geworden. Oder ich habe sie an der Lokalen Workstation freigegeben und am Server gemappt.

     

    Ich tippe ehr darauf das sich die User verklicken und einen anderen nehmen bzw. nicht ihr Drucker als Standart eingestellt wird sondern der eines anderen.

×
×
  • Neu erstellen...