Placer l'objADSysInfo = le CreateObject (« ADSystemInfo »)
strUser = objADSysInfo.UserName
Placer l'objUser = le GetObject (« LDAP : / » et strUser)
strPager = objUser.Pager
strRegKey = « HKCU \ logiciel \ MyKey \ »
strValueName = « MyPager »
Si droit (strRegKey, 1) <> « \ » puis strRegKey = strRegKey et « \ »
Placer l'objShell = le CreateObject (« WScript.Shell »)
Sur l'erreur reprendre après
strRegKey d'objShell.RegWrite et strValueName, strPager, « REG_SZ »
Si Err.Number = 0 puis
MsgBox « votre bipeur a été stocké dans l'enregistrement. »
Autrement
MsgBox « pour stocker votre bipeur dans l'enregistrement. Erreur » et Err.Number et « : » Et Err.Description
Finir si
|