Check & Setting Tool 0.4.1

[2011/02/11 Update]

Public Class Form1
    Dim regget(10) As String
    Dim regpath(5) As String
    Dim servicename(6) As String
    Dim strComputer = "."
    Dim objWMIService = GetObject("winmgmts:\\" & strComputer)
    Dim colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Check & Setting Tool 0.4.1(Need Administrator)"

        TabPage1.Text = "Check & Setting"
        TabPage2.Text = "ReadMe"

        TextBox1.Text = "ComputerName"
        TextBox2.Text = "ComputerWorkgroup"
        TextBox3.Text = "RegisteredOwner"
        TextBox4.Text = "RegisteredOrganization"
        TextBox5.Text = "AutoPlay"
        TextBox6.Text = "User Account Control"
        TextBox25.Text = "Folder Option"

        Button1.Text = "Refresh"
        Button2.Text = "Default All"
        Button3.Text = "Setting"
        Button4.Text = "Setting"
        Button13.Text = "Setting"

        regpath(0) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
        regpath(1) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced"
        regpath(2) = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\AutoplayHandlers"
        regpath(3) = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System"
        regpath(4) = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services"

        Me.Button1.PerformClick()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For Each objComputer In colSettings
            TextBox7.Text = objComputer.Name
            TextBox8.Text = objComputer.Workgroup
        Next

        regget(0) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOwner", Nothing)
        regget(1) = My.Computer.Registry.GetValue _
                    (regpath(0), "RegisteredOrganization", Nothing)
        regget(2) = My.Computer.Registry.GetValue _
                    (regpath(1), "Hidden", Nothing)
        regget(3) = My.Computer.Registry.GetValue _
                    (regpath(1), "HideFileExt", Nothing)
        regget(4) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowSuperHidden", Nothing)
        regget(5) = My.Computer.Registry.GetValue _
                    (regpath(1), "SeparateProcess", Nothing)
        regget(6) = My.Computer.Registry.GetValue _
                    (regpath(1), "ShowCompColor", Nothing)
        regget(7) = My.Computer.Registry.GetValue _
                    (regpath(1), "SharingWizardOn", Nothing)
        regget(8) = My.Computer.Registry.GetValue _
                    (regpath(2), "DisableAutoplay", Nothing)
        regget(9) = My.Computer.Registry.GetValue _
                    (regpath(3), "EnableLUA", Nothing)

        TextBox9.Text = regget(0)
        TextBox10.Text = regget(1)

        If regget(2) = 1 And _
            regget(3) = 0 And _
            regget(4) = 1 And _
            regget(5) = 1 And _
            regget(6) = 0 And _
            regget(7) = 0 Then
            TextBox26.Text = "Default Setting"
        Else
            TextBox26.Text = "User Setting"
        End If

        If regget(8) = 1 Then
            TextBox11.Text = "Disabled"
            Button5.Text = "Enabled"
        ElseIf regget(8) = 0 Then
            TextBox11.Text = "Enabled"
            Button5.Text = "Disabled"
        End If

        If regget(9) = 0 Then
            TextBox12.Text = "Disabled"
            Button6.Text = "Enabled"
        ElseIf regget(9) = 1 Then
            TextBox12.Text = "Enabled"
            Button6.Text = "Disabled"
        End If

        servicename(0) = "WinDefend"
        servicename(1) = "MpsSvc"
        servicename(2) = "Themes"
        servicename(3) = "AudioSrv"
        servicename(4) = "wscsvc"
        servicename(5) = "WSearch"
        For i = 0 To 5 Step 1
            If My.Computer.Registry.GetValue _
               (regpath(4) & "\" & servicename(i), _
               "DisplayName", Nothing) Is Nothing Then
                Select Case servicename(i)
                    Case servicename(0)
                        TextBox13.Text = "No Service"
                        TextBox19.Text = "No Service"
                        Button7.Text = "No Service"
                        Button7.Enabled = False
                    Case servicename(1)
                        TextBox14.Text = "No Service"
                        TextBox20.Text = "No Service"
                        Button8.Text = "No Service"
                        Button8.Enabled = False
                    Case servicename(2)
                        TextBox15.Text = "No Service"
                        TextBox21.Text = "No Service"
                        Button9.Text = "No Service"
                        Button9.Enabled = False
                    Case servicename(3)
                        TextBox16.Text = "No Service"
                        TextBox22.Text = "No Service"
                        Button10.Text = "No Service"
                        Button10.Enabled = False
                    Case servicename(4)
                        TextBox17.Text = "No Service"
                        TextBox23.Text = "No Service"
                        Button11.Text = "No Service"
                        Button11.Enabled = False
                    Case servicename(5)
                        TextBox18.Text = "No Service"
                        TextBox24.Text = "No Service"
                        Button12.Text = "No Service"
                        Button12.Enabled = False
                End Select
            Else
                Select Case servicename(i)
                    Case servicename(0)
                        Dim WinDefend = objWMIService.Get _
                        ("Win32_Service.Name='WinDefend'")
                        TextBox13.Text = WinDefend.DisplayName
                        TextBox19.Text = WinDefend.StartMode & "," & WinDefend.State()
                        If WinDefend.StartMode = "Disabled" Then
                            Button7.Text = "Auto"
                        ElseIf WinDefend.StartMode = "Auto" Then
                            Button7.Text = "Disabled"
                        End If
                    Case servicename(1)
                        Dim MpsSvc = objWMIService.Get _
                        ("Win32_Service.Name='MpsSvc'")
                        TextBox14.Text = MpsSvc.DisplayName
                        TextBox20.Text = MpsSvc.StartMode & "," & MpsSvc.State()
                        If MpsSvc.StartMode = "Disabled" Then
                            Button8.Text = "Auto"
                        ElseIf MpsSvc.StartMode = "Auto" Then
                            Button8.Text = "Disabled"
                        End If
                    Case servicename(2)
                        Dim Themes = objWMIService.Get _
                        ("Win32_Service.Name='Themes'")
                        TextBox15.Text = Themes.DisplayName
                        TextBox21.Text = Themes.StartMode & "," & Themes.State()
                        If Themes.StartMode = "Disabled" Then
                            Button9.Text = "Auto"
                        ElseIf Themes.StartMode = "Auto" Then
                            Button9.Text = "Disabled"
                        End If
                    Case servicename(3)
                        Dim AudioSrv = objWMIService.Get _
                        ("Win32_Service.Name='AudioSrv'")
                        TextBox16.Text = AudioSrv.DisplayName
                        TextBox22.Text = AudioSrv.StartMode & "," & AudioSrv.State()
                        If AudioSrv.StartMode = "Disabled" Then
                            Button10.Text = "Auto"
                        ElseIf AudioSrv.StartMode = "Auto" Then
                            Button10.Text = "Disabled"
                        End If
                    Case servicename(4)
                        Dim wscsvc = objWMIService.Get _
                        ("Win32_Service.Name='wscsvc'")
                        TextBox17.Text = wscsvc.DisplayName
                        TextBox23.Text = wscsvc.StartMode & "," & wscsvc.State
                        If wscsvc.StartMode = "Disabled" Then
                            Button11.Text = "Auto"
                        ElseIf wscsvc.StartMode = "Auto" Then
                            Button11.Text = "Disabled"
                        End If
                    Case servicename(5)
                        Dim WSearch = objWMIService.Get _
                        ("Win32_Service.Name='WSearch'")
                        TextBox18.Text = WSearch.DisplayName
                        TextBox24.Text = WSearch.StartMode & "," & WSearch.State
                        If WSearch.StartMode = "Disabled" Then
                            Button12.Text = "Auto"
                        ElseIf WSearch.StartMode = "Auto" Then
                            Button12.Text = "Disabled"
                        End If
                End Select
            End If
        Next
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim RegisteredOwner As String
        RegisteredOwner = TextBox9.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", RegisteredOwner, Microsoft.Win32.RegistryValueKind.String)
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim RegisteredOrganization As String
        RegisteredOrganization = TextBox10.Text
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", RegisteredOrganization, Microsoft.Win32.RegistryValueKind.String)
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If regget(8) = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf regget(8) = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(2), "DisableAutoplay", "0", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If regget(9) = 1 Then
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf regget(9) = 0 Then
            My.Computer.Registry.SetValue _
            (regpath(3), "EnableLUA", "1", Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        If Button7.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button7.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        If Button8.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button8.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        If Button9.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button9.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\Themes", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        If Button10.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button10.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\AudioSrv", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        If Button11.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button11.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        If Button12.Text = "Auto" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        ElseIf Button12.Text = "Disabled" Then
            My.Computer.Registry.SetValue _
            (regpath(4) & "\WSearch", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        End If
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        My.Computer.Registry.SetValue _
        (regpath(1), "Hidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "HideFileExt", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowSuperHidden", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SeparateProcess", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "ShowCompColor", "0", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(1), "SharingWizardOn", "0", Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button1.PerformClick()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOwner", "Belldandy", Microsoft.Win32.RegistryValueKind.String)
        My.Computer.Registry.SetValue _
        (regpath(0), "RegisteredOrganization", "Syaorin", Microsoft.Win32.RegistryValueKind.String)
        My.Computer.Registry.SetValue _
        (regpath(2), "DisableAutoplay", "1", Microsoft.Win32.RegistryValueKind.DWord)
        My.Computer.Registry.SetValue _
        (regpath(3), "EnableLUA", "0", Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox13.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\WinDefend", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox14.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\MpsSvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox15.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\Themes", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox16.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\AudioSrv", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox17.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\wscsvc", "Start", 4, Microsoft.Win32.RegistryValueKind.DWord)
        If Not TextBox18.Text = "No Service" Then My.Computer.Registry.SetValue _
        (regpath(4) & "\WSearch", "Start", 2, Microsoft.Win32.RegistryValueKind.DWord)
        Me.Button13.PerformClick()
    End Sub
End Class