Juansa's Blog: Scripts

Listar usuarios

Thu, 15 Dec 2005 18:38:30 GMT

Listar usuarios y grupos en un equipo local.

'Este script enumera los usuarios que pertenecen a cada
'uno de los grupos locales de un equipo
'© Fernando Reyes [MS MVP] - Abril de 2005
'Modified: Juansa [MS MVP Windows Server]
'
'Date: 11/04/2005
'Revised: 15/12/2005
'Sintaxis: UserGroupsLocal.vbs ficheroSalida

'Exigimos la declaración de variables
'Option Explicit

Dim obj_Nombre_Usuario
Dim obj_Nombre_Grupo
Dim obj_Equipo
Dim obj_Grupo
Dim obj_Shell
Dim str_Equipo
Dim str_Nombre
Const ForReading = 1, ForWriting = 2, ForAppending = 8

'Argumentos
   If WScript.Arguments.count > 0 Then
     FicheroSalida = WScript.Arguments.item(0)
   Else
     FicheroSalida = InputBox("Nombre del fichero a crear", "Gestion de usuarios")
   End If

'Creación fichero salida
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile (FicheroSalida, ForWriting, True)

'Equipo local
   str_Equipo = "."
   Set obj_Shell = CreateObject("WScript.Shell")
   str_Nombre = obj_Shell.ExpandEnvironmentStrings("%COMPUTERNAME%")

'Creamos un objeto que contiene el equipo local
Set obj_Equipo = GetObject("WinNT://" & str_Equipo & ",Computer")

'Mostramos el nombre del equipo
WScript.Echo "Equipo: " & str_Nombre & VBCrLf

'Filtramos los objetos del equipo para obtener los grupos
obj_Equipo.Filter = Array("Group")

'Recorremos cada grupo uno a uno
For Each obj_Nombre_Grupo In obj_Equipo

'Creamos un objeto que contiene al grupo actual
Set obj_Grupo = GetObject("WinNT://" & str_Equipo & "/" & obj_Nombre_Grupo.Name & ",Group")

objTextFile.WriteLine("Nombre del grupo : " & obj_Nombre_Grupo.Name)
objTextFile.WriteLine(" Descripción del grupo: " & obj_Nombre_Grupo.Name)

      'Filtramos los objetos del grupo para obtener los
      'usuarios miembros
      obj_Grupo.members.Filter = Array("User")

      'Recorremos los usuarios de uno en uno
      For Each obj_Nombre_Usuario In obj_Grupo.members
      set M = obj_Nombre_Usuario
        objTextFile.WriteLine("                  " & obj_Nombre_Usuario.Name)
      Next

WScript.Echo "Finalizado, vea el archivo creado!"
'Terminamos el script limpiándonos el culito
Set obj_Nombre_Usuario = Nothing
Set obj_Nombre_Grupo = Nothing
Set obj_Equipo = Nothing
Set obj_Shell = Nothing

Mapear unidades de usuario

Wed, 30 Nov 2005 19:41:27 GMT

'**********************************************
Option Explicit
Dim oNet, sUser, startTime

On Error Resume Next

' Objeto Red
Set oNet = CreateObject("WScript.Network")

' Obtenemos el login de usuario. En Windows 9x, el usuario puede no estar todavía autentificado
' cuando el script comienza a ejecutarse; En ese caso reitera cada 1/2 segundo
sUser = oNet.UserName 'En minúsculas

startTime = Now
Do While sUser = ""
   If DateDiff("s", startTime, Now) > 600 Then Wscript.Quit
   Wscript.Sleep 500
   sUser = oNet.UserName
Loop

' Mapeado de la unidad F particular de cada usuario

oNet.RemoveNetworkDrive "U:"
oNet.MapNetworkDrive "U:", "\\servidor\usuarios\" & sUser

oNet.RemoveNetworkDrive "X:"
oNet.MapNetworkDrive "X:", "\\servidor\comunes\"

'**********************************************
Toda la explicación en:

http://msmvps.com/quilez/archive/2005/02/04/34940.aspx

Obtener log con las sesiones contra Terminal Server

Thu, 17 Nov 2005 14:57:39 GMT

Script vbs de Tomás Hidalgo.

<---Pego--->
' Tomas Hidalgo (c) Abril 2005
' Script para almacenar los accesos al Terminal Server.
' Los datos se almacenan entre comillas y separados por comas en un fichero
de texto.

Const ForAppending = 8

Set oShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

'****************************************************************************
'Comprobamos si existe el fichero de log

If objFSO.FileExists("C:\acceso.log") Then
    'No hacemos nada
Else
    'El fichero no existe y lo creamos con la cabecera de datos
    Set objArchivo = objFSO.CreateTextFile("c:\acceso.log", true)
    objArchivo.Write chr(34) & "Fecha" & chr(34) & ","
    objArchivo.Write chr(34) & "Hora" & chr(34) & ","
    objArchivo.Write chr(34) & "Equipo" & chr(34) & ","
    objArchivo.Write chr(34) & "Usuario" & chr(34) & ","
    objArchivo.Write chr(34) & "Tipo_Conexion" & chr(34) & ","
    objArchivo.Writeline
    objArchivo.close

End If

'****************************************************************************
'Para obtener la fecha del sistema

strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_UTCTime")

For Each objItem in colItems
    Dia = objItem.Day
    Mes = objItem.Month
    Anno = objItem.Year
    Hora = objItem.Hour
    Minu = objItem.Minute
Next

strFecha = Anno & "/" & Mes & "/" & Dia
strReloj = Hora & ":" & Minu
'****************************************************************************

'Leemos los datos del cliente TS
strSesion = oShell.ExpandEnvironmentStrings("%SESSIONNAME%")
strUsuario = oShell.ExpandEnvironmentStrings("%USERNAME%")
strMaquina = oShell.ExpandEnvironmentStrings("%CLIENTNAME%")

'Comprobamos el tipo de conexion
If strSesion = "" Or LCase(strSesion) = "console" Then
strSesion = "Acceso por consola"
End If

If Left(strSesion,8) = "RDP-Tcp#" Then
strSesion = "Acceso por TS"
End If

'Agregamos los datos al fichero
Set objArchivo = objFSO.OpenTextFile("c:\acceso.log", ForAppending, False)

objArchivo.Write chr(34) & strFecha     & chr(34) & ","
objArchivo.Write chr(34) & strReloj      & chr(34) & ","
objArchivo.Write chr(34) & strMaquina & chr(34) & ","
objArchivo.Write chr(34) & strUsuario & chr(34) & ","
objArchivo.Write chr(34) & strSesion    & chr(34)
objArchivo.Writeline
objArchivo.close
<---Fin Pego-->