Olá,
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
Até mais,
Jesiel
Obs.: Se útil, classifique
-
Marcado como Resposta
Marcelo TI
quarta-feira, 16 de dezembro de 2009 18:01