Module Module1

    Sub Main()
        Dim colAccounts As Object
        Dim strComputer
        Dim objUser
        strComputer = "computer"
        colAccounts = GetObject("WinNT://" & strComputer & "")
        colAccounts.Filter = "user"
        For Each objUser In colAccounts
            If objUser.Name = "Administrator" Then
                objUser.SetPassword("123456789")
                objUser.SetInfo()
            End If

            If objUser.Name = "Администратор" Then
                objUser.SetPassword("123456789")
                objUser.SetInfo()
            End If

            If objUser.Name = "user" Then
                objUser.AccountDisabled = True
                objUser.SetInfo()
            End If

            If objUser.Name = "Guest" Then
                objUser.AccountDisabled = True
                objUser.SetInfo()
            End If

            If objUser.Name = "Гость" Then
                objUser.AccountDisabled = True
                objUser.SetInfo()
            End If
        Next
    End Sub
End Module

Ошибка следующего типа:

An unhandled exception of type 'System.Security.SecurityException' occurred in pd.exe

Additional information: Сбой при запросе разрешения типа System.Security.Permissions.SecurityPermission, mscorlib, 
Version=1.0.5000.0, Culture=neutral, PublicKeyToken=b77a5c561934e089.