Kabadeluxe

Hallo Jungs und Mädels Ich stehe gerade vor einen Problem. Ich muss einmal in der Woche Gewisse Dateien auf PCs verschieben. Nachdem ich Keine Lust habe auf alle 70 PCs den Pfad per Hand zu erstellen und dann die Dateien Rein kopieren will, hoffe ich das mir da jemand Hilfe bieten kann. Also Ziel ist es von meinen PC auf alle PCs im Netzwerk (Domain) einen Pfad zu erstellen und dann die Dateien Rein kopieren, oder zu überschrieben wenn sie schon Vorhanden sind. Hat da Jemand Ideen, Lösungen und schon selber eine Möglichkeit gefunden? Danke schon mal für die Hilfe von euch Gruss Thomas

Hallo Leute Sorry, wenn ich nochmal Frage. Ich habe Folgendes Problem, ich muss von einer Excel liste User ins AD Importieren. Und zwar schaut die Excel List so aus Von 1 bis XXXX stehen die Verschiedenen User und in den Spalten sind B: CN Beispiel: Musterman Manfred C: Last Name Beispiel: Musterman D: First Name Beispiel: Manfred E: SamAccountName Beispiel: MUSMA F: Email Beispiel: Manfred.Mustermann@Musterfirma.com G: Telefone Beispiel: +41 56 001 01 01 H: WebPage Beispiel: www.Musterpage.xo I:Addr1 Beispiel: Musterstr. 23 J:City Beispiel:Musterdorf K: ZipCode Beispiel: 0456 L:State Beispiel:Musterkanton M:Manager Beispiel: (LEER) N:Company Beispiel: Mustermann / Musterfirma AG O:Titl Beispiel: Muster und Helpdesk-Support P: Descript Beispiel: (LEER) Q: Profile Beispiel: (LEER) R: Asspath Beispiel: LDAP://CN=Musterman Manfred,OU=Win7,OU=LDUsers,DC=corp,DC=limmatFirma,DC=ch S: Primary SMTP Beispiel: Zusatemail@HansMuster.com Kann mir da jemand Helfen die wieder in AD zu importieren. Ich habe echt die User nur noch in der Excel liste und sonst Nirgendwo mehr. DANKE schon mal für eure Mithilfe

Hallo Ich habe folgendes Problem. Ich habe eine Liste mit Usernamen und sämtlichen Userdaten bekommen. Nun wollte ich sie in die AD Importieren. Gibt es da ein Script oder irgendeine Möglichkeit? Die Excel liste schaut so aus. Danke schon mal für die Hilfe Gruss Thomas

Hallo Sorry, das ich schon wieder frage, aber ich habe leider mit AD noch nicht so viele Erfahrungen. Nach dem wir 2 Standorte zusammenlegen, bin ich beauftragt worden die ganzen Daten in eine Excelliste zu machen. Mit den Usern hat das schon sehr gut funktioniert. Nun habe ich nur noch ein Problem. Ich muss die Gruppenberechtigungen noch auslesen und die dazugehörigen User. Als zum Beispiel Gruppe Verkauf, und die User 3 5 9…. Sind in der gruppe mit drin Wahreneingang User 1345... Und so weiter Danke schon mal für Lösungsansäte. Gruss Thomas

Eine Kleine Frage habe ich nicht, und zwar im CMD.EXE kann man da auch die Auflösung von einen Foto oder Film anzeigen lassen, wenn man Dir eingibt? Gruss Thomas

Habe es gefunden wie ich es will. CMD Starten und dann dir/b > list.xls Danke an alle für euere Hilfe

