Function ImeKompa()
Dim strImeKompjutera As String

strImeKompjutera = String(255, Chr(0))
ImeRacunara strImeKompjutera, 255
strImeKompjutera = Left(strImeKompjutera, InStr(1, strImeKompjutera, Chr(0)) - 1)
ImeKompa = strImeKompjutera
End Function