windows-server-2003/admin/wmi/wbem/scripting/test/vb/newbvt/frmmain.frm

VERSION 5.00
Begin VB.Form frmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "SDK BVT ( wbem 494 : opal > 1035 )"
   ClientHeight    =   3660
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6630
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3660
   ScaleWidth      =   6630
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdModInfo 
      Caption         =   "Module &Info  >"
      Height          =   375
      Left            =   1860
      TabIndex        =   22
      Top             =   2160
      Width           =   1335
   End
   Begin VB.Frame fraLoop 
      Caption         =   "&Looping"
      Height          =   1635
      Left            =   60
      TabIndex        =   14
      Top             =   1980
      Width           =   1635
      Begin VB.OptionButton rdoLoopInf 
         Caption         =   "Infinite"
         Height          =   195
         Left            =   180
         TabIndex        =   23
         Top             =   540
         Width           =   1035
      End
      Begin VB.TextBox txtLoop 
         BackColor       =   &H8000000F&
         Enabled         =   0   'False
         Height          =   285
         Left            =   240
         TabIndex        =   18
         Top             =   1260
         Width           =   1275
      End
      Begin VB.OptionButton rdoLoopIter 
         Caption         =   "Iterations"
         Height          =   195
         Left            =   180
         TabIndex        =   17
         Top             =   1020
         Width           =   1095
      End
      Begin VB.OptionButton rdoLoopMin 
         Caption         =   "Minutes"
         Enabled         =   0   'False
         Height          =   195
         Left            =   180
         TabIndex        =   16
         Top             =   780
         Width           =   1035
      End
      Begin VB.OptionButton rdoLoopDis 
         Caption         =   "Disabled"
         Height          =   195
         Left            =   180
         TabIndex        =   15
         Top             =   300
         Value           =   -1  'True
         Width           =   975
      End
   End
   Begin VB.CommandButton cmdGo 
      Default         =   -1  'True
      Height          =   915
      Left            =   1860
      Picture         =   "frmMain.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   21
      Top             =   2640
      Width           =   1335
   End
   Begin VB.Frame fraModules 
      Caption         =   "&Modules"
      Height          =   3555
      Left            =   3360
      TabIndex        =   19
      Top             =   60
      Width           =   3195
      Begin VB.ListBox lstModules 
         Height          =   3195
         IntegralHeight  =   0   'False
         Left            =   120
         Style           =   1  'Checkbox
         TabIndex        =   20
         Top             =   240
         Width           =   2955
      End
   End
   Begin VB.Frame fraConfig 
      Caption         =   "&Configuration"
      Height          =   1875
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   3195
      Begin VB.CheckBox chkAuthority 
         Caption         =   "Null"
         Height          =   195
         Left            =   960
         TabIndex        =   12
         Top             =   1500
         Value           =   1  'Checked
         Width           =   615
      End
      Begin VB.CheckBox chkPassword 
         Caption         =   "Null"
         Height          =   195
         Left            =   960
         TabIndex        =   9
         Top             =   1200
         Value           =   1  'Checked
         Width           =   615
      End
      Begin VB.CheckBox chkUserid 
         Caption         =   "Null"
         Height          =   195
         Left            =   960
         TabIndex        =   6
         Top             =   900
         Value           =   1  'Checked
         Width           =   615
      End
      Begin VB.TextBox txtAuthority 
         BackColor       =   &H8000000F&
         Enabled         =   0   'False
         Height          =   285
         Left            =   1560
         TabIndex        =   13
         Top             =   1440
         Width           =   1515
      End
      Begin VB.TextBox txtPassword 
         BackColor       =   &H8000000F&
         Enabled         =   0   'False
         Height          =   285
         IMEMode         =   3  'DISABLE
         Left            =   1560
         PasswordChar    =   "*"
         TabIndex        =   10
         Top             =   1140
         Width           =   1515
      End
      Begin VB.TextBox txtUserid 
         BackColor       =   &H8000000F&
         Enabled         =   0   'False
         Height          =   285
         Left            =   1560
         TabIndex        =   7
         Top             =   840
         Width           =   1515
      End
      Begin VB.TextBox txtServer 
         Height          =   285
         Left            =   1560
         TabIndex        =   2
         Top             =   240
         Width           =   1515
      End
      Begin VB.TextBox txtSitecode 
         Height          =   285
         Left            =   1560
         MaxLength       =   3
         TabIndex        =   4
         Top             =   540
         Width           =   1515
      End
      Begin VB.Label lblAuthority 
         AutoSize        =   -1  'True
         Caption         =   "Authority:"
         Height          =   195
         Left            =   120
         TabIndex        =   11
         Top             =   1500
         Width           =   660
      End
      Begin VB.Label lblPassword 
         AutoSize        =   -1  'True
         Caption         =   "Password:"
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   1200
         Width           =   735
      End
      Begin VB.Label lblUserid 
         AutoSize        =   -1  'True
         Caption         =   "UserID:"
         Height          =   195
         Left            =   120
         TabIndex        =   5
         Top             =   900
         Width           =   540
      End
      Begin VB.Label lblServer 
         AutoSize        =   -1  'True
         Caption         =   "Provider Machine:"
         Height          =   195
         Left            =   120
         TabIndex        =   1
         Top             =   300
         Width           =   1290
      End
      Begin VB.Label lblSitecode 
         AutoSize        =   -1  'True
         Caption         =   "Site code:"
         Height          =   195
         Left            =   120
         TabIndex        =   3
         Top             =   600
         Width           =   720
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public canceled As Boolean

