Jump to content

Ermitteln welcher XP client welchen netzdrucker installiert hat?


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Auf jedem Client bei der Anmeldung noch kurz nen VB-Script laufen lassen und die Ergebnisse in eine Datei an einem zentralen Speicherort schreiben lassen.

 

Option Explicit

Private Sub InstallierteDrucker()
 Dim x As Integer
 Dim AnzDrucker As Long

 List1.Clear
 AnzDrucker = Printers.Count
 If AnzDrucker = 0 Then
   List1.AddItem "Kein Drucker installiert."
 Else
   For x = 0 To AnzDrucker - 1
     List1.AddItem Printers(x).DeviceName
   Next
 End If
End Sub

Private Sub Command1_Click()
 Call InstallierteDrucker
End Sub

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...