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 HKEY USERS via VBS auslesen zwecks Druckeranalyse

Mitglied: chas0rde

chas0rde (Level 1) - Jetzt verbinden

03.09.2007, aktualisiert 04.09.2007, 7075 Aufrufe, 1 Kommentar

Programmierung eines VBScripts, welches aus der Registry eines Terminalservers die gemappten Drucker (und deren Treiber) ausliest, um "Treiberleichen" zwecks verbesserter Systemstabilität zu deinstallieren

Hallo,
ich möchte ein Script schreiben, welches mittel VBS (oder auch ähnlichem) aus HKEY_USERS die gemappten Drucker der User an einem Win2000 TS mit Citrixumgebung ausliest.

Mit den gewonnenen Daten möchte ich anschließend eine Auswertung fahren, um nicht mehr verwendete Druckertreiber aus dem System zu entfernen und so die Stabilität zu erhöhen.

Ich scheitere jedoch schon direkt am Anfang beim Auslesen der Daten aus der Registy.

Folgendes Codebeispiel:
01.
Const HKEY_CLASSES_ROOT  = &H80000000 
02.
Const HKEY_CURRENT_USER   = &H80000001 
03.
Const HKEY_LOCAL_MACHINE  = &H80000002 
04.
Const HKEY_USERS          = &H80000003 
05.
Const HKEY_CURRENT_CONFIG = &H80000005 
06.
 
07.
  
08.
 
09.
Set reo = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") 
10.
 
11.
regKey = "S-1-5-21-527237240-113007714-682003330-18312\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts" 
12.
reo.EnumValues HKEY_USERS, regKey, arrValueNames, arrValueTypes 
13.
 
14.
Const REG_SZ        = 1 
15.
Const REG_EXPAND_SZ = 2 
16.
Const REG_BINARY    = 3 
17.
Const REG_DWORD     = 4 
18.
Const REG_MULTI_SZ  = 7 
19.
 
20.
For i=0 To UBound(arrValueNames) 
21.
    WScript.Echo arrValueNames(i) 
22.
    Select Case arrValueTypes(i) 
23.
        Case REG_SZ 
24.
            WScript.Echo "  String" 
25.
        Case REG_EXPAND_SZ 
26.
            WScript.Echo "  Expanded String" 
27.
        Case REG_BINARY 
28.
            WScript.Echo "  Binary" 
29.
        Case REG_DWORD 
30.
            WScript.Echo "  DWORD" 
31.
        Case REG_MULTI_SZ 
32.
            WScript.Echo "  Multi String" 
33.
    End Select 
34.
Next 
Das lesen aus HKEY_USERS klappt hier nicht.
Das Script bricht mit einem Fehler in Bezug auf UBound ab.
01.
Fehler:Typen unverträglich: UBound 
02.
Code: 800A000D
Ein Test mit isArray, ob arrValueNames ein Array ist scheitert.
Ich vermute also, dass ein quasi leeres Resultat zurückgeliefert wird.

Selbige Abfrage auf HKLM oder andere funktioniert.
Auch eine direkte Abfrage eines REG_SZ innerhalb des Pfades im Codebeispiel mittels WSH-Shell mittels readkey funktioniert.

Hat jemand eine Idee woran dies liegen könnte?

Das Script selbst wird direkt auf dem Terminalserver ausgeführt und die Einträge sind in der Registry vorhanden.

Danke
chaser
Mitglied: chas0rde
04.09.2007 um 09:21 Uhr
Hallo @ll,
ich habe einen alternativen Lösungsweg gefunden:

https://www.administrator.de/installierte_Drucker_auslesen.html#164791

mich interessiert jedoch trotzdem, warum das Auslesen in HKEY_USERS nicht funktioniert.
Also falls jemand eine Idee hat, kann diese ruhig posten ;)

Danke
chaser
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Mit PowerShell die Berechtigungen eines AD-Users auslesen

gelöst Frage von windelterroristBatch & Shell8 Kommentare

Huhu Admins Brauch eine hoffentlich kleine Unterstützung von euch im PowerShell Bereich. Versuche mit diesem Befehl die AD-User Information ...

Windows Server

Account-Sperrungen eines AD-Users auslesen

gelöst Frage von MissJonesWindows Server2 Kommentare

Hallo Zusammen, ist es möglich über Powershell alle Account-Sperrungen von einem AD User auslesen zu lassen? Ich soll quasi ...

VB for Applications

VBS - Vor- und Nachnamen auslesen

Frage von Ah3n0bar6usVB for Applications2 Kommentare

Ich könnte noch einmal (teuren) Rat gebracuhen. Ich versuche mir dem u.a. Script den kompletten Namen eines Nutzers vom ...

Batch & Shell

Eventlog Druckjobs mit VBS auslesen

Frage von joni2000deBatch & Shell4 Kommentare

Hallo zusammen, ich lese mit folgendem Code das Eventlog aus um die Druckjobs zu ermitteln. Das funktioniert auf dem ...

Neue Wissensbeiträge
Vmware
VMware Updates gegen L1 Lücke
Information von sabines vor 2 StundenVmware

Für die Vmware Produkte vCenter Server, ESXi, Workstation und Fusion stehe Updates bereit um die L1 Lücke zu schließen. ...

Drucker und Scanner
HP-MF-Drucker per Fax angreifbsr
Information von Lochkartenstanzer vor 2 TagenDrucker und Scanner3 Kommentare

Endlich eine sinnvolle Verwendung für Faxe: Damit kann man offensichtlich den Drucker übernehmen. lks

Router & Routing

Das pfSense Buch ist jetzt für jeden kostenlos zu beziehen

Tipp von magicteddy vor 2 TagenRouter & Routing2 Kommentare

Bisher war das Buch nur für zahlende Unterstützer verfügbar, jetzt steht für Jedermann kostenlos zur Verfügung. Siehe auch The ...

Firewall

Möglicherweise neue Sicherheitslücke in Mikrotik-Firmware

Information von LordGurke vor 4 TagenFirewall3 Kommentare

Hallo zusammen, vor ein paar Monaten gab es ja bereits eine Sicherheitslücke in der Firmware von Mikrotik-Routern, über welche ...

Heiß diskutierte Inhalte
Windows 10
WIN 10 1803 - LTE Stick kein Internetzugriff
Frage von killtecWindows 1023 Kommentare

Hallo, ich habe mit einem Windows 10 1803 Probleme mit einem LTE-Stick. Das gleiche Problem ist bei mehreren Rechnern ...

Datenbanken
MySQL Datenbank Import Aufgabe für mehrere .csv dateien
gelöst Frage von Marcel1989Datenbanken19 Kommentare

Hi, ich komm nicht weiter. Ich hab auf einem Windows Server 2012 r2 eine MariaDB/MySQL laufen. Nun soll diese ...

CPU, RAM, Mainboards
Xeon E5620: noch schnell genug?
Frage von ahussainCPU, RAM, Mainboards19 Kommentare

Hallo allerseits, ich habe die Möglichkeit, aus Restbeständen einen Tower mit Xeon E5620 CPU und 24 GB RAM zu ...

Batch & Shell
Windows Task per Batch hinzufügen für wöchentlichen Reboot
gelöst Frage von KusimirBatch & Shell15 Kommentare

Hallo, ich würde gern per Batch auf mehreren PC's (Windows 10) einen Reboot hinzufügen als geplante Task der jede ...