Jump to content

WSUSPraxis

Expert Member
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    4.240

  • Registriert seit

  • Letzter Besuch

 Inhaltstyp 

Alle erstellten Inhalte von WSUSPraxis

  1. WSUSPraxis
    Muss es leider mal schieben...............
  2. WSUSPraxis
    Ja wenn Sie für ein Kunden war ? Ist es mehr als schlecht wenn Sie bei dir noch liegt ?
  3. WSUSPraxis
    Ich suche im ADM Template für Outlook 2003 die Funktion wo ich den Lesebereich einheitlich legen kann. Also z.B für alle USer ein Ou nach unten.... Leider finde ich im Template diese Möglichkeit nicht ? Server SBS 2003 + Exchange 2003 + SP 2 Outlook 2003 + SP Windows 2000 SP 4 Clients Danke
  4. WSUSPraxis
    Hat jemand noch ne Idee wo es am 2 Script hängt ?
  5. WSUSPraxis
    ''''''''''''''''''''''''''''''''''''''''''''''''''''' ' AD-Mailadressen_suchen.vbs ' Beschreibung ' ' Version: 1.1a ' Datum: 27.04.2005/23.8.2005 ' Autor: Nils Kaczenski (Vorname at Nachname .de) ' Letzte Änderungen: ' ' Nils Kaczenski stellt dieses Skript ohne jede ' Gewährleistung zur Verfügung. ' Die Verwendung geschieht auf eigene Gefahr. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''' Option Explicit Dim strSuchstring ' Dim strMail ' Dim arrMember ' Dim arrObjectClass ' Dim arrProxyAddresses ' Dim i ' Dim objConn ' Dim objExplorer ' Dim objRSAD ' Dim objRSlokal ' Dim strAusgabe ' Dim strConn ' Dim strMember ' Dim strObjectClass ' Dim strSQL 'Dim objRootDim strDomain Set objConn = CreateObject("ADODB.Connection") Set objRSlokal = CreateObject("ADODB.Recordset") strSuchstring = InputBox("Wonach wird in der Mailadresse gesucht?", _ "Mailadresse suchen") ' Domänenzugriff ... set objRoot = GetObject("LDAP://rootDSE") strDomain = objRoot.Get("DefaultNamingContext") ' Datenbankzugriff ... strConn = "Provider=ADsDSOObject;" objConn.Open strConn ' Zugriff auf die gesamte Tabelle strSQL = "SELECT name,mailNickname,mail,proxyAddresses,member,objectClass " _ & "FROM 'LDAP://" & strDomain & "' WHERE proxyAddresses='*" _ & strSuchstring & "*'" Set objRSAD = objConn.Execute(strSQL) ' lokales Recordset zur Anzeige definieren objRSlokal.Fields.Append "Mailadresse", 202, 255 objRSlokal.Fields.Append "Name", 202, 255 objRSlokal.Fields.Append "Alias", 202, 255 objRSlokal.Fields.Append "Typ", 202, 255 objRSlokal.Fields.Append "Mitglieder", 202, 16384 objRSlokal.Open Do Until objRSAD.EOF arrProxyAddresses = objRSAD("proxyAddresses") strMail = objRSAD("mail") If Not IsNull(objRSAD("member")) Then arrMember = objRSAD("member") strMember = Join(arrMember, "<br>") Else strMember = "" End If arrObjectClass = objRSAD("objectClass") strObjectClass = arrObjectClass(UBound(arrObjectClass)) For i=0 To UBound(arrProxyAddresses) If (InStr(LCase(arrProxyAddresses(i)), LCase(strSuchstring)) <> 0 _ AND LCase(Left(arrProxyAddresses(i),5)) = "smtp:") Then ' Neuen Datensatz lokal einfügen objRSlokal.AddNew objRSlokal("Name") = objRSAD("name") objRSlokal("Alias") = objRSAD("mailNickname") objRSlokal("Typ") = strObjectClass objRSlokal("Mailadresse") = Mid(arrProxyAddresses(i),6) objRSlokal("Mitglieder") = strMember objRSlokal.Update End If Next objRSAD.MoveNext Loop If Not objRSlokal.EOF Then objRSlokal.Sort="Mailadresse" objRSlokal.MoveFirst strAusgabe = objRSlokal.GetString(2, -1, "</TD><TD>", "</TD></TR>" _ & vbCrLf & "<TR><TD>", " ") strAusgabe = "<HTML><BODY style=""font-family:sans-serif;"">" _ & "<H1>Mailadressen mit dem Inhalt " & strSuchstring & "</H1>" _ & "<TABLE border=""1""><TR><TD>" _ & strAusgabe & "</TD></TR></TABLE></BODY></HTML>" Else strAusgabe = "<HTML><BODY style=""font-family:sans-serif;"">" _ & "<p>Die Suche nach Mailadressen mit dem Inhalt " _ & strSuchstring & " hatte kein Ergebnis.</p>" _ & "</BODY></HTML>" End If Set objExplorer = CreateObject("InternetExplorer.Application") objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width=500 objExplorer.Height = 400 objExplorer.Left = 0 objExplorer.Top = 0 objExplorer.Visible = 1 objExplorer.document.writeln(strAusgabe)
  6. WSUSPraxis
    Jetzt habe ich das 2 Script auch noch getestet ? Aber nun erhalte ich auch ein Fehler in Zeile 91 strAusgabe = objRSlokal.GetString(2, -1, "</TD><TD>", "</TD></TR>" _ & vbCrLf & "<TR><TD>", " ") Was ist hier noch falsch ?
  7. WSUSPraxis
    Wow vielen Dank Und noch schöne Ostern.............
  8. WSUSPraxis
    Also seit grad kann ich die Seite auch wieder erreichen ! Ich habe es so gemacht wie Günther es auf seiner Seite beschrieben hat ? Aber irgendwie bekomme ich immer Ausgabefehler....... ''''''''''''''''''''''''''''''''''''''''''''''''''''' ' AD-Mailadressen_anzeigen.vbs ' Beschreibung ' ' Version: 1.1a ' Datum: 21.04.2005/23.08.2005 ' Autor: Nils Kaczenski (Vorname at Nachname .de) ' Letzte Änderungen: ' ' Nils Kaczenski stellt dieses Skript ohne jede ' Gewährleistung zur Verfügung. ' Die Verwendung geschieht auf eigene Gefahr. ' ''''''''''''''''''''''''''''''''''''''''''''''''''''' Option Explicit Dim strMail ' Dim arrMember ' Dim arrObjectClass ' Dim arrProxyAddresses ' Dim i ' Dim objConn ' Dim objExplorer ' Dim objRSAD ' Dim objRSlokal ' Dim strAusgabe ' Dim strConn ' Dim strMember ' Dim strObjectClass ' Dim strSQL ' Dim objRootDim testfirma.local Set objConn = CreateObject("ADODB.Connection") Set objRSlokal = CreateObject("ADODB.Recordset") ' Domänenzugriff ... set objRoot = GetObject("LDAP://rootDSE") strDomain = objRoot.Get("DefaultNamingContext") ' Datenbankzugriff ... strConn = "Provider=ADsDSOObject;" objConn.Open strConn ' Zugriff auf die gesamte Tabelle strSQL = "SELECT name,mailNickname,mail,proxyAddresses,member,objectClass " _ & "FROM 'LDAP://" & strDomain & "' WHERE mailNickname='*'" Set objRSAD = objConn.Execute(strSQL) ' lokales Recordset zur Anzeige definieren objRSlokal.Fields.Append "Mailadresse", 202, 255 objRSlokal.Fields.Append "Name", 202, 255 objRSlokal.Fields.Append "Alias", 202, 255 objRSlokal.Fields.Append "Typ", 202, 255 objRSlokal.Fields.Append "Mitglieder", 202, 16384 objRSlokal.Open Do Until objRSAD.EOF arrProxyAddresses = objRSAD("proxyAddresses") strMail = objRSAD("mail") If Not IsNull(objRSAD("member")) Then arrMember = objRSAD("member") strMember = Join(arrMember, "<br>") Else strMember = "" End If arrObjectClass = objRSAD("objectClass") strObjectClass = arrObjectClass(UBound(arrObjectClass)) For i=0 To UBound(arrProxyAddresses) If LCase(Left(arrProxyAddresses(i),5)) = "smtp:" Then ' Neuen Datensatz lokal einfügen objRSlokal.AddNew objRSlokal("Name") = objRSAD("name") objRSlokal("Alias") = objRSAD("mailNickname") objRSlokal("Typ") = strObjectClass objRSlokal("Mailadresse") = Mid(arrProxyAddresses(i),6) objRSlokal("Mitglieder") = strMember objRSlokal.Update End If Next objRSAD.MoveNext Loop objRSlokal.Sort="Mailadresse" objRSlokal.MoveFirst strAusgabe = objRSlokal.GetString(2, -1, "</TD><TD>", "</TD></TR>" _ & vbCrLf & "<TR><TD>", " ") strAusgabe = "<HTML><BODY style=""font-family:sans-serif;"">" _ & "<TABLE border=""1""><TR><TD>" _ & strAusgabe & "</TD></TR></TABLE></BODY></HTML>" Set objExplorer = CreateObject("InternetExplorer.Application") objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0 objExplorer.StatusBar = 0 objExplorer.Width=500 objExplorer.Height = 400 objExplorer.Left = 0 objExplorer.Top = 0 objExplorer.Visible = 1 objExplorer.document.writeln(strAusgabe) Leider bin ich nicht so der .vbs Scripter und weiß nicht genau wo ich meine Domaine noch einsetzen muss ?
  9. WSUSPraxis
    Hallo Günther, leider kann ich die Seite http://www.faq-o-matic.net nicht öffnen........ Hast du die Scripts noch irgendwie ...... ? Und was ich nicht verstehe ? Was ist hier falsch ? csvde -f ausgabe.csv -r (objectClass=User) -l proxyAddresses
  10. WSUSPraxis

    Letzter macht das Licht aus

    WSUSPraxis antwortete auf ein Thema von günterf in: Off Topic

    Licht aus ? -lol-
  11. WSUSPraxis
    Ja bitte schön, weil es ja nicht sein muss ? Und es waren ja wohl mehr als 3 ?
  12. WSUSPraxis
    Bis jetzt war ich der meinung das ich mit: csvde -f ausgabe.csv -r (objectClass=User) -l proxyAddresses oder "objectClass=publicfolder" oder "objectClass=group" alle E-Mailaddresen einer Domaine auslesen kann ? Leider wirft die *.csv nicht wirklich E-Mailadressen aus sondern eigentlich alle Domaineobjekte ? Was mache ich in der Abfrage falsch ? Oder gibt es ein anderen sinnvollen Weg alle(wirklich alle) E-Mailadressen angezeigt zu bekommen ?
  13. WSUSPraxis
    Als MCSA solltest du eigentlich doch selbst in der Lage sein dich darum zu kümmern ?
  14. WSUSPraxis
    Aber was hast du jetzt gewonnen ? Eigentlich nichts !
  15. WSUSPraxis
    Kannst du eine Beschreibung zum SP 2 mit eTrust mal geben ? Was du alles geändert hast ?
  16. WSUSPraxis
    Nein ich habe nochmals mit dem Prüfungszentrum gesprochen und es steht auch im Vor - und Abspann der Prüfung............
  17. WSUSPraxis
    Du weißt aber schon das du für den Smarthost von T-Online dich extra anmelden musst und dann auch extra dafür bezahlen musst ?
  18. WSUSPraxis
    Ich muss erfahren das Fragen wo man auch nach dem Überprüfen die Markierung dran lässt, als "falsch" gewertet werden, obwohl sie vielleicht richtig gewesen sind.
  19. WSUSPraxis
    @mr.toby Von der Fritzbox gibt es doch eine so gute Anleitung ! Man muss das einfach einstellen..........
  20. WSUSPraxis

    Letzter macht das Licht aus

    WSUSPraxis antwortete auf ein Thema von günterf in: Off Topic

    Gute Nacht...............
  21. WSUSPraxis
    Nochmals Googel ist dein Freund .................
  22. WSUSPraxis
    Also dann versuche die Möglichkeiten zu nutzen für die es hier keins Support gibt um das lokale Adminpasswort zu löschen.
  23. WSUSPraxis
    Hast du versucht den Speedport mit einem Kabel mal an dein Rechner zu hängen ? Kommst du dann auf die Konfigurationsseite ?
  24. WSUSPraxis
    Was willst du uns damit sagen ???
  25. WSUSPraxis
    Das ist ja wohl Ansichtssache ?
×
×
  • Neu erstellen...