Script is taken from: http://forum.vingrad.ru/forum/topic-154708/view-all.html

' This script detects and tries to fix the error related to start up of Automatic Updates and BITS services
' on network computers. Such error is related to security identifier (EventID 7023 and EventID 7024).
' This problem is usually observed on network computers after applying changes to group policies.
' In such cases the script will reset a security identifier as per Microsoft KB 555336
' http://support.microsoft.com/kb/555336 and start Automatic Updates and BITS.
' Can be usefull for networks where Windows Server Update Services 3.0 (WSUS) is used.
' Script source: http://forum.vingrad.ru/forum/topic-154708/view-all.html

' Initialize variables and WMI-moniker
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   
' Select Automatic Updates and BITS services from the list of services
Set colListOfServices = objWMIService.ExecQuery _
    ("Select * from Win32_Service Where Name = 'BITS' or Name = 'wuauserv'")
   
' For each of selected services:
For Each objService in colListOfServices
    isStarted = 0
    ' Check its status. If stopped then
    If  objService.State = "Stopped" Then
     ' Try to start it.
     WScript.Echo ("Service " & objService.Name & " Stopped")
     isStarted = objService.StartService()
 
     ' If when starting we get the same problem try to fix it
     ' (fix is provided by the Repair function)
     If objService.ExitCode <> 0 Then
         WScript.Echo("WARNING!!! Error occured, when try to started...")
         WScript.Echo ("Try to repair..." &amp; objService.Name)
            intCode = Repair(strComputer)
            If intCode = 0 Then
                WScript.Echo("Done...")
                objService.StartService
            Else WScript.Echo("Failed To Repair")
            End If
     Else If objService.ExitCode = 0 Then WScript.Echo ("Successfully stated...")
     End If
    End If
Next
Function Repair(strComputer)
    strCommandLine = "sc sdset " &amp; objService.Name &amp; " " &amp; Chr(34) &amp; "D:(A;;CCLCSWRPWPDTLOCRRC;;;SY)(A;;CCDCLCSWRPWPDTLOCRSDRCWDWO;;;BA)(A;;CCLCSWLOCRRC;;;AU)(A;;CCLCSWRPWPDTLOCRRC;;;PU)" &amp; Chr(34)
    Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\CIMV2")
    ' Obtain the definition of the class.
    Set objShare = objWMIService.Get("Win32_Process")
    ' Obtain an InParameters object specific
    ' to the method.
    Set objInParam = objShare.Methods_("Create"). _
     inParameters.SpawnInstance_()
    ' Add the input parameters.
    objInParam.Properties_.Item("CommandLine") = strCommandLine
    ' Execute the method and obtain the return status.
    ' The OutParameters object in objOutParams
    ' is created by the provider.
    Set objOutParams = objWMIService.ExecMethod("Win32_Process", "Create", objInParam)
    ' List OutParams
    WScript.Echo "Out Parameters: "
    WScript.echo "ProcessId: " &amp; objOutParams.ProcessId
    Repair = objOutParams.ReturnValue
End Function

' Script for remote reboot/shutdown, power off, etc.
' You must have proper rights on a remote computer
' for this script to work

Dim StationName
Dim OpSysSet
Dim Flags
Dim Reserved
StationName = InputBox("Insert the Name of the Station to be Shutdown.")
Set OpSysSet = GetObject("winmgmts:{impersonationLevel=impersonate,(RemoteShutdown)}//" & StationName).ExecQuery("select * from Win32_OperatingSystem where Primary=true")
' Flags Action
'  0    Logoff
'  1    Shutdown
'  2    Reboot
'  4    Force
'  8    Power Off
' 16    Force If Hung
Flags = 8
Reserved = 0
For Each OpSys In OpSysSet
   OpSys.Win32Shutdown Flags,Reserved
Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate, (Backup, Security)}!\\" _
        & strComputer & "\root\cimv2")
Set colLogFiles = objWMIService.ExecQuery _
    ("Select * from Win32_NTEventLogFile")
For Each objLogfile in colLogFiles
    If objLogFile.FileSize > 100000 Then
       strBackupLog = objLogFile.BackupEventLog _
           ("c:\scripts\" & objLogFile.LogFileName & ".evt")
       objLogFile.ClearEventLog()
    End If
Next

Click F7 to go to the code view and add the folowing code:

' Form design
' - - - - - -
' Button1 – Button control
' Button2 – Button control
' - - - - - -
' Form code

Public Class Form1
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Long, ByVal uReturnLength As _
Long, ByVal hwndCallback As Long) As Long

