ShiftOS-TheRevival/TerminalApplications/Internal/Com_Hostname.vb


1
2
3
4
5
6
7
8
9
10
11
12
13

Module Com_Hostname
    Public NewHostname As String

    Public Sub Hostname()
        NewHostname = command.Substring(command.LastIndexOf(" ") + 1, command.Length - (command.LastIndexOf(" ") + 1))
        If NewHostname = "" Then
            NewLine("A hostname should not be blank!")
        Else
            Strings.ComputerInfo(0) = NewHostname
        End If
        Terminal_AssignPrompt()
    End Sub
End Module