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

Wie weise ich einer Benutzer einer OU Drucker, Netzlaufwerke, Verknüpfungen auf Desktop etc zu?

Mitglied: retodellatorre

retodellatorre (Level 1) - Jetzt verbinden

09.07.2006, aktualisiert 13.07.2006, 8254 Aufrufe, 4 Kommentare

Hallo

Ich administriere ein Win 2003 Netzwerk mit 1 Server, ca 60 Clients und ca 200 User. AD, DNS; DHCP, Servergespeicherte Profile; läuft alles.

Meine Fragen:

1. Ich möchte den Benutzer einer OU Drucker und Netzlaufwerke zuweisen. Die Benutzer haben sich noch nie angemeldet, ihr Profil ist also noch inexistent.
Wenn die Benutzer sich das erste mal anmelden, erhalten sie den Default User in der Netlogon Freigabe und dann sollten sie eben nach OUs spezifische Netzlaufwerke, Drucker und Verknüfungen auf dem Desktop erhalten. Wie macht man das?

2. Wieviele Benutzer können gleichzeitig mit dem selben Benutzer angemeldet sein?

Vielen Dank für Eure Hilfe!
Gruss
Reto
Mitglied: WaRCraFt
09.07.2006 um 19:02 Uhr
Du must der einsprechenden OU eine GPO zuweisen wo du halt ein loginscript ausführst.
Dann gilt alles was im loginscript steht für die user in der OU.
Bitte warten ..
Mitglied: potsdam
10.07.2006 um 08:41 Uhr
Wie WaRCraFt schreibt über ein Loginscript und GPO.

Das Script könnte so aussehen:

(Auszug aus meinem Script - eventuell ist noch überflüssiges vorhanden)

Dim strComputerName
Dim strUserName
Dim strDomainName
Dim BtnCode

Dim objADSysInfo
Dim wshNetwork
Dim WshShell
Dim WshSysEnv
Dim oShell
Dim oShFolder
Dim objUser
Dim objOU
Dim rootDSE
Dim oPq
Set wshNetwork = WScript.CreateObject( "WScript.Network" )
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshProcEnv = WshShell.Environment("Process")
Set WshUserEnv = WshShell.Environment("USER")
Set objADSysInfo = CreateObject("ADSystemInfo")
Set oShell = CreateObject("Shell.application")
Set oShFolder = oShell.Namespace(17)
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)
Set objOU = GetObject(objUser.parent)
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Warten bis der Anmeldename des Users ermittelt wurde
Do While wshNetwork.username = ""
WScript.Sleep 250
Loop

strComputerName = wshNetwork.computerName
strUserName = wshNetwork.userName
strDomainName = wshNetwork.userDomain


If UCase(strUserName) = "ADMINISTRATOR" Then
Call Adminlogin
Else
Call subdrivemap 'Aufruf der Subroutine zum Laufwerkmappen
End If
Call SubmapprinterLPT
'* Call Submapprinter
Call subdriverename
Call Favoriten
Call SubZusammenfassung
Call Zenworksstart



Sub subdrivemap()
' ### ADSI abfragen
adspath = "WinNT://" & strDomainName & "/" & strUserName
Set adsobj = GetObject( adspath )



' vorhandene Laufwerke löschen
On Error Resume Next
wshNetwork.RemoveNetworkDrive "I:", True, True
wshNetwork.RemoveNetworkDrive "L:", True, True
wshNetwork.RemoveNetworkDrive "P:", True, True



' Laufwerke mappen
wshNetwork.MapNetworkDrive "L:", "\\"&Server2&"\AUS"
wshNetwork.MapNetworkDrive "P:", "\\"&Server1&"\Pro"
wshNetwork.MapNetworkDrive "I:", "\\"&Server2&"\User\"& strUserName

For Each prop In adsobj.groups

'* Jetzt noch ein paar Laufwerke abhängig von Gruppenzugehörigkeit
'* ACHTUNG! Gruppennamen immer GROSS schreiben

Select Case UCase(prop.name)
Case "GRUPPENNAME"
wshNetwork.MapNetworkDrive "M:", "\\"&Server2&"\AUS\APEV"


End Select
Next

End Sub

Sub Submapprinter()
objOU.Filter=Array("printqueue")
For Each oPq In objOU
wshNetwork.AddWindowsPrinterConnection oPq.PrinterPath
Next
End Sub

Sub SubmapprinterLPT()


