Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Per Login Script Active Directory Objekte auslesen und Shares Zuordnen (Shares und Printers)

Mitglied: Seeky99

Seeky99 (Level 1) - Jetzt verbinden

26.09.2013 um 11:35 Uhr, 2012 Aufrufe, 2 Kommentare

Hallo,
ich möchte folgendes Szenario abbilden:

Ich möchte in bestimmten OU's (Organization Unit) Printer und Share Objekte erstellen.
Das lässt sich ja mit der AD Konsole machen.

Im Printerobjekt wird der Pfad zum Druckserver, etc. eingetragen und der Name des Printers.
Im Share Objekt wird ebenfalls der Pfad Angegeben und weiters der Laufwerksbuchstabe.

Nun möchte ich ein Loginscript das die OU des Users ausliest und aufgrund der zuvor angelegten Objekte die Drucker und Shares mapped,
Das ganze auch Rekursiv. Das heißt wenn in einer OU ein Printerobjekt angelegt ist, sollte ein User der in darunterliegenden angelegt ist diesen Drucker
auch bekommen.

Ich habe das schonmal gesehen und möchte das gerne übernehmen. Die Frage ist nun hat jemand Erfahrung wo man derartige Loginscripte herbekommt ?

Ich finde die Verwaltung über diesen Weg sehr einfach da man in der Struktur einfach die Shares und Printer hinzufügen kann die dann automatisch gemappt werden.

Bin für jede Hilfe Dankbar !

lg.
Mitglied: lenny4me
26.09.2013 um 14:22 Uhr
Hallo,

schau die mal GPP's an. Ich persönlich halte das für die einfachste Möglichkeit. Scripte sind gut... aber gpps sind meiner Meinung nach besser und auch einfacher zu verwalten.

Grüße
Bitte warten ..
Mitglied: RetroDude
16.10.2013, aktualisiert um 14:53 Uhr
Hallo

Wenn Due Ressourcen per Script zuweisen möchtest, dann würde ich dies über Berechtigungsgruppen tun. Das geht am einfachsten. Diese Art von Membership ist am einfachsten per Script zuzuweisen.
Besipiel VBScrpipt:
01.
On Error Resume Next 
02.
Dim objFSO,objFILE,objShell,objNetwork 
03.
set objFSO=CreateObject("Scripting.FileSystemObject") 
04.
set objShell=CreateObject("Wscript.Shell") 
05.
set objNetwork=CreateObject("Wscript.Network") 
06.
 
07.
strHelpMsg="Hast Du Probleme? Dan löse sie! ;-) " 
08.
iErrorTimeout=10 
09.
blnShowError=Wahr 
10.
 
11.
'Verbinden der Netzlaufwerke nach Gruppenzugehörigkeit 
12.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Domain Users") Then MapIt "G:","\\FILE01\Data" 
13.
 
14.
'Verbinden der Printqueues nach Gruppenzugehörigkeit 
15.
If IsAMemberOf(objNetwork.UserDomain,objNetwork.UserName,"Domain Users") Then AddPrinterConnection "\\Print01\HpLaserJ" 
16.
' Standarddrucker setzen 
17.
objNetwork.SetDefaultPrinter "\\Print01\HpLaserJ" 
18.
 
19.
'Unabhängiges Verbinden von Laufwerken 
20.
MapIt "R:","\\FILE02\Public" 
21.
'Unabhängiges Verbinden von Printqueues 
22.
 AddPrinterConnection "\\Print01\HPDK1220c" 
23.
 
24.
 
25.
 
26.
 
27.
'Erstellen der Zusammenfassung 
28.
iDisplayTimeout=2 
29.
strMsg="" 
30.
strMsg=strMsg & vbcrlf 
31.
strMsg=strMsg & vbcrlf 
32.
'enumerate drives 
33.
Set objDrives = objNetwork.EnumNetworkDrives 
34.
strMsg=strMsg & "Network drive mappings:" & vbcrlf 
35.
For i = 0 to objDrives.Count - 1  Step 2 
36.
  strMsg=strMsg & "Drive " & objDrives.Item(i) & "=" & objDrives.Item(i+1) & vbcrlf  
