Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\NonEnum]
„{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}“=dword:00000001
Systemprotokolle auf dem Host XXX werden in einem nicht beständigen Speicher gespeichert.
Scriptlogic Problem mit nicht sauber gesetztem Standarddrucker umgehen
Script Logic DA 8.1 Setzt den Standarddrucker nicht immer vollständig um. Hier ist ein Script um dies im Nachgang noch zu Bereinigen.
Funktioniert allerdings nur bei min. 2 Druckern.
Const ATTR_DEFAULT = 4
strComputer = "."
Set oWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = oWMI.ExecQuery("SELECT * FROM Win32_Printer")
For Each oPrinter in colPrinters
If oPrinter.Attributes And ATTR_DEFAULT Then
oPrinter.SetDefaultPrinter()
Set NewDefaultPrinter=oPrinter
End If
Next
For Each oPrinter in colPrinters
If Not oPrinter.Attributes And ATTR_DEFAULT Then
oPrinter.SetDefaultPrinter()
exit For
End If
Next
If IsNull(NewDefaultPrinter) Then
Wscript.echo "Kein Standarddrucker gefunden"
Else
NewDefaultPrinter.SetDefaultPrinter()
End If