const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set oReg=GetObject( "winmgmts:{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\default:StdRegProv" ) RegistryFolder = "Software\Microsoft\Windows NT\" & _ "CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\" LDAPdisplayname = "Carnet de contacts entreprise" LDAPserver = "DC01.entreprise.com" LDAPport = "389" LDAPsearchbase = "OU=Entreprise Users,DC=entreprise,DC=com" 'Add Ldap Type Key sKeyPath = RegistryFolder & "e8cb48869c395445ade13e3c1c80d154\" oReg.CreateKey HKEY_CURRENT_USER, sKeyPath oReg.SetBinaryValue HKEY_CURRENT_USER, _ sKeyPath, "00033009", Array(0,0,0,0) oReg.SetBinaryValue HKEY_CURRENT_USER, _ sKeyPath, "00033e03", Array(&H23,0,0,0) oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _ "001e3001", "Microsoft LDAP Directory" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _ "001e3006", "Microsoft LDAP Directory" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _ "001e300a", "EMABLT.DLL" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _ "001e3d09", "EMABLT" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _ "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}" oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, _ "01023d0c", Array(&H5c,&Hb9,&H3b,&H24, _ &Hff,&H71,&H07,&H41,&Hb7,&Hd8,_ &H3b,&H9c,&Hb6,&H31,&H79,&H92) 'Add Ldap connection settings key sKeyPath = RegistryFolder & "5cb93b24ff710741b7d83b9cb6317992\" oReg.CreateKey HKEY_CURRENT_USER, sKeyPath oReg.SetBinaryValue HKEY_CURRENT_USER, _ sKeyPath, "00033009", Array(&H20,0,0,0) oReg.SetBinaryValue HKEY_CURRENT_USER, _ sKeyPath, "00036623", Array(&H00,0,0,0) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6613", Array(0,0) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6615", Array(0,0) oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3001", LDAPdisplayname oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d09", "EMABLT" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0a", "BJABLR.DLL" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e3d0b", "ServiceEntry" oReg.SetStringValue HKEY_CURRENT_USER, _ sKeyPath , "001e3d13", "{6485D268-C2AC-11D1-AD3E-10A0C911C9C0}" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6600", LDAPserver oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6601", LDAPport oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6602", "compteconnexionAD@entreprise.com" oReg.SetStringValue HKEY_CURRENT_USER, _ sKeyPath , "001e6603", LDAPsearchbase oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , _ "001e6604", "(&(mail=*)(|(mail=%s*)" & _ "(|(cn=%s*)(|(sn=%s*)(givenName=%s*)))))" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6605", "SMTP" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6606", "mail" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6607", "60" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6608", "100" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6609", "120" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660a", "15" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660b", "" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660c", "OFF" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660d", "OFF" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660e", "NONE" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e660f", "OFF" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6610", "postalAddress" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6611", "cn" oReg.SetStringValue HKEY_CURRENT_USER, sKeyPath , "001e6612", "1" oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "001e67f1", Array(&H0a) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023615", _ Array(&H50,&Ha7,&H0a,&H61,&H55,&Hde,_ &Hd3,&H11,&H9d,&H60,&H00,_ &Hc0,&H4f,&H4c,&H8e,&Hfa) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", _ Array(&He8,&Hcb,&H48,&H86,&H9c,&H39,_ &H54,&H45,&Had,&He1,&H3e,&H3c,_ &H1c,&H80,&Hd1,&H54) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01026617", _ Array(&H01,&H00,&H00,&H00,&Hd0,&H8c,&H9d,&Hdf,&H01,&H15,&Hd1,&H11,&HAc,&H7a,&H00,&Hc0,&H4f,&Hc2,&H97,&Heb,&H01,_ &H00,&H30,&H00,&H99,&Hb0,&H3d,&H8a,&H3d,&Hb2,&H05,&H49,&Hbf,&H14,&H8e,&H99,&H6b,&H0b,&Hc5,&H81,&H00,&H00,&H00,&H00,&H02,&H00,_ &H00,&H00,&H00,&H97,&H03,&H66,&H00,&H00,&Ha8,&H00,&H00,&H00,&H10,&H00,&H00,&H00,&H33,&H94,&H43,&H37,&Hca,&H31,&Hbc,&Hb1,&Hba,_ &H50,&H2a,&Hd0,&H44,&Hae,&Hd0,&H04,&H00,&H00,&H00,&H00,&H04,&H80,&H10,&H00,&Ha0,&H00,&H00,&H00,&H10,&H00,&H00,&H00,&H84,&Hae,_ &H76,&H1d,&H84,&H73,&H91,&H4f,&H9a,&H83,&H3d,&Hfa,&Hb9,&Hc1,&H94,&He7,&H18,&H00,&H00,&H00,&H5f,&H06,&H38,&Ha9,&H6d,&H02,&Hbc,_ &H40,&Hdd,&Hf2,&Hd2,&H58,&Hbc,&He9,&H9e,&H1e,&H56,&H6c,&Hff,&H1b,&Hd9,&H64,&Hbc,&Hff,&H14,&H00,&H00,&H00,&H55,&Hae,&Hbc,&H20,_ &H46,&Hfa,&Hfb,&H33,&H56,&H6a,&Hef,&Hec,&H9c,&H58,&H78,&H6d,&H14,&H99,&Hac,&H4e) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01026631", _ Array(&H98,&H17,&H82,&H92,&H5b,&H43,_ &H03,&H4b,&H99,&H5d,&H5c,_ &Hc6,&H74,&H88,&H7b,&H34) oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "101e3d0f", _ Array(&H02,&H00,&H00,&H00,&H0c,&H00,_ &H00,&H00,&H17,&H00,&H00,&H00,_ &H45,&H4d,&H41,&H42,&H4c,&H54,_ &H2e,&H44,&H4c,&H4c,&H00,&H42,_ &H4a,&H41,&H42,&H4c,&H52,&H2e,_ &H44,&Hc,&H4c,&H00) 'Append to Backup Key for ldap types sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2\" oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d01",Backup Dim oldLength oldLength = UBound(Backup) ReDim Preserve Backup(oldLength+16) Backup(oldLength+1) = &He8 Backup(oldLength+2) = &Hcb Backup(oldLength+3) = &H48 Backup(oldLength+4) = &H86 Backup(oldLength+5) = &H9c Backup(oldLength+6) = &H39 Backup(oldLength+7) = &H54 Backup(oldLength+8) = &H45 Backup(oldLength+9) = &Had Backup(oldLength+10) = &He1 Backup(oldLength+11) = &H3e Backup(oldLength+12) = &H3c Backup(oldLength+13) = &H1c Backup(oldLength+14) = &H80 Backup(oldLength+15) = &Hd1 Backup(oldLength+16) = &H54 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d01", Backup 'Append to Backup Key for ldap connection settings sKeyPath = RegistryFolder & "9207f3e0a3b11019908b08002b2a56c2\" oReg.getBinaryValue HKEY_CURRENT_USER,sKeyPath, "01023d0e",Backup oldLength = UBound(Backup) ReDim Preserve Backup(oldLength+16) Backup(oldLength+1) = &H5c Backup(oldLength+2) = &Hb9 Backup(oldLength+3) = &H3b Backup(oldLength+4) = &H24 Backup(oldLength+5) = &Hff Backup(oldLength+6) = &H71 Backup(oldLength+7) = &H07 Backup(oldLength+8) = &H41 Backup(oldLength+9) = &Hb7 Backup(oldLength+10) = &Hd8 Backup(oldLength+11) = &H3b Backup(oldLength+12) = &H9c Backup(oldLength+13) = &Hb6 Backup(oldLength+14) = &H31 Backup(oldLength+15) = &H79 Backup(oldLength+16) = &H92 oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "01023d0e", Backup 'Delete Active Books List Key sKeyPath = RegistryFolder & "9375CFF0413111d3B88A001" & _ "04B2A6676\{ED475419-B0D6-11D2-8C3B-00104B2A6676}" oReg.DeleteKey HKEY_CURRENT_USER, sKeyPath
|