Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 5272 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 7
gelöst Batch-Skript oder VBS Skript zum Sichern von Office Vorlagen (2)

Frage von Ceejaay zum Thema Windows 7 ...

Entwicklung
gelöst Grafische Darstellung - Fortschrittsanzeige VBS Skript (7)

Frage von Komoran12 zum Thema Entwicklung ...

Windows Server
Drucker müssen immer wieder neu eingebunden werden (6)

Frage von tayfun zum Thema Windows Server ...

Vmware
gelöst ESXi .vmdk kann nicht eingebunden werden (13)

Frage von Leo-le zum Thema Vmware ...

Neue Wissensbeiträge
Windows 10

Erneutes Starten eines Programmes mit Admin-Rechten

Tipp von Estefania zum Thema Windows 10 ...

Ubuntu

Ubuntu 17.10 steht zum Download bereit

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(3)

Information von thomasreischer zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (16)

Frage von Lynkon zum Thema TK-Netze & Geräte ...