Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

Standarddrucker beim Logon abfragen und setzen

Frage Entwicklung VB for Applications

Mitglied: 43344

43344 (Level 1)

01.03.2007, aktualisiert 02.03.2007, 8955 Aufrufe, 2 Kommentare

bei Benutzern mit ständig wechselndem Arbeitsplatz

Morgen,

ich habe hier das merkwürdige Phänomen, dass Benutezr, die sich ständig an wechselnden Plätzen anmelden nach JEDER Systemanmeldung an JEDEM PC aufs Neue ihren Standarddrucker definieren müssen, da sich dieser auf den auf jedem PC installierten FreePDF Writer stellt.

Gedacht hatte ich mir eine Abfrage der bekannten Drucker beim Logon mittels prnmngr.vbs. Das Tool liefert mir eine Liste der Drucker, aber eben nur eine Liste. Wie kann ich diese Liste so verarbeiten, dass überprüft wird, ob ein Drucker an LPT1, bzw. USB installiert ist - sollte dies der Fall sein, diesen zum Standard machen - wenn nicht, überprüfen ob ein localport eingerichtet ist und dann diesen zum Standard machen??????

Vielleicht fällt dem Bieber ja wieder was feines ein ???? ;)


Grüße vom Dorf ...
Mitglied: bastla
01.03.2007 um 18:48 Uhr
Hallo Stylewalker!

Dürfte ich als Nicht-Bi(e)ber es auch versuchen? Vielleicht wäre ja das etwas für Dich:
01.
'SetDefaultPrinterByPort.vbs 
02.
strComputer = "."  
03.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
04.
 
05.
If CheckAndSet("LPT1:") Then WScript.Echo "LPT": WScript.Quit 
06.
If CheckAndSet("USB%") Then WScript.Echo "USB": WScript.Quit 
07.
r = CheckAndSet("%"): WScript.Echo "Irgendeiner ..." 
08.
 
09.
Function CheckAndSet(sPort) 
10.
Set colItems = objWMIService.ExecQuery( _ 
11.
    "SELECT * FROM Win32_Printer WHERE PortName LIKE '" & sPort & "'",,48) 
12.
For Each objItem in colItems 
13.
	objItem.SetDefaultPrinter() 
14.
Next 
15.
Set colItems = objWMIService.ExecQuery( _ 
16.
    "SELECT * FROM Win32_Printer WHERE PortName LIKE '" & sPort & "'",,48) 
17.
Found = False 
18.
For Each objItem in colItems 
19.
	If objItem.Default Then Found = True 
20.
Next 
21.
CheckAndSet = Found 
22.
End Function
Für jede Vorgabe eines Ports kannst Du mit einer "If"-Zeile (wie oben zB für "LPT1:" und "USB%") versuchen, einen daran angeschlossenen Drucker als Standarddrucker zu setzen und bei Erfolg das Script beenden (das "WScript.Echo" steht vorrangig zum Testen drinnen und kann samt Doppelpunkt entfernt werden).

Das %-Zeichen fungiert als Wildcard, sodass zB "LPT%" nach jedem Port, dessen Name mit "LPT" beginnt, sucht. Bei mehreren gefundenen Einträgen wird der letzte aus der Liste als Standarddrucker gesetzt.

Ein Suchbegriff "%" schließlich steht für "totale Verzweiflung " - in anderen Worten: "Nimm den erst- (oder genauer: letzt-) besten installierten Drucker!"

Grüße
bastla
Bitte warten ..
Mitglied: 43344
02.03.2007 um 10:04 Uhr
Ja alle Achtung, danke, funktioniert astrein ..... das mit totaler Verzweiflung hast du aber nett formuliert ;) .... trifft den Kern der Sache ;P !!
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
gelöst Textdatei auf den Standarddrucker drucken (3)

Frage von pdiddo zum Thema Batch & Shell ...

Exchange Server
GPO - Logon-Skript wird nicht ausgeführt (4)

Frage von Der-Phil zum Thema Exchange Server ...

Windows Server
Standarddrucker ändert sich während einer Remotedesktop Session (2)

Frage von karbaa zum Thema Windows Server ...

KiXtart
Aufgemotztes Logon Skript Vorschläge (2)

Frage von Avaatar zum Thema KiXtart ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 im Unternehmen? (25)

Frage von zorlayan zum Thema Windows 10 ...

Festplatten, SSD, Raid
Raid 1 2 SSD mit Windows Server 2016 (17)

Frage von jaywee zum Thema Festplatten, SSD, Raid ...

Netzwerkgrundlagen
Pro Contra "echtes Subnetting" VLSM (12)

Frage von killing.Apfelkuchen zum Thema Netzwerkgrundlagen ...

Voice over IP
Über Fritzfax over IP gehen nur einige Faxe (11)

Frage von shearer9 zum Thema Voice over IP ...