Pytanie : Eksportowy pager pole od aktywny książka telefoniczna

Móc klucz w VB pismo, the pager pole od aktywny książka telefoniczna i ono w archiwum klucz?

Odpowiedź : Eksportowy pager pole od aktywny książka telefoniczna

The pracować kod musieć.  Zmieniać strRegKey i strValueName the lokacja i wartość imię który ty chcieć the Pager liczba.

Uwzględnienie,

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

Ustalony objADSysInfo = CreateObject ("ADSystemInfo")
strUser = objADSysInfo.UserName
Ustalony objUser = GetObject ("LDAP: /" & strUser)
strPager = objUser.Pager
strRegKey = "HKCU \ Oprogramowanie \ MyKey \"
strValueName = "MyPager"
Jeżeli Prawy (strRegKey, 1) <> "\" Wtedy strRegKey = strRegKey & "\"
Ustalony objShell = CreateObject ("WScript.Shell")
Na Błąd Życiorys Następnie
objShell.RegWrite strRegKey & strValueName, strPager, "REG_SZ"
Jeżeli Err.Number = (0) Wtedy
	MsgBox "Twój Pager przechować w the archiwum."
Inny
	MsgBox "Nie Udać Się twój Pager w the archiwum. Błąd" & Err.Number & ": " & Err.Description
Kończyć Jeżeli
Inne rozwiązania  
 
programming4us programming4us