Jump to content
Sign in to follow this  
TheDonMiguel

VBS - Printer aus Excel laden

Recommended Posts

Hallo zusammen,

 

ich suche eine Lösung um Drucker automatisch beim logon mit einem VBS- Script anzulegen. Mit "WshNetwork.AddWindowsPrinter" klappt das auch ganz schon mal ganz gut! Nun möchte ich aber die Drucker-Informationen, BSP. "\\Pfad\Freigabe" und "Name" aus einer Excel Datei laden. Weiss jemand, wie ich die machen kann?

 

Danke & Gruss,

TDM

Share this post


Link to post
Share on other sites

Hallo,

Wenn du in Deinem Script die *.xls in eine *.csv datei konvertierst, dann ist es ein leichtes die textdatei auszulesen, und die entsprechenden einträge (Drucker) beim logon zu übergeben.

 

hier ein Beispiel wie Du aus einer Excel-Datei eine Textdatei (csv-Datei) machst

 

Const xlCSV = 6

 

Set objExcel = CreateObject("Excel.Application")

Set objWorkbook = objExcel.Workbooks.Open("C:\Ordner\printer.xls")

objExcel.DisplayAlerts = FALSE

objExcel.Visible = FALSE

 

Set objWorksheet = objWorkbook.Worksheets("Sheet1")

objWorksheet.SaveAs "c:\Ordner\printer.csv", xlCSV

 

objExcel.Quit

 

Die Inhalte der csv-Datei sind durch ";" getrennt.

Danach greifst Du mit einem FileObject auf die csv zu und liest die Inhalte aus. Mittels tokenizer erhältst Du die Spalteneinträge.

 

wie du die Textbausteine aus *.csv erhältst, das kannst Du selber ;). Ich weiss das knobeln Spass macht.

 

Sollten sich die Einträge in deinem Excel-Sheet öfter mal ändern kannst Du nach dem auslesen der csv-datei diese wieder löschen und beim nächsten logon erneut konvertieren.

Teste die Zeit, denn beim logon hat man schon mal das Problem, dass Servergesp. Profile lange ladezeiten haben. Auch das konvertieren verursacht kosten! Um das zu umgehen, kannst du die Excel-datei nach jeder Änderung im Excel-Sheet konvertieren und die konvertierte Datei zentral ablegen um Zeit beim logon zu sparen.

 

Viel Spass, oxo

 

P.S.: Zeigst Du mir Dein fertiges Ergebnis?

Share this post


Link to post
Share on other sites
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte überlege Dir, ob es nicht sinnvoller ist ein neues Thema zu erstellen.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

×
×
  • Create New...