21:57 08-02-2018
Never »
Google Drive for PC is now Backup and Sync from Google
Для того, что бы вкорячить на XP требуется Standalone Iinstaller или типа Offline installer.
Забираем от сюда
http://dl.google.com/dl/edgedl/driv....7843/gsync.msi Ставится тихо ибо msi.
По этому пути лежит версия 3.39.8370.7843. Все остальные лежат там же, но в своих папках соответственно. Подменяем - забираем.
UPD
Сдается мне старая стабильней
http://dl.google.com/dl/edgedl/driv....3394/gsync.msi
08:20 23-01-2018
Never »
Отсылка письма через outlook
strUserName = InputBox("Введите почтовый адрес","Окно ввода почты")
if (strUserName<>"") then
strTextToCB = "Этот текст засунем в буфер"
CreateObject("WScript.Shell").Run "mshta.exe ""javascript:clipboardData.setData('text','" & StrTextToCB & "');close();""", 2
strHomeFolder = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
Set OutlookObject = CreateObject("Outlook.Application")
Set OutMail = OutlookObject.CreateItem(0)
With OutMail
.to = strUserName
.Subject = "Тема письма"
.Attachments.Add(strHomeFolder & "\Папка\Картинка.png")
.HTMLBody = "<body>" & _
"<font size=""4"" face=""Arial"">" & _
"Данное письмо сгененрировано автоматически, просьба не отвечать на него" & "<br> <br> <br>" & _
"Данный текст отсылается в теле письма в формате html" & "<br>" & _
"Картинка приаттачивается автоматом" & _
"<img src=Citrix_Receiver_001.png" & "<br>" & _
"</font>" & _
"</body>"
.Send
End With
end if
08:13 23-01-2018
Never »
Подключение принтера
rundll32 printui.dll,PrintUIEntry /in /n "\\SERVER\PRINTER"
12:10 04-10-2016
Never »
Запросить ключ активации Windows
Dim fso, tf
Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile("Winkey.txt", True)
tf.Write (ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")))
tf.Close
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
13:09 06-02-2015
Never »
Очистить кеш IE & Java
@echo off
taskkill /T /F /IM iexplore.exe
RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255
javaws -uninstall
javaws -clearcache
del /f /s /q %userprofile%\AppData\LocalLow\Sun\Java\Deployment\cache
del /f /s /q %userprofile%\AppData\LocalLow\Sun\Java\Deployment\log
del /f /s /q %userprofile%\AppData\LocalLow\Sun\Java\Deployment\tmp
11:09 16-11-2012
Never »
Собрать файлы с машин в кучу
set beginpool=1
set endpool=255
set subnet=\\192.168.1.
set storepath=D:\Archive\
net use h: /delete
CLS
FOR /L %%I in (%beginpool%,1,%endpool%) do (
net use h: %subnet%%%I\d$ /user:srt\Administrator lokosrt
robocopy h: %storepath%%subnet%%%I archive.rar /mt:128 /xo /xx /r:5 /w:3
net use h: /delete
)
09:22 29-10-2012
Never »
Все настройки в одном месте
Создать и назвать папку: GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}
12:27 25-10-2012
Never »
Создание и работа с текстом в консоли
Сделать запись в файл:
copy /A CON <файл с полным путем>
Выход F6 или Ctrl+Z, потом Enter.
Строковый редактор:
edlin <файл с полным путем>
набрать I нажать Enter
Выход Ctrl+C, набрать E нажать Enter.
Полноценный редактор dos:
edit <файл с полным путем>
работает в кодировке MS-DOS 866
12:47 05-10-2012
Never »
Консольное скачивание файлов
Создать задачу:
BITSAdmin /CREATE /DOWNLOAD DownloadJob1
Просмотреть состояние:
BITSadmin /LIST /VERBOSE
Добавить задание в задачу:
BITSadmin /ADDFILE DownloadJob1 http://microsoft.com/logo.png D:\logo.png
Запустить задачу:
BITSADMIN /RESUME DownloadJob1
Запустить монитор задач, обновление 1 секунда
BITSadmin /MONITOR /REFRESH 1
Закончить задание
BITSadmin /COMPLETE DownloadJob1
Остальное тут:
http://technet.microsoft.com/en-us/...856(WS.10).aspx
10:24 05-10-2012
Never »
Запрос процессов на удаленном компьютере.
wmic
wmic:root\cli> /node:<<Ip-адрес удаленного компьютера>>
process
09:54 05-10-2012
Never »
Автоматическое создание подписи в Outlook'е.
'Подпись для писем, берет параметры из AD
On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)
strZpov = "С уважением,"
strDev =
"---------------------------------------------------------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------------------------------------------"
strPostIndex = ObjUser.postalCode
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strweb = objuser.wWWHomePage
strgorod = objuser.l
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strICQ = objUser.pager
strIntPhone = objuser.ipPhone
strMobile = objUser.mobile
strEmail = objuser.mail
strLogo = "\\server\logo.jpg"
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
objSelection.ParagraphFormat.Space1
objSelection.Font.Size = "11"
objSelection.Font.Name = "Calibri"
objselection.font.color = RGB(0, 90, 139)
objSelection.TypeText strZpov & CHR(11)
objSelection.TypeText strName & CHR(11)
objSelection.Font.Size = "2"
objSelection.TypeText strDev & CHR(11)
objSelection.Font.Size = "11"
objSelection.TypeText strTitle & CHR(11)
if (strDepartment<>"") then objSelection.TypeText strDepartment & CHR(11)
objSelection.TypeText strCompany & CHR(11)
if (strPhone<>"") then objSelection.TypeText "Тел.: XXX-XXX вн." & strPhone & CHR(11)
if (strIntPhone<>"") then objSelection.TypeText "Тел.: " & strIntPhone & CHR(11)
if (strstrIntPhone<>"") then objSelection.TypeText "" & strIntPhone & CHR(11)
if (strfax<>"") then objSelection.TypeText "Факс: " & strfax & CHR(11)
if (strMobile<>"") then objSelection.TypeText "Моб.: " & strMobile & CHR(11)
objSelection.TypeText strPostIndex & ", г. " & strgorod & ", ул. " & strstreet & CHR(11)
if (strICQ<>"") then objSelection.TypeText "ICQ: " & strICQ & CHR(11)
Set hyp = objSelection.Hyperlinks.Add(objSelection.Range, strWeb, "", "", strWeb)
hyp.Range.Font.Size = "11"
hyp.Range.Font.Name = "Calibri"
hyp.Range.Font.color = RGB(0, 90, 139)
objSelection.TypeText CHR(11)
objSelection.TypeText CHR(11)
objSelection.InlineShapes.AddPicture(strLogo)
Set objSelection = objDoc.Range()
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObject.NewMessageSignature = "AD Signature"
objSignatureObject.ReplyMessageSignature = "AD Signature"
objDoc.Saved = True
objDoc.Close
objWord.Quit
09:26 05-10-2012
Never »
Имя пользователя из AD в описание компа
for /f "skip=3 tokens=3,4,5" %%a in ('net users %username% /domain') do (
if "%%a" neq "" (
if "%%b" neq "" (
if "%%c" neq "" (
net config server /srvcomment:"%%a %%b %%c">nul
)
)
)
goto exitproc
)
:exitproc