Das habe ich nur mit meinen PC. Die anderen Notebooks und PC`s haben keine Probleme aufs Netzwerk zuzugreifen. Und das Problem kommt immer nur, wenn der Router eine Neue IP Bekommen hat. Dann kommt er immer wieder drauf bis der Router eine Neue IP bekommt

Hallo Ich bin Daheim mit meinen Desktop PC (Win7) über Netzwerkkabel mit meinen Router verbunden. Ich denke immer wenn der Router eine neue IP Adresse bekommt, komme ich nichtmehr ins Internet, obwohl er mir im Netzwerk und Freigabencenter anzeigt das er mit dem Internet verbunden ist. Ich muss dann einfach immer in Adaptereinstellungen und die Netzwerkverbindung Deaktivieren und wieder Aktivieren. Dann geht es wieder. weiss jemand einen Rat, wie ich das Lösen kann? Ich lasse die IP automatisch beziehen. Danke schon mal für euere Hilfe Gruss Thomas

Also es geht schon ganz gut, nur habe ich jetzt die Dateigrösse noch mit dabei. Gibt es ein befehl, wo ich nur den Dateinahmen habe? Danke schon mal an alle und danke auch an Lefg

Hallo Kennt jemand einen einen Script oder einen Befehl in "CMD" wie ich die Datein von einen Ordner in eine Excelliste schrieben lassen kann? Also das ich zum beispiel die Datein Bild1.JPG, Bild2.JPG ....... in eine Exelliste bekommen und war wenn es geht untereinander DANKE Gruss Thomas

Danke schon schon mal Timsk Ich habe einfach mal ein Script Geschrieben und was soll ich sagen es geht :-) Ich will den Script euch nicht vorenthalten Dim ObjWb Dim ObjExcel Dim x, zz Set objRoot = GetObject("LDAP://RootDSE") strDNC = objRoot.Get("DefaultNamingContext") Set objDomain = GetObject("LDAP://" & strDNC) ' Bind to the top of the Domain using LDAP using ROotDSE Call ExcelSetup("Sheet1") ' Sub to make Excel Document x = 1 Call enummembers(objDomain) Sub enumMembers(objDomain) On Error Resume Next Dim Secondary(20) ' Variable to store the Array of 2ndary email alias's For Each objMember In objDomain ' go through the collection If ObjMember.Class = "user" Then ' if not User object, move on. x = x +1 ' counter used to increment the cells in Excel objwb.Cells(x, 1).Value = objMember.Class ' I set AD properties to variables so if needed you could do Null checks or add if/then's to this code ' this was done so the script could be modified easier. SamAccountName = ObjMember.samAccountName Cn = ObjMember.CN FirstName = objMember.GivenName LastName = objMember.sn initials = objMember.initials Descrip = objMember.description Office = objMember.physicalDeliveryOfficeName Telephone = objMember.telephonenumber EmailAddr = objMember.mail WebPage = objMember.wwwHomePage Addr1 = objMember.streetAddress City = objMember.l State = objMember.st ZipCode = objMember.postalCode Title = ObjMember.Title Department = objMember.Department Company = objMember.Company Manager = ObjMember.Manager Profile = objMember.profilePath LoginScript = objMember.scriptpath HomeDirectory = ObjMember.HomeDirectory HomeDrive = ObjMember.homeDrive AdsPath = Objmember.Adspath LastLogin = objMember.LastLogin zz = 1 ' Counter for array of 2ndary email addresses For each email in ObjMember.proxyAddresses If Left (email,5) = "SMTP:" Then Primary = Mid (email,6) ' if SMTP is all caps, then it's the Primary ElseIf Left (email,5) = "smtp:" Then Secondary(zz) = Mid (email,6) ' load the list of 2ndary SMTP emails into Array. zz = zz + 1 End If Next ' Write the values to Excel, using the X counter to increment the rows. objwb.Cells(x, 2).Value = SamAccountName objwb.Cells(x, 3).Value = CN objwb.Cells(x, 4).Value = FirstName objwb.Cells(x, 5).Value = LastName objwb.Cells(x, 6).Value = Initials objwb.Cells(x, 7).Value = Descrip objwb.Cells(x, 8).Value = Office objwb.Cells(x, 9).Value = Telephone objwb.Cells(x, 10).Value = EmailAddr objwb.Cells(x, 11).Value = WebPage objwb.Cells(x, 12).Value = Addr1 objwb.Cells(x, 13).Value = City objwb.Cells(x, 14).Value = State objwb.Cells(x, 15).Value = ZipCode objwb.Cells(x, 16).Value = Title objwb.Cells(x, 17).Value = Department objwb.Cells(x, 18).Value = Company objwb.Cells(x, 19).Value = Manager objwb.Cells(x, 20).Value = Profile objwb.Cells(x, 21).Value = LoginScript objwb.Cells(x, 22).Value = HomeDirectory objwb.Cells(x, 23).Value = HomeDrive objwb.Cells(x, 24).Value = Adspath objwb.Cells(x, 25).Value = LastLogin objwb.Cells(x,26).Value = Primary ' Write out the Array for the 2ndary email addresses. For ll = 1 To 20 objwb.Cells(x,26+ll).Value = Secondary(ll) Next ' Blank out Variables in case the next object doesn't have a value for the property SamAccountName = "-" Cn = "-" FirstName = "-" LastName = "-" initials = "-" Descrip = "-" Office = "-" Telephone = "-" EmailAddr = "-" WebPage = "-" Addr1 = "-" City = "-" State = "-" ZipCode = "-" Title = "-" Department = "-" Company = "-" Manager = "-" Profile = "-" LoginScript = "-" HomeDirectory = "-" HomeDrive = "-" Primary = "-" For ll = 1 To 20 Secondary(ll) = "" Next End If ' If the AD enumeration runs into an OU object, call the Sub again to itinerate If objMember.Class = "organizationalUnit" or OBjMember.Class = "container" Then enumMembers (objMember) End If Next End Sub Sub ExcelSetup(shtName) ' This sub creates an Excel worksheet and adds Column heads to the 1st row Set objExcel = CreateObject("Excel.Application") Set objwb = objExcel.Workbooks.Add Set objwb = objExcel.ActiveWorkbook.Worksheets(1) Objwb.Name = "Active Directory Users" ' name the sheet objwb.Activate objExcel.Visible = True objwb.Cells(1, 2).Value = "SamAccountName" objwb.Cells(1, 3).Value = "CN" objwb.Cells(1, 4).Value = "FirstName" objwb.Cells(1, 5).Value = "LastName" objwb.Cells(1, 6).Value = "Initials" objwb.Cells(1, 7).Value = "Descrip" objwb.Cells(1, 8).Value = "Office" objwb.Cells(1, 9).Value = "Telephone" objwb.Cells(1, 10).Value = "Email" objwb.Cells(1, 11).Value = "WebPage" objwb.Cells(1, 12).Value = "Addr1" objwb.Cells(1, 13).Value = "City" objwb.Cells(1, 14).Value = "State" objwb.Cells(1, 15).Value = "ZipCode" objwb.Cells(1, 16).Value = "Title" objwb.Cells(1, 17).Value = "Department" objwb.Cells(1, 18).Value = "Company" objwb.Cells(1, 19).Value = "Manager" objwb.Cells(1, 20).Value = "Profile" objwb.Cells(1, 21).Value = "LoginScript" objwb.Cells(1, 22).Value = "HomeDirectory" objwb.Cells(1, 23).Value = "HomeDrive" objwb.Cells(1, 24).Value = "Adspath" objwb.Cells(1, 25).Value = "LastLogin" objwb.Cells(1, 26).Value = "Primary SMTP" End Sub MsgBox "Done" ' show that script is complete Danke an alle die mir geholfen haben und besonderst an Timsk

Also es sollte schon in einer Excelliste sein. Aber Danke Newbie schonmal für deinen Tip

Hallo Jungs Ich habe ein Problem auf der Arbeit. Ich muss eine AD auslesen, und in Excel speichern. Ich muss auch bei den Usern die Registrierkarten "Allgemein", *Adresse" und und und Auslesen. Des weiteren muss ich ebenfalls noch "Security Groups" die Gruppen auslesen inklusive Benutzern die in den Gruppen sind. Kann mir da jemand weiterhelfen? Danke schon mal für die Antworten. Gruss Thomas