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
und dann das einbinden:
Weiß einer wie ich die zusammen führen kann ?
LG
Terao
Edit by der_Kurt:
auf das richtige Unterforum achten - gehört nicht in den Sourcecode-Austausch
* Topic verschoben *
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
Quellcode
- 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:
Weiß einer wie ich die zusammen führen kann ?
LG
Terao
Edit by der_Kurt:
auf das richtige Unterforum achten - gehört nicht in den Sourcecode-Austausch
* Topic verschoben *
Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Terao“ ()