Initial commit

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."
+
+

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

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"
+

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