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
GELÖST

Drucker werden per VBS Skript nicht eingebunden

Frage Microsoft Windows Server

Mitglied: Rapante90

Rapante90 (Level 1) - Jetzt verbinden

23.01.2009, aktualisiert 15:50 Uhr, 5282 Aufrufe, 4 Kommentare

Hallo Zusammen,
ich habe ein Problem mit einem VBS Skript, welchses bestimmte Drucker für bsteimmt Benutzergruppen der Domäne bei der Anmeldung einbindet.

Das Skript an sich funktioniert einwandfrei, wenn man es mit Administratorenrechten startet.

Sobald man es aber unter einem normalen User ausführt, geschieht nichts.

Wenn man aber als normaler User die Drucker manuell einbindet \\Servername\Druckerfreigabe funktioniert es.

Der erste Gedankte ich natürlich ein Rechte Problem.
Aber mich irritiert, warum ich die Drucker dann als normaler User manuell einbinden kann.

Das Skript wird bei den normalen Usern (keine Admin-Rechte) auch ausgeführt.

Habe es getestet indem ich ein Fehler in das Skript gebaut habe und anschließend eine Meldung bekommen habe, dass das Skript nicht ausgeführt werden kann.

Ähnliche Themen wurden hier bereits lang und breit Diskutiert, allerdings hat bisher keine der Lösungsvorschläge der anderen Beiträge wirkung gezeigt.

Basissystem: Windows Server 2003 SBS


Hat noch jemand das Problem oder einen Lösungs-Vorschlag?

Danke im voraus
mfg Nienhaus
Mitglied: 60730
23.01.2009 um 21:25 Uhr
Servus,

ich lese in deinem Beitrag:

  • ein Problem mit einem VBS Skript..
  • Das Skript an sich...
  • Der erste Gedankte ich natürlich ein Rechte Problem.

Wie wäre es zur Abwechslung das benutzte Script nicht nur dauernd zu erwähnen, sondern uns auch einen Einblick in das Script zu geben?

Gerne per < code> < /code> (ohne Leerzeichen hinter <)


Ps:
Hat noch jemand das Problem oder einen Lösungs-Vorschlag?

Nimm Kix ...
nimm rundll32...

Gruß

Hilfe zur Selbsthilfe und wenn die Hilfe nur darin bestehen sollte, dabei zu helfen eine Frage richtig zu stellen
Bitte warten ..
Mitglied: Rapante90
26.01.2009 um 10:19 Uhr
Hier das Script.

--------------Hauptscript-------------------

== Universelle Einbindung externer Skriptdateien (NUR VBS)
Function Include(skriptname)
Dim fso ' As Scripting.FileSystemObject
Dim oTX ' As Scripting.TextStream
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(skriptname) Then
Set oTX = fso.OpenTextFile(skriptname)
ExecuteGlobal oTX.ReadAll
If Err.Number <> 0 Then ' Fehler
Include = Err.Number & ":" & Err.Description
Else ' kein Fehler
Include = ""
End If
oTX.Close
Else ' Datei nicht gefunden
Include = "Datei existierte nicht!"
End If
End Function


Include ("\\mem.mem.local\Anmeldeskripte\Drucker_Mappen.vbs")

On Error Resume Next

'Gruppenmitgliedschaften des aktuellen Benutzers suchen
Set objSysInfo = CreateObject("ADSystemInfo")
Set objNetwork = CreateObject("Wscript.Network")

strUserPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(strUserPath)


'Fuer jede der gefunden Gruppen folgende Anweisungen durchfuehren
For Each strGroup in objUser.MemberOf
strGroupPath = "LDAP://" & strGroup
Set objGroup = GetObject(strGroupPath)
strGroupName = objGroup.CN

Select Case strGroupName


Case "gru_buero"
'Laufwerkseinbindung
'objNetwork.MapNetworkDrive "F:", "\\mem.mem.local\erp_dos", "False"
'objNetwork.MapNetworkDrive "L:", "\\mem.mem.local\hauptverzeichnis", "False"
'objNetwork.MapNetworkDrive "Z:", "\\ts001\dvd", "False"

'Druckerlöschen
'DeletePrinter "\\mem.mem.local\Q49 A4 normal", "Q49 A4 normal"
'DeletePrinter "\\mem.mem.local\Q49 Gelb A4", "Q49 Gelb A4"
'DeletePrinter "\\mem.mem.local\Q49 GePa A4", "Q49 GePa A4"
'DeletePrinter "\\mem.mem.local\Q33A3", "Q33A3"
'DeletePrinter "\\mem.mem.local\Q33normal", "Q33normal"
'DeletePrinter "\\mem.mem.local\Q33GePa", "Q33GePa"
'DeletePrinter "\\mem.mem.local\2550 Normal", "2550 Normal"
'DeletePrinter "\\mem.mem.local\2550 GePa", "2550 GePa"
'DeletePrinter "\\mem.mem.local\Fax", "Fax"
'DeletePrinter "\\control-b2-1-xp\HPLJ_1022", "HPLJ_1022"

'Druckereinbindung
MapPrinter "\\mem.mem.local\Q49 A4 normal", "Q49 A4 normal"
MapPrinter "\\mem.mem.local\Q49 Gelb A4", "Q49 Gelb A4"
MapPrinter "\\mem.mem.local\Q49 GePa A4", "Q49 GePa A4"
MapPrinter "\\mem.mem.local\Q33A3", "Q33A3"
MapPrinter "\\mem.mem.local\Q33normal", "Q33normal"
MapPrinter "\\mem.mem.local\Q33GePa", "Q33GePa"
MapPrinter "\\mem.mem.local\2550 Normal", "2550 Normal"
MapPrinter "\\mem.mem.local\2550 GePa", "2550 GePa"
MapPrinter "\\mem.mem.local\Fax", "Fax"
MapPrinter "\\control-b2-1-xp\HPLJ_1022", "HPLJ_1022"


