Visual Basic

Dave Kreskowiak wrote:

got a gallon of Jack Daniels on the kitchen counter!

afridy wrote:

hooks and permissions have no connection if i am correct.

afridy wrote:

the main think here, after restarting the machine, the hook works in vista.
but not imediatly after the installation.

Cscript %WINDIR%\System32\Printing_Admin_Scripts\en-US\Prnport.vbs -l -r CSE-211-CLQ > filepath

Shell("Cscript %WINDIR%\System32\Printing_Admin_Scripts\en-US\Prnport.vbs -a -r CSE-ATLAB-BWQ -h at-cetus.ad.ufl.edu -o lpr -q CSE-ATLAB-BWQ")

Process.Start("Cscript %WINDIR%\System32\Printing_Admin_Scripts\en-US\prnport.vbs -a -r CSE-211-CLQ -h at-cetus.ad.ufl.edu -o lpr -q cse-211-clq")

Trey5498 wrote:

The above doesn't execute. Nothing else after it gets run either

Trey5498 wrote:

What am I doing wrong?

Imports Microsoft.Win32

Public Class prnProcessing
    Dim x As New System.Diagnostics.Process
    Public arrInstalled As New ArrayList()
    Dim WithEvents ToDoWork As New System.ComponentModel.BackgroundWorker


    Public Sub prnProcessing_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If prnSelection.arrToInstall.Count > 0 Then
            'added 10-2-08
            prnProgress.Style = ProgressBarStyle.Continuous
            'prnProgress.Dock = DockStyle.Bottom
            prnProgress.Visible = False
            prnProgress.Minimum = 1
            prnProgress.Maximum = prnSelection.arrToInstall.Count
            'end add 10-2-08

            ToDoWork.WorkerReportsProgress = True
            ToDoWork.WorkerSupportsCancellation = True
            ToDoWork.RunWorkerAsync(prnSelection.arrToInstall)
            Me.CenterToScreen()
        Else
            MsgBox("There are no printers to install.  Please choose the printers you wish to install.")
            prnSelection.Show()
            Me.Close()
        End If

    End Sub

    Public Sub ToDoWork_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles ToDoWork.DoWork

        Dim worker As System.ComponentModel.BackgroundWorker = CType(sender, System.ComponentModel.BackgroundWorker)
        If e.Argument IsNot Nothing AndAlso TypeOf (e.Argument) Is ArrayList Then
            Dim arrToInstall As ArrayList = e.Argument
            If arrToInstall.Count > 0 Then
                Dim i As Integer = 1
                For Each printer As String In arrToInstall
                    CallByName(Me, printer, CallType.Method)
                    worker.ReportProgress(i)
                    i += 1
                    System.Threading.Thread.Sleep(200)
                Next
            End If
        End If
    End Sub

    Public Sub ToDoWork_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles ToDoWork.ProgressChanged
        prnProgress.Visible = True
        prnProgress.Value = e.ProgressPercentage
    End Sub

    Public Sub PrinterProgress(ByVal i As Integer, ByVal worker As System.ComponentModel.BackgroundWorker, ByVal e As System.ComponentModel.DoWorkEventArgs)
        worker.ReportProgress(i)
    End Sub
    Public Sub ToDoWork_EndProgress() Handles ToDoWork.RunWorkerCompleted
        ToDoWork.Dispose()
        prnWrapup.Show()
        Me.Close()
    End Sub

    Public Sub CSE211CLQ()
       
        'Added on 10/27/2008
        Process.Start("cmd", "Cscript %WINDIR%\System32\Printing_Admin_Scripts\en-US\prnport.vbs -a -r CSE-211-CLQ -h at-cetus.ad.ufl.edu -o lpr -q cse-211-clq")
        Process.Start("cmd", "rundll32 printui.dll, PrintUIEntry /if /b ""CSE-211-CLQ"" /f ""C:\7760.inf"" /q /r ""CSE-211-CLQ"" /m ""Xerox Phaser 7760GX PS"" /z /u")
        arrInstalled.Add("CSE-211-CLQ")
        'end Added on 10/27/2008
        
        'for test purposes
        MsgBox("CSE-211-CLQ Installed", vbOK)

    End Sub
End Class