objOU.Filter=Array("printqueue") '*Filtert alle Printer Queue Objekte aus der OU des Benutzers
For Each oPq In objOU


If UCase(oPq.PrinterName) = UCase(objUser.extensionAttribute2) Then
On Error Resume Next
'* Trennt bei Vorhandensein die Verbindung von LPT1:
wshNetwork.RemovePrinterConnection "LPT1", True, True
wshNetwork.AddPrinterConnection "LPT1", oPq.PrinterPath
wshNetwork.AddWindowsPrinterConnection oPq.PrinterPath
wshNetwork.SetDefaultPrinter oPq.Printerpath
Else
wshNetwork.AddWindowsPrinterConnection oPq.PrinterPath

End If
Next
End Sub
Sub subdriverename()
For Each oShFolderItem In oShFolder.Items
Select Case oShFolderItem.Path
Case "I:\" oShFolderItem.Name = "Meine persönlichen Daten"
Case "L:\" oShFolderItem.Name = "Globaler Austausch"
Case "P:\" oShFolderItem.Name = "Projekt"

End Select
Next

Set oShell = Nothing
Set oShFolder = Nothing
Set oShFolderItem = Nothing

End Sub
Sub Favoriten ()
Set folder = objFSO.GetFolder(strFavoriten)
For Each file In folder.files
If file.type = "Verknüpfung" OR Shortcut Then
file.Delete
End If
Next
Set oUrlLink =WshShell.CreateShortcut(strFavoriten &"\Laufwerk I.lnk")
oUrlLink.TargetPath = "I:\"
oUrlLink.Save
Set oUrlLink =WshShell.CreateShortcut(strFavoriten &"\Laufwerk L.lnk")
oUrlLink.TargetPath = "L:\"
oUrlLink.Save
Set oUrlLink =WshShell.CreateShortcut(strFavoriten &"\Laufwerk M.lnk")
oUrlLink.TargetPath = "M:\"
oUrlLink.Save
End Sub
Sub SubZusammenfassung ()

Set colDrives = wshNetwork.EnumNetworkDrives
Set colPrinters = wshNetwork.EnumPrinterConnections
Dim CRLF
CRLF = Chr(13) & Chr(10)
Dim Company
Company = "Firmenname"

strMsg = "Anmelde Ergebnisse" & CRLF & CRLF & "Benutzername" & Chr(9) & "= " & strUserName & CRLF & "Computername" & Chr(9) & "= " & strComputerName & CRLF & "Domäne" & Chr(9) & Chr (9) & "= " & strDomainName & CRLF
'* Verbundene Laufwerke Listen
If colDrives.Count = 0 Then
strMsg = strMsg & CRLF & "Kein Netzlaufwerk ist verbunden." & CRLF
Else
strMsg = strMsg & CRLF & "Verbundene Netzlaufwerk(e):" & CRLF
For i = 0 To colDrives.Count - 1 Step 2
strMsg = strMsg & CRLF & colDrives(i) & Chr(9) & colDrives(i + 1)
Next
End If
'* Verbundene Drucker Listen
If colPrinters.Count = 0 Then
strMsg = strMsg & CRLF & CRLF & _
"Kein Netzwerk-Drucker ist verbunden." & CRLF
Else
strMsg = strMsg & CRLF & CRLF & _
"Verbundene Netzwerk-Drucker:" & CRLF
For i = 0 To colPrinters.Count - 1 Step 2
strMsg = strMsg & CRLF & colPrinters(i) & _
Chr(9) & colPrinters(i + 1)
Next
End If
strMsg = strMsg & CRLF & CRLF & "Dieses Fenster schließt sich in 10 Sekunden automatisch." & CRLF & "Wir wünschen noch einen schönen Arbeitstag"

BtnCode = WshShell.PopUp(strMsg,10,Company,64)

End Sub


Gruß Stefan
http://www.Admins-Tipps.de
Bitte warten ..
Mitglied: retodellatorre
12.07.2006 um 18:16 Uhr
Hallo !
WoW Danke für das riesen script!

Noch eine andere Frage:
Ich habe mit folgendem loginscript, Benutzern ein Netzlaufwerk zugewiesen:

net use u: \\server\freigabe /persistent no:

Wie kann ich nun noch erreichen, dass das Netzlaufwerk im Arbeits platz nicht den Namen "freigabe$ an server\freigabe$ u:" (oder so ähnlich) trägt, sondern einfach und Hübsch "Freigabe"