End Select

next

sUsername = objNetwork.UserName

Select Case sUsername

Case "hj_marx"
'DeletePrinter "\\gl-B3-1-xp\HPLJ_1022HJ", "HPLJ_1022HJ"
MapPrinter "\\gl-B3-1-xp\HPLJ_1022HJ", "HPLJ_1022HJ"

End Select


----------------Hilfsscript-----------------

Skript Drucker_Mappen.vbs:

'Funktion zum Festlegen des Standarddruckers
Sub SetDefaultPrinter(sUNC,sName)
Dim oNetwork
Set oNetwork = CreateObject("WScript.Network")
oNetwork.SetDefaultPrinter sName
End Sub


'Mappen von Druckern
Sub MapPrinter(sUNC,sName)
Dim oNetwork
Set oNetwork = CreateObject("WScript.Network")
oNetwork.AddWindowsPrinterConnection sUNC,sName
End Sub

'Loeschen von Druckern
Sub DeletePrinter(sUNC,sName)
Dim oNetwork
on error resume next
Set oNetwork = CreateObject("WScript.Network")
oNetwork.RemovePrinterConnection sUNC,sName
End Sub
Bitte warten ..
Mitglied: 60730
26.01.2009 um 11:49 Uhr
Hier die Antwort.

Der erste Gedankte ich natürlich ein Rechte Problem.

Rischdigg

Hat noch jemand das Problem oder einen Lösungs-Vorschlag?

Nimm Kix ...
nimm rundll32...
End Antwort
Bitte warten ..
Mitglied: Rapante90
26.01.2009 um 11:50 Uhr
Problem hat sich so eben gelöst,
die Domänenbenutzer hatten auf dem Registry Pfad:

HKLM/SOftware/Microsoft/WindowsNT/CurrentVersion/Print

keine Berechtigungen zum schrieben / ändern

Verteile die Berechtigung jetzt per GPO.

Danke für die Antwort.

MfG Nienhaus
Bitte warten ..
Ähnliche Inhalte
Windows Server
Drucker müssen immer wieder neu eingebunden werden
Frage von tayfunWindows Server6 Kommentare

Sehr geehrter Administrator, in einem Windows 7, 64bit-Netzwerk habe ich folgendes Problem: Nach jeder Benutzeranmeldung werden alle Drucker an ...

Windows 7
Batch-Skript oder VBS Skript zum Sichern von Office Vorlagen
gelöst Frage von CeejaayWindows 72 Kommentare

Hallo, ich möchte per Batch-Skript oder VBS-Skript unter Windows 7 folgendes tun: - Registry-Key (nur den Wert, in diesem ...

Entwicklung
Grafische Darstellung - Fortschrittsanzeige VBS Skript
gelöst Frage von Komoran12Entwicklung7 Kommentare

Hallo Ihr, ich brauche mal wieder eure Hilfe. Ich für mit nachfolgendem VBS Skript (hier im Forum gefunden) mehrere ...

VB for Applications
VBS Skript für AD Attribute füllen
gelöst Frage von pixel0815VB for Applications4 Kommentare

Guten Tag zusammen, ich bin auf der Suche nach einem VBS Skript, mit dem ich das Location Attribut eines ...

Neue Wissensbeiträge
Windows 10

Windows 10 Hello-Anmeldung per Foto ausgehebelt

Tipp von kgborn vor 3 StundenWindows 10

Windows Hello ist eine Funktion, um sich per Fingerabdruck-, Gesichts- oder Iriserkennung bei Windows 10-Geräten anzumelden (siehe), setzt aber ...

Perl

Perl hat heute Geburtstag: 30 Jahre Perl: Lange Gesichter zum Geburtstag

Information von Penny.Cilin vor 10 StundenPerl2 Kommentare

Hallo, auch wenn es wenige wissen und noch weniger Leute es nutzen. Perl hat heute Geburtstag. 30 Jahre Perl ...

Sicherheit

Blackberry stirbt - Keine Updates für Priv mehr

Tipp von certifiedit.net vor 11 StundenSicherheit1 Kommentar

Blackberry wird zu einer 08/15 Firma und geht wohl mehr und mehr den Weg, den HTC schon ging. Von ...

Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 2 TagenWindows 1012 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Heiß diskutierte Inhalte
Windows Server
SCCM 2016: PXE Boot des Clients schlägt fehl
Frage von gabeBUWindows Server23 Kommentare

Hallo Zusammen Ich habe eine Testumgebung erstellt um über SCCM 2016 einen virtuellen Client aufzusetzen. Folgende Maschinen habe ich ...

Netzwerkgrundlagen
Belibiges Teilnetz einer Subnetzmaske rausfinden?
gelöst Frage von CenuzeNetzwerkgrundlagen19 Kommentare

Wundervollen Gutentag, mittlerweile kann ich Subnetting so einigermaßen, aber ein Problem habe ich noch. Netzwerkadresse und Boradcast errechnen ist ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless12 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Exchange Server
Exchange empfängt Emails - Kann aber keine Senden
gelöst Frage von niklasschaeferExchange Server11 Kommentare

Hallo, ich stehe gerade bei mir zuhause vor folgender Problemstellung. Gegeben sind 2x Hyper-V Host mit Windows Server 2016 ...