37.
Next 
38.
strMsg=strMsg & vbcrlf 
39.
 
40.
'Anzeigen der Zusammenfassung 
41.
If strMsg<>"" Then objShell.Popup strMsg,iDisplayTimeout,"Logon Summary",vbOKOnly+vbInformation 
42.
'End of main script 
43.
 
44.
'////////////////////////////////////////////////// 
45.
Function PasswordExpires(strDomain,strUser) 
46.
On Error Resume Next 
47.
Dim objUser 
48.
Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser & ",user") 
49.
PassExp=INT(objUser.MaxPasswordAge/86400)-INT(objUser.PasswordAge/86400) 
50.
 
51.
If PassExp<0 Then  
52.
 strPassMsg="Your password never expires." 
53.
Else 
54.
 strPassMsg="Your password expires in " & PassExp & " day(s)" 
55.
end If 
56.
 
57.
PasswordExpires=strPassMsg 
58.
End Function 
59.
 
60.
Function IsAMemberOf(strDomain,strUser,strGroup) 
61.
On Error Resume Next 
62.
Set objUser=GetObject("WinNT://" & strDomain & "/" & strUser & ",user") 
63.
Set objGrp=GetObject("WinNT://" & strDomain & "/" & strGroup & ",group") 
64.
 
65.
If objGrp.IsMember(objUser.ADsPath) Then 
66.
	IsAMemberOf=True 
67.
Else 
68.
	IsAMemberOf=False 
69.
End If  
70.
 
71.
End Function 
72.
 
73.
Sub MapIt(strDrive,strMap) 
74.
On Error Resume Next 
75.
If objFSO.DriveExists(strDrive) Then objNetwork.RemoveNetworkDrive(strDrive) 
76.
 
77.
objNetwork.MapNetworkDrive strDrive,strMap 
78.
 
79.
If Err.Number<>0 And blnShowError Then 
80.
	strMsg="There was a problem mapping drive " & UCase(strDrive) & " to " &_ 
81.
	strMap & VbCrLf & strHelpMsg & VbCrLf & "Error#:" & Hex(err.Number) &_ 
82.
	VbCrLf & Err.Description 
83.
	objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
84.
	Err.Clear 
85.
End If 
86.
 
87.
End Sub 
88.
 
89.
Sub AddPrinterConnection(strPrinterUNC) 
90.
On Error Resume Next 
91.
 
92.
objNetwork.AddWindowsPrinterConnection strPrinterUNC 
93.
 
94.
If Err.Number<>0 And blnShowError Then 
95.
	strMsg="There was a problem mapping " & UCase(strPrinterUNC) & ". " &_ 
96.
	vbcrlf & VbCrLf & strHelpMsg & VbCrLf & "Error#:" & Hex(err.Number) &_ 
97.
	VbCrLf & Err.Description 
98.
	 
99.
	objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
100.
	Err.Clear 
101.
End If 
102.
 
103.
end sub 
104.
 
105.
Sub AddPrinterPortConnection(strPort,strPrinterUNC) 
106.
On Error Resume Next 
107.
 
108.
objNetwork.AddPrinterConnection strPort,strPrinterUNC 
109.
 
110.
If Err.Number<>0 And blnShowError Then 
111.
	strMsg="There was a problem mapping " & UCase(strPrinterUNC) & " to " &_ 
112.
	strPort & vbcrlf & VbCrLf & strHelpMsg & VbCrLf & "Error#:" & Hex(err.Number) &_ 
113.
	VbCrLf & Err.Description 
114.
	 
115.
	objShell.Popup strMsg,iErrorTimeOut,"Error",vbOKOnly+vbExclamation 
