Pergunta : Campo do pager da exportação do diretório ativo

Poderia alguém ajudar-me em escrever um certificado de VB, para exportar o campo do pager do diretório ativo e para introduzi-lo em uma chave do registro? class= do

Resposta : Campo do pager da exportação do diretório ativo

O código below deve trabalhar.  Mudar o strRegKey e o strValueName para serir o nome da posição e do valor que você quer põr o número de Pager.

Considerações,

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

Ajustar o objADSysInfo = o CreateObject (“ADSystemInfo”)
strUser = objADSysInfo.UserName
Ajustar o objUser = o GetObject (“LDAP: /” & strUser)
strPager = objUser.Pager
strRegKey = “HKCU \ software \ MyKey \”
strValueName = “MyPager”
Se (strRegKey, 1) “ <> direito \” então strRegKey = strRegKey & “\”
Ajustar o objShell = o CreateObject (“WScript.Shell”)
No erro recomeçar em seguida
strRegKey de objShell.RegWrite & strValueName, strPager, “REG_SZ”
Se Err.Number = 0 então
	MsgBox “seu Pager foi armazenado no registro.”
Mais
	MsgBox “não são armazenados seu Pager no registro. Erro” & Err.Number & “: ” & Err.Description
Terminar se
Outras soluções  
 
programming4us programming4us