Fråga : Exportpersonsökaren sätter in från aktivarkiv

Kunde någon hjälpa mig skriftligen en VB att skriva, för att exportera personsökaren sätta in från aktivarkiv och sätt det in in i en nyckel- registrering? " klar "

Svar : Exportpersonsökaren sätter in från aktivarkiv

Det nedanfört kodifierar bör fungera.  ÄndringsstrRegKeyen och strValueName som passar läget och som värderar känt, som du önskar att ska sätta personsökaren, numrerar.

Hälsningar,

Råna.

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

Fastställd objADSysInfo = CreateObject (”ADSystemInfo”) strUser = objADSysInfo.UserName Fastställd objUser = GetObject (”LDAP: /” & strUser) strPager = objUser.Pager strRegKey = ”HKCU \ programvara \ MyKey \”, strValueName = ”MyPager”, Om höger (strRegKey, 1) <> ”\” därefter strRegKey = strRegKey & ”\”, Fastställd objShell = CreateObject (”WScript.Shell”) På felmeritförteckning därefter objShell.RegWrite-strRegKey & strValueName, strPager, ”REG_SZ”, Om Err.Number = 0 därefter MsgBox ”din personsökare har lagrats i registreringen.”, Annars MsgBox ”missade för att lagra din personsökare in i registreringen. Fel” & Err.Number & ”: ” & Err.Description Avsluta om