makuro
Goto Top

Drucker beim runter fahren auslesen und beim start wieder setzen

Hallo Kann mir evtl. einer weiter helfen ?

Ich habe 2 scripte wo beim runterfahren eines Pc´s den Drucker auslesen muss und in einer anderen datei rein schreiben muss 2tes scripst was beim hochfahren ausgeführt werden muss.

Hab auch schon einen ansatz aber komme da nicht weiter.

Auslesen

Dim objShell
Dim sPath
Dim sPrinter
Dim sPort
Dim sDriver
Dim ar_PrnInfo

Set objShell = CreateObject("WScript.Shell")
sPath = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
ar_PrnInfo = Split(objShell.RegRead(sPath), ",")

If IsArray(ar_PrnInfo) Then
sPrinter = ar_PrnInfo(0)
sPort = ar_PrnInfo(2)
sDriver = ar_PrnInfo(1)
End If

MsgBox "Default Printer: " & sPrinter & vbCrLf & _
"Printer Port: " & sPort & vbCrLf & _
"Printer Driver: " & sDriver


und dann das einbinden:

Dim objShell
Dim sPath
Dim sPrinter
Dim sPort
Dim sDriver
Dim ar_PrnInfo


Set objShell = CreateObject("WScript.Shell")
sPath = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device"
objShell.RegWrite sPath, "\\Ausgelesener Drucker Name ,winspool,Ne07:"

Weiß einer wie ich die zusammen führen kann ?

LG
Makuro

Content-Key: 167434

Url: https://administrator.de/contentid/167434

Ausgedruckt am: 28.03.2024 um 17:03 Uhr

Mitglied: Skyemugen
Skyemugen 03.06.2011 um 15:07:37 Uhr
Goto Top
Aloha,

zwei Sachen:

  • Benutze bitte der Lesbarkeit & Optik halber die
und
  • , da dies kein Batch- oder Shellskript ist

So können dir Leute schneller und effizienter Helfen, meiner Meinung nach.

greetz André
Mitglied: Clijsters
Clijsters 03.06.2011 um 19:31:54 Uhr
Goto Top
Aloha zurück.
* verschiebe deinen Beitrag besser ins Gebiet der passenden Programmiersprache VisualBasic, da dies kein Batch- oder Shellskript ist
Handelt es sich nicht hier um ein VbScript?
(Aufgrund fehlender Formatierung schwer zu entziffern ;)

Gruß
Dominique