Código:
On Error Resume Next
Dim objUser, strDomain, usuario, objAccountDisabled, dataLogin
strDomain = "MI_DOMINIO"
'esta linia seria un campo de texto, no haria falta traducirla (text1.txt)
usuario = inputbox( "Introduce un nombre de usuario", "Input" )
Set objUser = GetObject("WinNT://MI_DOMINIO/" + usuario + ",user")
If Err.Number = 0 Then
If objUser.AccountDisabled = True Then
objAccountDisabled = "DESHABILITADO"
dataLogin = "NO EXISTE"
Else
objAccountDisabled = "HABILITADO"
dataLogin = objUser.Get("Lastlogin")
End If
Wscript.Echo "Fullname: " & objUser.Get("Fullname") & vbCrLf & _
"Description: " & objUser.Get("Description") & vbCrLf & _
"Name: " & objUser.Get("Name") & vbCrLf & _
"HomeDirectory: " & objUser.Get("HomeDirectory") & vbCrLf & _
"LoginScript: " & objUser.Get("LoginScript") & vbCrLf & _
"Lastlogin: " & dataLogin & vbCrLf & _
"Profile: " & objUser.Get("Profile") & vbCrLf & _
"Estat compte: " & objAccountDisabled
Set objUser=Nothing
Else
WScript.Echo "Nombre de usuari " + usuario + " inexistente!."
End If
De hecho quiero sacar a partir de un usuario (lo pongo en un campo de TEXTO) informacion como el LastLogin, Name, Description, HomeDirectory... y mostrarlo en un campo de Texto multilinia. Yo estoy en un dominio por lo tanto tendria que poner algo parecido a mi VBS: GetObject("WinNT://MI_DOMINIO/
Teneis idea de como hacerlo en Visual Basic puro y duro?
