Cuestión : Campo del paginador de la exportación del directorio activo

¿Podría alguien ayudarme en la escritura de una escritura de VB, para exportar el campo del paginador de directorio activo y para insertarlo en una llave del registro? class= del

Respuesta : Campo del paginador de la exportación del directorio activo

El código below debe trabajar.  Cambiar el strRegKey y el strValueName para adaptarse al nombre de la localización y del valor que usted quiere poner el número de paginador.

Respetos,

Robo.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

Fijar el objADSysInfo = CreateObject (“ADSystemInfo”)
strUser = objADSysInfo.UserName
Fijar el objUser = GetObject (“LDAP: /” y strUser)
strPager = objUser.Pager
strRegKey = “HKCU \ software \ MyKey \”
strValueName = “MyPager”
Si es derecho (strRegKey, 1) <> “\” entonces strRegKey = strRegKey y “\”
Fijar el objShell = CreateObject (“WScript.Shell”)
En error reasumir después
strRegKey y strValueName, strPager de objShell.RegWrite, “REG_SZ”
Si Err.Number = 0 entonces
	MsgBox “su paginador se ha almacenado en el registro.”

	MsgBox “no podido para almacenar su paginador en el registro. Error” y Err.Number y “: ” Y Err.Description
Terminar si
Otras soluciones  
 
programming4us programming4us