Temas

Buenas tardes:
Me estoy volviendo loco con este tema, a ver quien me puede ayudar:
Estoy haciendo un pequeño Script con PowerShell (estoy aprendiendo xD) y para acabarlo necesitaba como poder hacer para saber si un usuario pertenece a un grupo de Directorio Activo.
Es decir SI el Usuario "X" pertenece al Grupo "Y" ENTONCES Ejecuta "AAA"

Parece fácil pero no doy con el tema ((

Muchísimas gracias por adelantado.

Buenas tardes a todos.
Estoy intentando crear un SCRIPT mediante VBS o POWERSHELL.

Lo he conseguido mediante un archivo BAT, pero tengo problemas con la elevación de privilegios (cosas del cmd.exe).

Por lo tanto lo que estoy intentado crear es un SCRIPT que se ejecute en un USUARIO SIN privilegios de ADMINISTRADOR para cambiar varios valores en IE11 (esto no es problema) y tras esto que modifique la IP, Puerta de enlace y las DNS.
Y otro SCRIPT para que lo deje todo en DHCP.

Todo ello sin que pida la contraseña del admin... en el archivo bat estaba realizándolo con "runas.exe"

Alguna idea¿?

Muchísimas gracias por adelantado.... estoy dándome por vencido... jajajaja

Buenas tardes a todos:
He realizado un Script para modificar un valor del registro de Windows, se me hizo complicado por que la CADENA DEL REGISTRO donde se almacena el valor a modificar depende del usuario activo, asiq el Script no puede ser genérico, depende del SID del Usuario Actual.

Código (vb) [Seleccionar] Expandir


strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Dim USUARIO
Dim DOMINIO
Dim SID

Set objshell = createobject("wscript.shell")
USUARIO = objshell.expandenvironmentstrings("%USERNAME%")
DOMINIO = objshell.expandenvironmentstrings("%USERDOMAIN%")

Set objAccount = objWMIService.Get _
("Win32_UserAccount.Name='" & USUARIO & "',Domain='" & DOMINIO & "'")

SID = objAccount.SID

Msgbox objshell.expandenvironmentstrings(SID)

DIM CADENA
CADENA = objshell.expandenvironmentstrings("HKEY_USERS\"&SID&"\Software\Microsoft\Windows\CurrentVersion\BackgroundAccessApplications\GlobalUserDisabled")

Msgbox objshell.expandenvironmentstrings(CADENA)

On Error Resume Next

Set oShell = WScript.CreateObject("WScript.Shell")
dato = oShell.RegRead(CADENA)

Msgbox objshell.expandenvironmentstrings(dato)

Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")

IF Err.Number <> 0 THEN  'Ha ocurrido un error
 IF Err.Number = -2147024894 THEN
   WshShell.RegWrite "CADENA", 1, "REG_DWORD"
MsgBox ("Opcion 1")
 END IF
WScript.Quit
ELSE                     'Valor encontrado
 IF dato = 0 THEN  
 WshShell.RegWrite "CADENA", 1, "REG_DWORD"
 Msgbox("Opcion2")
 END IF
END IF

Msgbox("FIN")

En el código he puesto varios mensajes para ir viendo que todas las variables almacenan los datos correctos... pero las funciones de escribir en el Registro de Windows no me funcionan

Alguien sabría en que estoy fallando¿?

Muchas gracias por adelantado.

Buenas tardes a todos:

Quería hacer un batch sencillo en el cual se pueda comparar un valor concreto de una cadena del registro de windows... estoy mirando REG QUERY y REG COMPARE y me estoy volviendo loco

Quería exactamente saber el valor de este registro (Se consultarlo de esta manera):

REG QUERY "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2" /v "1004"

Y me devuelve:

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\2
   1004    REG_DWORD    0x3

- Es decir que el valor de "1004" es 0x3

Entonces quería hacer un batch en el cual si el valor de "1004" es diferente a "0x3" pues por ejemplo ejecutar un "REG IMPORT C:\IE11.reg" (Es decir que cuando el valor "1004" es diferente a "0x3" pues importo toda la configuración que tengo como por defecto de un archivo .REG)...

Espero haberme explicado bien.
Alguien me podría ayudar¿?

Muchisimas gracias por adelantado.