Questo codice forse ti può essere utile, ma non so se funziona su tutte le piattaforme Windows (forse solo NT e 2000):

codice:
Text1.Text = Environ$("COMPUTERNAME")
Text1.Text = Environ$("USERNAME")[/
Ciao