Ver por etiquetas

Todas las etiquetas » Script (RSS)

Puertos Abietos.BAT

Estas lineas permiten listar los puertos abiertos y dirigir la información a un archivo de Texto: Puertos.BAT netstat -an > gports find "LISTENING" < gports > oports.txt find "ESTABLISHED" < gports >> oports.txt del gports Resultado: TCP 0.0.0.0:135 0.0.0.0:0 LISTENING TCP 0.0.0.0:445 0.0.0.0:0 LISTENING TCP 0.0.0.0:49152 0.0.0.0:0 LISTENING TCP 0.0.0.0:49153 0.0.0.0:0 LISTENING TCP 0.0.0.0:49154 0.0.0.0:0 LISTENING TCP 0.0.0.0:49155 0.0.0.0:0 LISTENING...
Publicado por M@rTIn's | con no comments
Archivado en:

Lista Usuarios dentro de los Grupos Locales

'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] ' Variables declaradas faltantes  por Martin Ojeda Knapp (FIX) y TEST '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...
Publicado por M@rTIn's | con no comments
Archivado en:

Dar un RESET a maquinas de una OU practico para maquinas que quedan encendidad

On Error Resume Next Const ADS_SCOPE_SUBTREE = 2 Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.CommandText = "Select Name, Location from 'LDAP://OU=Centura,OU=Binaria,OU=Computadores,DC=GRUPOCGE,DC=CL' Where objectClass='computer'" objCommand...
Publicado por M@rTIn's | 3 comment(s)
Archivado en:

Una pequeña línea para copiar archivos

Set variable = CreateObject("Scripting.FileSystemObject") variable.CopyFile "C:\Portalbinaria.lnk","C:\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\Portalbinaria.lnk"
Publicado por M@rTIn's | con no comments
Archivado en:

caducidad-de-cuentas.vbs

'*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~* '*°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°* '* caducidad-de-cuentas.vbs                                            * '*                                                                    ...
Publicado por M@rTIn's | con no comments
Archivado en:

Para Crear Varias Impresoras

strComputer = "." Set objWMIService = GetObject("winmgmts:" _     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_ objPrinter.DriverName = "HP LaserJet 4000 Series PS" objPrinter.PortName   = "IP_169.254.110.160" objPrinter.DeviceID   = "PublicPrinter" objPrinter.Location = "USA...
Publicado por M@rTIn's | con no comments
Archivado en:

script este lo uso para borrar llaves de registro

script este lo uso para borrar llaves de registro 'Script para borrar las impresoras mapeadas del perfil del usuario Const ForAppending = 8 Const HKEY_CURRENT_USER = &H80000001 On Error Resume Next strComputer = "." Set oReg=GetObject("winmgmts:\\" & _ strComputer & "\root\default:StdRegProv") strKeyPath = "" oReg.EnumKey HKEY_CURRENT_USER, strKeyPath path = "Printers\Connections" oReg.EnumKey HKEY_CURRENT_USER, path, impresoras For...
Publicado por M@rTIn's | 1 comment(s)
Archivado en:

Restaura WMI

SI el servicio WMI esta malo no se pueden hacer instalaciones remotas. también sirve para otros servicios ReparaWMI.cmd @echo off sc config winmgmt start= disabled net stop winmgmt /y %systemdrive% cd %windir%\system32\wbem for /f %%s in ('dir /b *.dll') do regsvr32 /s %%s regsvr32 %windir%\system32\tscfgwmi.dll /s wmiprvse /regserver winmgmt /regserver net start winmgm
Publicado por M@rTIn's | con no comments
Archivado en:

Script Agrega Información Variable de Entorno usada para SSO en SAP

'Set WshShell = WScript.CreateObject("WScript.Shell") 'Set WshSysEnv = WshShell.Environment("SYSTEM") 'WshSysEnv("SNC_LIB") = "gsskrb5.dll" Set WshShell = WScript.CreateObject("WScript.Shell") Set WshUserEnv = WshShell.Environment("USER") WshUserEnv("SNC_LIB") = "gsskrb5.dll"
Publicado por M@rTIn's | con no comments
Archivado en:

Relleno de campos con DSQUERY

Esta línea formateada en una planilla Excel con la función concatenar ayuda a modificar información de campos que cambian con el tiempo por ejemplo el teléfono, Oficina. una vez formateado lo pueden guardar como un .BAT y correrlo. lo primero es buscar a el usuario con DSQUERY USER, Domainroot indica que comience desde la raíz del directorio –SAMid {nombre usuario} una vez encontrado a modificar los parámetros | DSMOD USER –office “Oficina 10” las comillas se usan cuando el dato a introducir tiene...
Publicado por M@rTIn's | con no comments
Archivado en:

Script Para llamar a un .BAT

Corre por debajo no le aparece la pantalla negra a los usuarios Set WshShell = WScript.CreateObject("WScript.Shell") ReturnCode = WshShell.Run("imp.bat", 0, True)
Publicado por M@rTIn's | con no comments
Archivado en:

Mapeo de Unidades de Red con Script

¿Como mapeo unidades de red a los usuarios? Se puede hacer desde la pestaña de propiedades del Usuario pero que ocurre cuando quiero mapear mas de una unidad. Una opción es generar un .BAT y linkiarlo a una OU que contenga las ctas. maquinas y asignarlo en Computer Configuration, windows Settings, Scripts, Startup. Lo importante es copiar el .BAT en la carpeta que muestra el Boton Show Files... El archivo bat seria: NET USE Z: \\SERVIDOR\RECURSO COMPARTIDO /PERSISTENT:YES Se podría...
Publicado por M@rTIn's | 17 comment(s)
Archivado en: ,