Dim vDrive As String
Dim vAlias As String

Private Sub Button1_Click() Handles Button1.Click
' Open
vDrive = "f:/"
vAlias = "vv" & vDrive
Call mciSendString("Open " & vDrive & ": Alias " & vAlias & _
" Type CDAudio", 0, 0, 0)
Call mciSendString("Set " & vAlias & " Door Open", 0, 0, 0)
End Sub

Private Sub Button2_Click() Handles Button2.Click
' Close
vDrive = "f:/"
vAlias = "vv" & vDrive
Call mciSendString("Open " & vDrive & ": Alias " & vAlias & _
" Type CDAudio", 0, 0, 0)
Call mciSendString("Set " & vAlias & " Door Closed", 0, 0, 0)
End Sub
End Class

Click F5 to Run the application.

Download sample

In the Solution Explorer right-click on ExitWindows –> Add –> Module… Leave the default name Module1.vb as is and click Add.

Paste the following code in Module1:

Public Declare Function ExitWindows Lib "user32" (ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4

Now, go to Form1.vb and add three buttons from the toolbox. Set the following properties for buttons:

Click F7 and paste the following code:

Public Class Form1
    Dim s As Long

    Private Sub btnLogOff_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnLogOff.Click
        ' Logoff current user
        s = ExitWindows(EWX_LOGOFF, 0&)
    End Sub

    Private Sub btnReboot_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnReboot.Click
        ' Reboot computer
        s = ExitWindows(EWX_REBOOT, 0&)
    End Sub

    Private Sub btnShutdown_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnShutdown.Click
        ' Shutdown computer
        s = ExitWindows(EWX_SHUTDOWN, 0&)
    End Sub
End Class

That’s it . Download the solution from the link below.

1)    Create a new project, select Windows Forms Control Library and name it MiniCalc

2)    You will see that the new UserControl1.vb is added to your project. Right-click on the UserControl1.vb and select Rename from the menu. Name it MiniCalc.vb

3)    Go to the Toolbox and add 1 groupbox, 2 textboxes, 4 buttons and 1 label. Align them on the control as on the following image:

Set the following properties:

4)    Right-click on the form and select View Code. You will see the following lines of code in the editor:

Public Class miniCalc

End Class

5)    Edit the code to make it as follows:

Public Class miniCalc
Private Sub btnPlus_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnPlus.Click
lblResult.Text = CInt(txtValue1.Text) + CInt(txtValue2.Text)
End Sub

Private Sub btnMinus_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnMinus.Click
lblResult.Text = CInt(txtValue1.Text) - CInt(txtValue2.Text)
End Sub

Private Sub btnMultiply_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnMultiply.Click
lblResult.Text = CInt(txtValue1.Text) * CInt(txtValue2.Text)
End Sub

Private Sub btnDivide_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnDivide.Click
lblResult.Text = CInt(txtValue1.Text) / CInt(txtValue2.Text)
End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles GroupBox1.Enter
lblResult.Text = ""
End Sub
End Class

6)    In the solution explorer right-click on MiniCalc and select Properties:

7)    Make sure that the following parameters are set:

8)    Now go to Build→ Build MiniCalc

9)    Now, go to the Bin folder in your project folder. In my case, I saved my MiniCalc project under C:\Projects\:

10)    Copy the MiniCalc.dll to any other directory where you want to store your final DLLs. It’s always a good idea to keep your DLL project in case if you will need to modify it in the future. In my case I will copy MiniCalc.dll under C:\My DLLs\ folder.

11)    Close MiniCalc project.

12)    Create a new Windows Forms Application project and name it “Mini Calculator”

13)    Go to Project and click on Add Reference…

14)    In the Add Reference window click on the Browse tab, locate MiniCalc.dll file and click OK button:

15)    In the Toolbox pane right-click somewhere in the empty space and select Add Tab:

16)    Name it My Controls and click Enter

17)    Right-click under My Controls and select Choose Items… from the context menus:

18)    In the .NET Framework Components tab click Browse.. and locate MiniCalc.dll file.

19)    miniCalc.dll will be added to your components collection. Click OK button to close the dialog window.

20)    MiniCalc control is now added to My Controls.

21)    Drag it to your form:

22)    Click F5 to start debugging:

In this tutorial we have learned how to create DLL files and use them across other applications.

Download the sample project here.