prova questo
codice:
Public Function nomeUtente()
	Set owshnet = CreateObject("wscript.network")
	nomeUtente = (owshnet.UserName)
End Function