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