commit 829ae7ce38df3e8d7e2e91c19ecec3375444517a Author: Maxim Lihachev Date: Wed Aug 28 17:02:51 2013 +0600 Initial commit diff --git a/addressBook.vbs b/addressBook.vbs new file mode 100755 index 0000000..7f6ac3f --- /dev/null +++ b/addressBook.vbs @@ -0,0 +1,207 @@ +'-=-=-=-=-=-=-=-=-=-=-=-=-=- +'Written By James McWhinney +'Vancouver BC, Canada +'www.importfanatik.com +'April 26th, 2006 +'-=-=-=-=-=-=-=-=-=-=-=-=-=- + +' +++ ------------------------------------------------------------------------- +' +++ +' +++ Скрипт добавляет адресную книгу LDAP в Microsoft Outlook +' +++ +' +++ 2013, Maxim Lihachev +' +++ + аргументы командной строки +' +++ + авторизация на LDAP-сервере: +' +++ + имя пользователя (пароль вводится при первом использовании учётной записи) +' +++ + включение безопасной проверки пароля +' +++ + включение поиска по LDAP +' +++ + включение просмотра адресной книги +' +++ +' +++ ИСПОЛЬЗОВАНИЕ: addressBook.vbs /name:"Отображаемое имя" /server:сервер /port:порт /dn:dn +' +++ + +' +++ Проверка аргументов командной строки +Set colNamedArguments = WScript.Arguments.Named + +If colNamedArguments.Exists("server") Then + LDAPserver = colNamedArguments.Item("server") +Else + MsgBox "ИСПОЛЬЗОВАНИЕ: " & Wscript.ScriptName & _ + " /dn:dn" & _ + " /server:сервер " & _ + "?/port:порт [389]? " & _ + "?/name:отображаемое имя [server]?", 16 + WScript.Quit +End If + +LDAPdn = colNamedArguments.Item("dn") + +If colNamedArguments.Exists("port") Then + LDAPport = colNamedArguments.Item("port") +Else + LDAPport = "389" +End If + +If colNamedArguments.Exists("name") Then + LDAPdisplayname = colNamedArguments.Item("name") +Else + LDAPdisplayname = LDAPserver +End If + +' +++ ------------------------------------------------------------------------- + +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\" + +LDAPusername = CreateObject("WScript.NetWork").UserName + +'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, "000b6613", 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", LDAPusername +oReg.SetStringValue HKEY_CURRENT_USER, _ + sKeyPath , "001e6603", LDAPdn +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, "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) + +' +++ ------------------------------------------------------------------------- +' Поиск в указанном DN +oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "00036623", Array(0,0,0,0) +' Включение безопасной проверки пароля +oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6615", Array(1,0) +' Разрешение просмотра адресной книги +oReg.SetBinaryValue HKEY_CURRENT_USER, sKeyPath, "000b6622", Array(1,0) +' +++ ------------------------------------------------------------------------- + +'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 + +' +++ ------------------------------------------------------------------------- + +MsgBox "Адресная книга " & LDAPdisplayname & " добавлена." & _ + "Укажите пароль для подключения к " & LDAPserver & " при запуске Outlook." + + diff --git a/capslock2esc.reg b/capslock2esc.reg new file mode 100755 index 0000000..8b856aa --- /dev/null +++ b/capslock2esc.reg @@ -0,0 +1,8 @@ +Windows Registry Editor Version 5.00 + +;; +;; CapsLock -> Esc +;; + +[HKEY_CURRENT_USER\Keyboard Layout] +"Scancode Map"=hex:00,00,00,00,00,00,00,00,03,00,00,00,3a,00,46,00,01,00,3a,00,00,00,00,00 \ No newline at end of file diff --git a/chat.bat b/chat.bat new file mode 100755 index 0000000..2c657bc --- /dev/null +++ b/chat.bat @@ -0,0 +1,8 @@ +@ECHO OFF + +:: +:: Закрытие mIRC на основной машине и запуск на используемой +:: + +taskkill /S \\cb-07-04 /FI "imagename eq mirc.exe" && start "" "%SYSTEMDRIVE%\Program Files\mIRC\mirc.exe" + diff --git a/mirc.bat b/mirc.bat new file mode 100755 index 0000000..86d19c0 --- /dev/null +++ b/mirc.bat @@ -0,0 +1,9 @@ +п»ї@ECHO OFF + +:: +:: Запуск только РѕРґРЅРѕР№ РєРѕРїРёРё mIRC +:: + +tasklist /S \\cb-07-04 /FI "imagename eq mirc.exe" | find /C "mirc.exe" || start "" "%SYSTEMDRIVE%\Program Files\mIRC\mirc.exe" + +exit \ No newline at end of file