116.
	Err.Clear 
117.
End If 
118.
 
119.
end sub 
120.
 
Diese Scripts kannste per Policy auf den entsprechenden OUs zuweisen.

Gruss
RetroDude
Bitte warten ..
Ähnliche Inhalte
Samba
Samba Share mit Active Directory
gelöst Frage von BleifussSamba12 Kommentare

Hallo zusammen, ich kann meine Samba Share im AD leider nur mit der IP-Adresse \\10.0.xx.xx erreichen. Nicht aber mit ...

Windows Server

Verbieten Active Directory Objekte zu bearbeiten

Frage von saesch82Windows Server2 Kommentare

Hallo Admins, ich möchte gerne eine Reihe von Accounts haben, welche in der Lage sind Clients in die Domäne ...

Windows Server

Active Directory Benutzer ohne Login-Recht

Frage von gubbeldigubWindows Server4 Kommentare

Hallo, ich habe relativ wenig Erfahrung im Umgang mit AD. Also habe ich anhand eines Lehrbuches versucht ein Beispiel-Directory ...

Batch & Shell

Powershell: Sicherheitsgruppen der Active Directory Objekte anpassen

gelöst Frage von MahagonBatch & Shell2 Kommentare

Guten Morgen bzw Mahlzeit :) ich versuche im Augenblick Sicherheitsgruppen via Skript bei AD Objekten (z.B: Benutzer) zu verändern. ...

Neue Wissensbeiträge
Windows Userverwaltung

Passwortwechsel in der Domain bei Anmeldung erzwingen

Anleitung von Looser27 vor 28 MinutenWindows Userverwaltung

Nachdem es immer wieder User geschafft haben, sich während des laufenden Betriebes auszusperren, habe ich nach einer Möglichkeit gesucht, ...

Ausbildung

Linux-Ausstieg in Niedersachsen - Windows statt Bugfix

Information von StefanKittel vor 3 TagenAusbildung37 Kommentare

Sind ja nur Steuergelder

Speicherkarten

Neuer Speicherkartentyp - zunächst nur für Huawei-Smartphones (künftig auch für Notebooks u. Tablets?)

Tipp von VGem-e vor 5 TagenSpeicherkarten6 Kommentare

Servus, als ob das "Chaos" i.S. Speicherkarten noch nicht groß genug wäre?! Evtl. kommt dieser neue Kartentyp bald auch ...

Sicherheit

Diverse D-Link-Router durch drei Schwachstellen kompromittierbar

Information von kgborn vor 5 TagenSicherheit1 Kommentar

Hat jemand D-Link-Router in Verwendung? Einige Modelle sind sicherheitstechnisch offen wie ein Scheunentor. Äußerst unschöne Sache, aber nichts neues ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Passwortwechsel Zeitpunkt festlegen
gelöst Frage von Looser27Windows Userverwaltung28 Kommentare

Guten Morgen liebe Kolleginnen und Kollegen, da es eine Userin in meinem Urlaub geschafft hat, sich vom AD vollständig ...

Windows Server
Probleme im AD am Außenstandort
gelöst Frage von emeriksWindows Server19 Kommentare

Hi, wir haben ein Problem mit AD und GPO am Außenstandort und ich stehe momentan mächtig auf dem Schlauch. ...

Microsoft
Netzlaufwerksordner Berechtigungen Speichern unter aus Programmen
Frage von ITler7Microsoft15 Kommentare

Moin, bin in ein neues Unternehmen eingetreten und habe die Anforderung bekommen Berechtigungen auf einige Ordner anzupassen, da bisher ...

CMS
Seltsame Joomla-Meldung auf unserer WebSite
Frage von Winfried-HHCMS14 Kommentare

Hallo in die Runde! Kennt sich jemand mit Joomla aus? Im Backend unserer WebSite lesen wir seit einiger Zeit ...