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, 2025 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
Windows Server

Login Script verzögert ausführen

Frage von Intruder0001Windows Server6 Kommentare

Hallo gibt es die Möglichkeit das login Script verzögert nach der Anmeldung ca. 10-20sek auszuführen ?? Gerade bei schnellen ...

Windows Server

Login Script als Domänenadmin ausführen

Frage von erikroWindows Server28 Kommentare

Hallo zusammen, folgendes Problem: Es sollen Außendienstmitarbeiter je nach Einsatzort einer bestimmten Gruppe im AD zugewiesen werden, damit sie ...

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 ...

Windows Server

Terminal Service Printers Event1111

gelöst Frage von rocco61Windows Server3 Kommentare

Guten Morgen zusammen, mich nervt seit langen der Eventeintrag Terminalservice Printers EvenID1111. Das egal auf dem 2012 R2 oder ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Trend Micro Worry Free Business Security 10.0 - erneutes Patch (1494) erschienen!

Tipp von VGem-e vor 6 StundenErkennung und -Abwehr1 Kommentar

Moin, unter ist ein neuer Patch verfügbar, der offenbar auch Windows 10.1809 unterstützt. Tja, wie letztes Mal auch, erst ...

Humor (lol)
Administrator.de Perlen
Tipp von DerWindowsFreak2 vor 5 TagenHumor (lol)6 Kommentare

Hallo, Heute beim stöbern auf dieser Seite bin auf folgenden Thread aus dem Jahre 2006 gestossen: Was meint ihr? ...

Erkennung und -Abwehr
OpenSSH-Backdoor Malware erkennen
Tipp von Frank vor 5 TagenErkennung und -Abwehr

Sicherheitsforscher von Eset haben 21 Malware-Familien untersucht. Die Malware soll Hintertüren via OpenSSH bereitstellen, so dass Angreifer Fernzugriff auf ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 9 TageniOS5 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

Heiß diskutierte Inhalte
Samba
Windows 10 Client in Samba-Domäne hinzufügen scheitert
Frage von diwaffmSamba32 Kommentare

Hi Leute, ich habe einen Samba Server in der Version 4.9.3 auf einer OpenSuse Maschine laufen. Damit sind momentan ...

Router & Routing
Verbindung zweier Netze via Lancom VPN-Router . Problem
Frage von ThorstenBrRouter & Routing28 Kommentare

Hallo Leute, mein erster Post hier im Forum ich versuche mich gerade in Lancom Router ein zu arbeiten. Dafür ...

Windows Server
Testweise Installation eines Domänencontrollers
Frage von gerd33Windows Server18 Kommentare

Hallo Zusammen, mein Netzwerk ( 2 Praxen + 1 Wohnhaus) ist per VPN (WAN) verbunden, mit jeweils einem LAN, ...

Windows Systemdateien
Verknüpfungen nach Pfadwechsel
Frage von Hendrik2586Windows Systemdateien17 Kommentare

Guten Morgen meine lieben Kollegen und Kolleginnen, ich hab da mal eine Frage die Ihr sicher schon kennt. Es ...