Skip to content

Instantly share code, notes, and snippets.

@engalar
Last active December 20, 2015 16:59
Show Gist options
  • Save engalar/6165464 to your computer and use it in GitHub Desktop.
Save engalar/6165464 to your computer and use it in GitHub Desktop.
Public Sub cc()'''wshom.ocx
Dim WshShell As WshShell, bKey
Set WshShell = CreateObject("WScript.Shell")
'WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\", 1, "REG_BINARY"
'WshShell.RegWrite "HKCU\Software\ACME\FortuneTeller\MindReader", "Goocher!", "REG_SZ"
Debug.Print WshShell.RegRead("HKCU\Software\FinePrint Software\pdfFactory4\FinePrinters\pdfFactory Pro\PrinterDriverData\ShowDlg")
Debug.Print WshShell.RegRead("HKCU\Software\FinePrint Software\pdfFactory4\FinePrinters\pdfFactory Pro\PrinterDriverData\PdfAction")
'Debug.Print WshShell.RegRead("HKCU\Software\FinePrint Software\pdfFactory4\OutputFile")
'Debug.Print WshShell.RegRead("HKCU\Software\FinePrint Software\pdfFactory4\OutputFilePerm")
'Debug.Print WshShell.RegRead("HKCU\Software\FinePrint Software\pdfFactory4\JobsDir")
'Debug.Print WshShell.RegRead("HKCU\Software\FinePrint Software\pdfFactory4\AutoSaveDir")
'HKCU\Software\FinePrint Software\pdfFactory4\FinePrinters\pdfFactory Pro\CollectJobs
'WScript.Echo WshShell.RegRead("HKCU\Software\ACME\FortuneTeller\MindReader")
'WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\MindReader"
'WshShell.RegDelete "HKCU\Software\ACME\FortuneTeller\"
'WshShell.RegDelete "HKCU\Software\ACME\"
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment