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, 2052 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

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

CMS

Xibo Berechtigungen bzw. Login mit Active Directory verbinden

Frage von ZelgiusCMS1 Kommentar

Hallo werte Administratoren, ich hätte wieder einmal eine Frage. Vor 3 Monaten habe ich in meiner Firma mittels Xibo ...

Neue Wissensbeiträge
Datenschutz

SiSyPHuS Win10: Analyse der Telemetriekomponenten in Windows 10

Tipp von freesolo vor 17 StundenDatenschutz1 Kommentar

Alle die sich detailliert für die Datensammlung interessieren die unter Windows 10 stattfindet, sollten sich folgende Analyse des BSI ...

Sicherheit
Adminrechte dank Intel-Grafikkarte
Information von DerWoWusste vor 20 StundenSicherheit1 Kommentar

ist das Advisory, welches beschreibt, welche Intel HD Graphics Modelle Sicherheitslücken haben, mit denen sich schwache Nutzer zu Admins ...

Internet

EU Urheberrechtsreform: Eingriff in die Internetkultur

Information von Frank vor 1 TagInternet1 Kommentar

Liebe Besucherin, lieber Besucher, warum erscheint das obere Banner in allen Beiträgen? Aus Protest gegen Teile der geplanten EU-Urheberrechtsreform ...

Windows Server
Windows Backup - FilterManager Event 3
Tipp von NixVerstehen vor 2 TagenWindows Server

Hallo zusammen, ich bin kein gelernter ITler und auch beruflich nicht in dem Feld tätig. Wir setzen in unserem ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Glasfaserkabel verlegen und Anschlüsse setzen
Frage von LLL0rdLAN, WAN, Wireless21 Kommentare

Hallo Leute, ich muss demnächst ein Netzwerkkabel auf einer Länge von ca. 70 Metern verlegen. Das Netzwerkkabel soll dabei ...

Windows Server
Mac Rechner im Windows Netzwerk - was jetzt?
gelöst Frage von Kopfg3ldWindows Server18 Kommentare

Hallo zusammen, ich habe folgende Herausforderungen. Aber erst mal was kurz zum Netzwerk - Windows Server (ältester ist ein ...

Microsoft Office
Sharepoint 2016 mag keine Umlaute in .docx-Titeln
gelöst Frage von DerWoWussteMicrosoft Office14 Kommentare

Moin Kollegen. Nutzt hier jemand Sharepoint? Könnt Ihr, unabhängig von der Sharepointversion, bitte einen Test machen? Ladet ein .docx ...

Basic
VBS soll alle Ordner auswählen, die im Startmenu angezeigt werden
Frage von Senseless-CreatureBasic12 Kommentare

Guten Morgen - gibt es eine Möglichkeit, per VBS das Startmenu in Win10 zu modifizieren? Ich beherrsche VBS mittlerweile ...