Drucker auslesen per Script und auch wieder per setzen

[Terao]

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 gefunden 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
Terao

[Christian Marquardt]

Copy & Paste

[Terao]

Richtig aus meiner Worddatei

[Christian Marquardt]

???

Wenn du das in einem Script haben willst: WARUM KOPIERST DU ES NICHT!!!!

[Terao]

Versuche mal bitte ein Scipt zu finden, was das kann

Muss auch dazu sagen ich bin kein Programier fan

Und das ist das beste was ich gefunde haben und was ich noch einiger maßen anpassen konnte.

Nur leider komm ich nun nicht weiter.


Das Auslesen in Massage box geht, ok das könnte ich noch umleiten in die 2te Datei mit ein wenig naja hilfe.

Aber ich kann halt nicht so gut Programieren.