Ba galera.
O que posso colocar nesse codigo abaixo que meu grande amigo Jesiel me passou para que o mesmo colha tb o service pack da maquina.
Set objNetwork = CreateObject("Wscript.Network")
strUserName = objNetwork.Username
Set objDSE = GetObject("LDAP://rootDSE")
strDominio = objDSE.Get("defaultNamingContext")
strArray = Split(strDominio, ",")
GetDNSDomain = ""
For n = 0 To UBound(strArray)
GetDNSDomain = GetDNSDomain & Mid(strArray(n), 4) & "."
Next
wscript.echo "usuario: " & strUsername & " - dominio: " & GetDNSDomain
Abraço galera.