Zum Inhalt springen

nd88

Mitglieder
  • Gesamte Inhalte

    26
  • Benutzer seit

  • Letzter Besuch

Beiträge von nd88

  1. Hallo,

    leider weiß ich nicht, wie man 2 Tabellenblätter miteinander vernküpft.

    Mein Ziel ist es, die Einträge aus der Tabelleblatt1 z.B.

    (siehe Anlage)

    in die Tabellenblatt2 einzutragen und wenn ich dann später in der Tabellenblatt1 was ändern, soll diese Änderung automatisch in der Tabellenblätt2 übernommen werden.

    Ich hoffe ihr könnt mir weiterhelfen.

    Danke schön

    post-64291-14430448541635_thumb.jpg

  2. Hallo,

    ich habe SharePoint 3.0, SQL Server, Search Server Express 2008 (Sharepoint) auf dem Windows Server 2003 installiert.

    Ich möchte gerne in Search Server im Netzlaufwerk durchsuchen.

    Leider bekomme ich das nicht hin oder besser gesagt, ich weiß nicht wie man das Konfigurieren soll. Ich google schon seit Tagen danach, aber leider ohne Erfolg.

    Wer kann mir helfen?

    Danke schön und ein schönes Wochenende

  3. hallo,

    ich hab Makro probleme.

    Unszwar...:

    Bei mir kommt das folgende Fehlermeldung, wenn ich auf "make abbreviations table" drücke.

    Das Makro wurde nicht gefunden oder wurde deaktiviert wegen Ihrer Makroschutzeinstellungen.

    Sicherheitsstufe ist bei mir auf "Mittel" eingestellt.

    Habs auch mit "Niedrig" versucht .

    Ich weiß nicht wo der Fehler liegt????

    Kann mir jemand weiterhelfen?

    Besten Dank

  4. Hallo,

    danke für die schnelle Antwort.

    Ich hab das schon mit Abschnittwechsel versucht, geht aber trotzdem nicht. Ich habe es schon mit meiner 4 Kollegen getestet. 2 meiner Kollegen kommen direkt auf die Seite 40, die anderen genauso wie ich auf die Seite 39.

    Ich weiß nicht an was das liegen kann??

    Danke

  5. Ich hab das schon mit MID und INSTR versucht, komm aber leider nicht weiter...

    Da ich alle E-Mail Adressen brauch und ich in dieser Spalte z. B. 5 Email Adressen hab.

    hab auch so versucht:

    Ergebnis = Left(Text,InStr(1,Text,"@")+6)

    Krieg dann aber die restlichen nicht raus?

  6. Hallo,

    Ich bräuchte dringend Hilfe.

    Unszwar gibt es bei Active Directory ProxyAddresses, das folgendermaßen aussicht :

    smtp:Muster@Mustermann.de

    SMTP:Muster1.Vogler@Mustermann.de

    smtp:Muster2@Mustermann.co.uk

    smtp:Postmaster@Mustermann.de

    X400:c=DE;a= ;p=XXX;o=XXX;s=Muster;g=Mann;i=MMA;

    smtp:Webmaster@Mustermann.de

    Hier sollen die E-Mail Adressen einzeln ausgelesen (Visual Basic) und dann ins Datenbank übertragen werden. Also hier z. B. 5 Email Adressen in 5 Spalten in der Datenbank....

    Danke schön :)

  7. Hallo,

    ich will die Benutzerdaten (Active Directory) in eine Oracle Datenbank kopieren/ schreiben.

    Mit dem Code

    Dim oIADS, fsi, f

    Dim fso, a

    Dim objacc

    Dim objdb

    Dim rs

    Dim db

    Dim objdbe

    Dim MyCounter

    ' Setup Environment and Create objects ********************************

    Set WSHSHELL = WScript.CreateObject("Wscript.Shell")

    Set objacc = WScript.CreateObject("Access.Application")

    Set objdbe = objacc.DBEngine

    Set objdb = objdbe.OpenDatabase("U:\Datenbank\ad_user.sql")

    Set db = objdb.OpenRecordset("ad_user")

    ' ******** delete old records from database

    strSQL = "delete * from ad_user"

    ' strSQL = "insert * from ad_user"

    Set QDF = objdb.CreateQueryDef("",strSQL)

    QDF.Execute

    ' ******** setup user and file object ********************************

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set a = fso.CreateTextFile("U:\dirsize.xml")

    Set fsi = CreateObject("Scripting.FileSystemObject")

    ADSIADS_ADOQuery ' Start des Skripts

    Sub ADSIADS_ADOQuery()

    Dim strLDAPQuery ' As String

    Dim objCON ' As ADODB.Connection

    ' --- ADO-Connection-Objekt erzeugen

    Set objCON = CreateObject("ADODB.Connection")

    ' --- Verbindung zu dem OLE-DB-Provider für ADSI

    CONSTRING = "Provider=ADSDSOObject"

    objCON.Open CONSTRING ', "administrator", ""

    ' --- Selektion aller User

    strLDAPQuery= "<LDAP://RootDSE>;(objectclass=user); IUser,

    SamAccountName,CN,Firstname, LastName, Descrip, Office, Telephone,

    Handy, EmailAddr, WebPage, Addr1, City, State, ZipCode, Title,

    Department, Company, Manager, Profile, LoginScript, HomeDirectory, HomeDrive

    Adspath, LastLogin, Primary, EmailAddr2, EmailAddr3"

    ' --- Ausführen der Abfrage

    Set rs = objCON.Execute(strLDAPQuery)

    ' --- Ausgabe der Ergebnisse

    While NOT rs.EOF

    db.addnew

    db.fields("IUser").value = rs("IUser")

    db.fields("UserName").value = rs("samaccountname")

    db.fields("CN").value = rs("CN")

    db.fields("FirstName").value = rs("FirstName")

    ' db.fields("description").value = rs("Description")

    db.fields("LastName").value = rs("LastName")

    db.fields("Descrip").value = rs("Descrip")

    db.fields("Office").value = rs("Office")

    db.fields("Telephone").value = rs("Telephone")

    db.fields("Handy").value = rs("Handy")

    db.fields("EmailAddr").value = rs("EmailAddr")

    db.fields("WebPage").value = rs("WebPage")

    db.fields("Addr1").value = rs("Addr1")

    db.fields("City").value = rs("City")

    db.fields("State").value = rs("State")

    db.fields("ZipCode").value = rs("ZipCode")

    db.fields("Title").value = rs("Title")

    db.fields("Department").value = rs("Department")

    db.fields("Company").value = rs("Company")

    db.fields("Manager").value = rs("Manager")

    db.fields("Profile").value = rs("Profile")

    db.fields("LoginScript").value = rs("LoginScript")

    db.fields("HomeDirectory").value = rs("HomeDirectory")

    db.fields("HomeDrive").value = rs("HomeDrive")

    db.fields("Adspath").value = rs("Adspath")

    db.fields("LastLogin").value = rs("LastLogin")

    db.fields("Primary").value = rs("Primary")

    db.fields("EmailAddr2").value = rs("EmailAddr2")

    db.fields("EmailAddr3").value = rs("EmailAddr3")

    rs.MoveNext

    db.update

    Wend

    ' --- Schließen der Objekte

    rs.Close

    wscript.Echo "AD ausgelesen und in DB geschrieben"

    END SUB

    hab ich mal versucht? Geht nicht? Was ist da falsch?

    Wie soll ich das machen?

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...