Private Sub Form_Load()
    canceled = False
    InstallModules
    lstModules.ListIndex = -1
End Sub

Private Sub chkAuthority_Click()
    If chkAuthority.Value = 0 Then
        txtAuthority.Enabled = True
        txtAuthority.BackColor = &H80000005
        txtAuthority.SetFocus
    Else
        txtAuthority.Enabled = False
        txtAuthority.BackColor = &H8000000F
    End If
End Sub

Private Sub chkPassword_Click()
    If chkPassword.Value = 0 Then
        txtPassword.Enabled = True
        txtPassword.BackColor = &H80000005
        txtPassword.SetFocus
    Else
        txtPassword.Enabled = False
        txtPassword.BackColor = &H8000000F
    End If
End Sub

Private Sub chkUserid_Click()
    If chkUserid.Value = 0 Then
        txtUserid.Enabled = True
        txtUserid.BackColor = &H80000005
        txtUserid.SetFocus
    Else
        txtUserid.Enabled = False
        txtUserid.BackColor = &H8000000F
    End If
End Sub

Private Sub cmdGo_Click()
    Open "\bvtlog.txt" For Output As #1
        Print #1, "** BVT Started **" & vbCrLf & vbCrLf
    Close #1
    
    If rdoLoopDis.Value Then
        frmTest.Run
    ElseIf rdoLoopInf.Value Then
        Do
            frmTest.Run
            Dim f As New frmPause
            f.Show 1
            If canceled Then
                canceled = False
                Exit Do
            End If
            
        Loop
    ElseIf rdoLoopMin.Value Then
        
    ElseIf rdoLoopIter.Value Then
        Dim i As Integer
        For i = 1 To val(txtLoop.text)
            frmTest.Run
            Dim g As New frmPause
            g.Show 1
            If canceled Then
                canceled = False
                Exit For
            End If
            
        Next i
        
    End If
    
End Sub

Private Sub cmdModInfo_Click()
    
    If lstModules.ListIndex >= 0 Then
        Dim s As String
        s = Modules(lstModules.List(lstModules.ListIndex)).GetModuleInfo
        Dim f As New frmObjText
        f.Caption = "Module info for:  " & lstModules.List(lstModules.ListIndex)
        f.txtMain.text = s
        f.Show
    End If
        
End Sub

Private Sub InstallModules()

    Modules.Add New SoftDist, "Software Distribution"
    Modules.Add New SiteCtrl, "Site Control File"
    Modules.Add New Methods, "Methods"
    Modules.Add New Queries, "Queries"
    Modules.Add New PDF, "Package Definition Files"
    
End Sub

Private Sub rdoLoopDis_Click()
    txtLoop.Enabled = False
    txtLoop.BackColor = &H8000000F
End Sub

Private Sub rdoLoopInf_Click()
    txtLoop.Enabled = False
    txtLoop.BackColor = &H8000000F
End Sub

Private Sub rdoLoopIter_Click()
    txtLoop.Enabled = True
    txtLoop.BackColor = &H80000005
End Sub

Private Sub rdoLoopMin_Click()
    txtLoop.Enabled = True
    txtLoop.BackColor = &H80000005
End Sub