Dim Header As String
    Dim Computer As String
    Dim fso
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Header = "Admin-Tool"
        Computer = Environment.MachineName
        fso = CreateObject("Scripting.FileSystemObject")
    End Sub
    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdDatensicherungDurchführen.Click
        'Ist dieses Gerät das Vaio?
        If Computer = "VAIO" Then
            'Backup beginnt
             Progressbar1.maximum = 5
             Progressbar1.maximum = 0
            fso.copyFolder("E:\Datenbank", "E:\Backup\Server") 
            Progressbar1.Value = 1
            fso.copyFolder("E:\Schriftverkehr", _
              "E:\Backup\Server\Schriftverkehr")
            Progressbar1.Value = 2
            fso.copyFolder("E:\Vorlagen", "E:\Backup\ServerVorlagen")
            Progressbar1.Value = 3
            fso.copyFolder("C:\RP", "E:\Backup\Server\RP")
            Progressbar1.Value = 4
            fso.copyFolder("C:\RP.OLD", "E:\Backup\Server\RP.OLD")
            Progressbar1.Value = 5
        Else
            MsgBox("Sie arbeiten nicht am VAIO sondern am " & Computer, _
              MsgBoxStyle.Critical, Header)
        End If
    End Sub

(Visual Basic .net - Version 2008)