Danke für Eure Tips

Gruss
Reto
Bitte warten ..
Mitglied: potsdam
13.07.2006 um 08:47 Uhr
genau den teil des vbs-scripts hab ich weggelassen, moment ... steht aber auf meiner Homepage:

siehe: http://www.admins-tipps.de/Microsoft/Windows_Scripting_Host_%28WSH%29/V ...

moment, steht doch oben schon drin - die routine subdriverename
Bitte warten ..
Ähnliche Inhalte
Microsoft
Ich weis nicht weiter
Frage von hahn.LarsMicrosoft19 Kommentare

Ich brauch mal euren Rat Problem: - Leerer Pc Intel i7 7700k Msi z270-pro Samsung Evo 850 250gb 650 ...

Virtualisierung

Desktop löscht überall Verknüpfung

gelöst Frage von Questionmark93Virtualisierung4 Kommentare

Wir benutzen den Thinstuff XPVS Server. Wir haben immer wieder Probleme damit :D Eines davon wäre: Wir haben gewisse ...

Windows Userverwaltung

Desktop Verknüpfung nicht löschbar ausrollen

gelöst Frage von GeestRiderWindows Userverwaltung11 Kommentare

Moin, ich würde gerne auf 20 Rechner eine Desktop Verknüpfung ausrollen, die nicht gelöscht werden kann. Gibt es eine ...

Windows Systemdateien

Verknüpfungen auf "Alluser Desktop"

gelöst Frage von chhadmWindows Systemdateien3 Kommentare

Hallo zusammen, evtl. kann mir jemand bei meinem Anliegen weiterhelfen. Ich habe auf allen Clients, die in der Domäne ...

Neue Wissensbeiträge
Windows 10

Mikrofon von Headset geht nach Update auf Windows 10 1803 nicht mehr

Tipp von Deepsys vor 16 StundenWindows 10

Ich verwende ein Plantronics Headset das per USB mit dem Windows 10 PC verbunden ist. Damit kann ich auch ...

Video & Streaming

Ruckelfreies Fernsehen auf Smartphone oder Tablet - in SD oder gar HD - Eine Alternative zum Fritz DVB-C Receiver

Anleitung von power-user vor 1 TagVideo & Streaming7 Kommentare

Wer kennt das nicht: Man möchte gemütlich auf dem Balkon sitzen und vielleicht grillen und dabei das WM-Spiel gucken ...

Erkennung und -Abwehr
Trendmicro WFBS 10 ist in deutsch verfügbar!
Tipp von VGem-e vor 1 TagErkennung und -Abwehr4 Kommentare

Servus Kollegen, downloadbar unter

Windows Update

Microsoft Patchday Juni 2018 - BSOD, obwohl noch kein Patch freigegeben

Erfahrungsbericht von diemilz vor 1 TagWindows Update5 Kommentare

Hallo zusammen, wir hatten hier letzte Woche ein massives Problem. Alles begann damit, dass ein Mitarbeiter kurz vor Feierabend ...

Heiß diskutierte Inhalte
Windows Userverwaltung
User Überwachung
Frage von YellowcakeWindows Userverwaltung33 Kommentare

Hey ich habe von unserem neuem Datenschutzbeauftragten ein kleines Horror Paket bekommen. Ich soll wenn es möglich ist, das ...

Outlook & Mail
Nachweis des Löschens einer Email nach DSGVO in Outlook
Frage von linuxadmOutlook & Mail18 Kommentare

Hallo Forum, wie wahrscheinlich viele von Euch kämpfe ich mit der Umsetzung der DSGVO bei meinen Kunden. Konkret geht ...

Video & Streaming
PVR-Projekt - RTSP - Streams auf NAS aufnehmen - welche Tools sind am leichtesten einzurichten ?
Frage von power-userVideo & Streaming18 Kommentare

Hallo zusammen, hier die Details zur obigen Frage: AAusgangspunkt / Grundvoraussetzungen Wir betreiben hier ein kleines Heimnetzwerk. 2 Smartphones, ...

Batch & Shell
Powershell Netzwerkdrucker auflisten
gelöst Frage von schiggi85Batch & Shell18 Kommentare

Hallo zusammen, ich möchte mit dem invoke-command bei einem remoteclient die installierten Netzwerkdrucker des Users abfragen. Nur klappt das ...