Imports System

​

Public Module Module1

    Public Sub Main()

        Dim TxtAutoUser As New FauxTextBox("1")

        Dim TxtAutoPass As New FauxTextBox("2")

        Dim TxtAutoFullName As New FauxTextBox("3")

        Dim message = $"net user {TxtAutoUser.Text} {TxtAutoPass.Text} /ADD /FULLNAME: ""{TxtAutoFullName.Text}"" /COMMENT:""Created User by System Tool"" /PASSWORDCHG:NO /ACTIVE:Yes /EXPIRES:Never

wmic path Win32_UserAccount WHERE Name=""{TxtAutoUser.Text}"" set PasswordExpires=False

etc..."

        Console.WriteLine(message)

    End Sub

End Module

​

Public Class FauxTextBox

    Public Property Text As String

    Sub New(value As String)

            Text = value

    End Sub

End Class