mirror of
https://github.com/EverythingWindows/ShiftOS-TheRevival-Old.git
synced 2025-01-23 10:12:16 +00:00
13 lines
423 B
VB.net
13 lines
423 B
VB.net
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
|