Questione : Campo dell'impaginatore dell'esportazione dall'indice attivo

Potrebbe qualcuno aiutarlo nella scrittura dello scritto di VB, per esportare il campo dell'impaginatore dall'indice attivo e per inserirlo in una chiave di registrazione? class= del

Risposta : Campo dell'impaginatore dell'esportazione dall'indice attivo

Il codice sotto dovrebbe funzionare.  Cambiare lo strRegKey e lo strValueName per essere adatto al nome di valore e di posizione che volete mettere il numero di impaginatore.

Riguardi,

Rob.

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

Regolare il objADSysInfo = CreateObject (“ADSystemInfo„) strUser = objADSysInfo.UserName Regolare il objUser = GetObject (“LDAP: /„ & strUser) strPager = objUser.Pager strRegKey = “HKCU \ software \ MyKey \„ strValueName = “MyPager„ Se di destra (strRegKey, 1) <> “\„ allora strRegKey = strRegKey & “\„ Regolare il objShell = CreateObject (“WScript.Shell„) Sull'errore riprendere dopo strRegKey di objShell.RegWrite & strValueName, strPager, “REG_SZ„ Se Err.Number = 0 allora MsgBox “il vostro impaginatore è stato immagazzinato nella registrazione.„ Altrimenti MsgBox “non riuscito per immagazzinare il vostro impaginatore nella registrazione. Errore„ & Err.Number & “: „ & Err.Description Concluder se