Hace un tiempo hice una función para obtener el nombre de la distribución GNU/Linux, funciona bien y hace lo que se espera.
Con la intención de que esta función contemple todas las distribuciones (por lo menos de los que estamos en este foro) me gustaría saber, si serian tan amables de usar esta función en vuestro sistema y que comenten si funciona bien o si les dice "Desconocida" en cuyo caso por favor envíen la salida del comando:
lsb_release -d | cut -d':' -f2
Saludos.
Public Function DistroShort() As String
Dim strDistro As String
Dim strDistroShort As String
Dim stxDistros As New String[]
Dim stxDistro As New String[]
Dim intN As Integer
Shell "lsb_release -d | cut -d':' -f2" To strDistro
Replace(strDistro, gb.Tab, "")
strDistro = Trim(strDistro)
strDistro = strDistro
strDistro = Replace(strDistro, " ", " ")
strDistro = Replace(strDistro, " ", " ")
strDistro = Replace(strDistro, gb.Tab, " ")
strDistro = Replace(strDistro, gb.Tab, " ")
strDistro = String.LCase(strDistro)
stxDistros.clear
stxDistro.clear
stxDistros.Add("arch")
stxDistros.Add("debian")
stxDistros.Add("fedora")
stxDistros.Add("redhat")
stxDistros.Add("gentoo")
stxDistros.Add("manjaro")
stxDistros.Add("mint")
stxDistros.Add("opensuse")
stxDistros.Add("ubuntu")
stxDistro = Split(strDistro, " ")
strDistroShort = "Desconocida"
For intN = 0 To stxDistro.Max
If stxDistros.Find(stxDistro[intN]) <> -1 Then
strDistroShort = stxDistro[intN]
Break
Endif
Next
Return strDistroShort
End
Dim strDistro As String
Dim strDistroShort As String
Dim stxDistros As New String[]
Dim stxDistro As New String[]
Dim intN As Integer
Shell "lsb_release -d | cut -d':' -f2" To strDistro
Replace(strDistro, gb.Tab, "")
strDistro = Trim(strDistro)
strDistro = strDistro
strDistro = Replace(strDistro, " ", " ")
strDistro = Replace(strDistro, " ", " ")
strDistro = Replace(strDistro, gb.Tab, " ")
strDistro = Replace(strDistro, gb.Tab, " ")
strDistro = String.LCase(strDistro)
stxDistros.clear
stxDistro.clear
stxDistros.Add("arch")
stxDistros.Add("debian")
stxDistros.Add("fedora")
stxDistros.Add("redhat")
stxDistros.Add("gentoo")
stxDistros.Add("manjaro")
stxDistros.Add("mint")
stxDistros.Add("opensuse")
stxDistros.Add("ubuntu")
stxDistro = Split(strDistro, " ")
strDistroShort = "Desconocida"
For intN = 0 To stxDistro.Max
If stxDistros.Find(stxDistro[intN]) <> -1 Then
strDistroShort = stxDistro[intN]
Break
Endif
Next
Return strDistroShort
End
