Installing Oracle java on Ubuntu 14.04

Steps to install Oracle java on Ubuntu 14.04

sudo apt-get install python-software-properties
sudo add-apt-repository ppa:webupd8team/java
sudo apt-get update

#install java 8

sudo apt-get install oracle-java8-installer

#show installed version of java 

update-alternatives --config java 

nano /etc/environment

JAVA_HOME="YOUR_PATH"

source /etc/environment

echo $JAVA_HOME  

change default version of java in your system

update-alternatives --config java 

or by the next bash script 

#/usr/bin/sh
sudo apt-get install python-software-properties
sudo add-apt-repository ppa:webupd8team/java
sudo apt-get update

#install java 8

sudo apt-get install oracle-java8-installer


#show installed version of java

echo 'JAVA_HOME="/usr/lib/jvm/java-8-oracle"' >> /etc/environment

source /etc/environment

echo $JAVA_HOME
echo "!!!ALL DONE!!!"

VPN bat script

The following script make connection with vpn server with preconfigured windows connection with ConnectionName, MyUsername and password MyP@ssw0rd . And adding static route to NetSubnet with SubnetMask :

 ---------------------------------------------------------------------------------------------------------

@ECHO OFF
COLOR 8F
SET NetSubnet=192.168.0.0
SET SubnetMask=255.255.255.0
ECHO.
ECHO ###########################################################
ECHO            PLEASE DO NOT CLOSE THIS WINDOW     
ECHO This window will automatically disappear after 20 seconds.
ECHO ###########################################################
ECHO.
ECHO Dialing VPN, please wait....
RASDial ConnectionName MyUsername MyP@ssw0rd
ECHO.
ECHO Obtaining IP Address, please wait....
PING 127.0.0.1 -n 15 -l 0 -w 0 >NUL
SET cWMIC=WMIC NICCONFIG WHERE "ServiceName='NdisWan'" GET IPAddress /FORMAT:CSV
FOR /F "tokens=2 delims=,{}" %%i IN (' %cWMIC% ^|FIND "."') DO SET IPAddress=%%i
ECHO Obtained IP address: %IPAddress%
ECHO.
ECHO Updating Routing Table, please wait....
ECHO.
ROUTE DELETE %NetSubnet% >NUL
ROUTE ADD %NetSubnet% MASK %SubnetMask% %IPAddress% METRIC 1
ROUTE PRINT %NetSubnet%
PING -n 5 -w 1 -l 1 127.0.0.1 >NUL
EXIT /B 0

Windows 10 Home to Windows 10 Pro

Problem begun when our company brought laptop with Windows 10 Home on board but we should use our corporate Windows 10 Pro. But you cant do this because your laptop have firmwared with your personal Windows 10 Home key.

The solution is simple. You shoud change your key on laptop to the next generic key VK7JG-NPHTM-C97JM-9MPGT-3V66T . After that, laptop will do upgrade to Windows 10 Pro. And in the ending, you can activate your laptop with your corporate key.

Бекап БД MySQL по cron с датой

mysqldump -u root -pПАРОЛЬ --all-databases | gzip > /home/adis/$(date +%F)_full_DB.sql.gz

Скрипт для инвентаризации компьютеров в сети

Данный великолепный скрипт был взят от сюда:
http://zheleznov.info/invent_comp.htm    ОГРОМНОЕ СПАСИБО АВТОРУ!!!
и модифицирован под свои нужды. Добавлена возможность брать список компьютеров из текстового файла без необходимости ввода именни компьютера. Подробно описание работы скрипта на сайте автора (адрес см. выше).

Пример текстового файла со списком компьютеров:
--------------------------------------------------------------------
comp1
comp2
comp3
--------------------------------------------------------------------

Скрипт
--------------------------------------------------------------------
filename = "ПУСТЬ К ФАЙЛУ СО СПИСКОМ ПК"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)

Do Until f.AtEndOfStream

'Инвентаризация установленных программ и обновлений средствами WMI и VBScript (24.08.2010)
'Отчет в отдельном файле CSV для последующей сборки общего отчета
'Подробности - см. http://zheleznov.info/invent_soft.htm
'Автор: Павел Железнов

'== НАСТРОЙКИ

'настройки для инвентаризации программ
Const UPDATES = False 'не учитывать обновления
Const TITLE = "Инвентаризация установленных программ" 'заголовок диалоговых окон
Const DATA_DIR = "soft\" 'каталог для сохранения отчетов + "\" в конце
'Const DATA_DIR = "\\SRV\Invent\soft\" 'сетевой ресурс для сохранения отчетов + "\" в конце

'настройки для инвентаризации обновлений
'Const UPDATES = True 'учитывать только обновления
'Const TITLE = "Инвентаризация установленных обновлений" 'заголовок диалоговых окон
'Const DATA_DIR = "updates\" 'каталог для сохранения отчетов + "\" в конце
'Const DATA_DIR = "\\SRV\Invent\updates\" 'сетевой ресурс для сохранения отчетов + "\" в конце

'прочие настройки
Const DATA_EXT = ".csv" 'расширение файла отчета
Const SILENT = True 'тихий режим отключен, будет запрошено имя компьютера
'Const SILENT = True 'режим отчета о локальном компьютере без вывода диалогов
Const HEAD_LINE = True 'выводить заголовки в первой строке CSV-файла

'не завершать скрипт аварийно
On Error Resume Next

'== ВЫПОЛНЕНИЕ

'глобальные переменные
Dim wmio

'узнать имя локального компьютера
Dim comp, nwo
Set nwo = CreateObject("WScript.Network")
comp = f.ReadLine




'запросить имя удаленного компьютера
If Not SILENT Then
    comp = InputBox("Введите имя компьютера:", TITLE, comp)
    'проверить доступность компьютера
    If Len(comp) > 0 And Unavailable(comp) Then
        MsgBox "Компьютер недоступен:" & vbCrLf & comp, vbExclamation, TITLE
        comp = ""
    End If
End If

'провести инвентаризацию
If Len(comp) > 0 Then InventSoft

'если ошибка
If Len(Err.Description) > 0 Then _
    If Not SILENT Then MsgBox comp & vbCrLf & "Ошибка:" & vbCrLf & Err.Description, vbExclamation, TITLE

'== ПОДПРОГРАММЫ

'обращение к WMI оформлено в подпрограмму, чтобы можно было корректно обработать возможную ошибку


'проверить указанный ключ реестра; вернуть строку для записи в файл отчета

'проверить доступность компьютера в сети; вернуть True, если адрес недоступен







Loop

f.Close



Sub InventSoft
    'подключить реестр удаленного компьютера через WMI
    Set wmio = GetObject("WinMgmts:{impersonationLevel=impersonate}!\\" & comp & "\Root\default:StdRegProv")

    'создать файл отчета
    Dim fso, tf
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FolderExists(DATA_DIR) Then
        If Not SILENT Then MsgBox "Не найден каталог для сохранения отчета:" & vbCrLf & DATA_DIR, vbExclamation, TITLE
        Exit Sub
    End If
    Set tf = fso.CreateTextFile(DATA_DIR & comp & DATA_EXT, True)

    'записать заголовки столбцов
    If HEAD_LINE Then tf.WriteLine "Название и версия;Производитель;Дата установки"

    'искать программы и оформить текст для отчета
    Dim s
    s = ExtractSoft("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\")
    If Len(s) > 0 Then tf.Write s

    'для 64-битных систем есть еще другой ключ! (32-битные программы на 64-битной системе)
    s = ExtractSoft("SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\")
    If Len(s) > 0 Then tf.Write s

    'закрыть файл отчета
    tf.Close
    If Not SILENT Then MsgBox "Отчет сохранен в файл:" & vbCrLf & DATA_DIR & comp & DATA_EXT, vbInformation, TITLE

End Sub


Function ExtractSoft(key)

    'получить коллекцию
    Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
    Dim items
    wmio.EnumKey HKLM, key, items
    If IsNull(items) Then
        ExtractSoft = ""
        Exit Function
    End If

    'отобрать нужные элементы
    Dim s, item, ok, name, publ, inst, x, prev
    s = "" 'результат накапливать в строке
    For Each item In items

        ok = True 'флаг продолжения

        'название, пропускать пустые и повторяющиеся
        prev = name
        wmio.GetStringValue HKLM, key & item, "DisplayName", name
        If IsNull(name) Or Len(name) = 0 Or name = prev Then
            ok = False
        Else 'не допускать символ ";"
            name = Replace(name, ";", "_")
        End If

        'отделить заплатки, по значению параметра ParentKeyName = "OperatingSystem"
        If ok Then
            wmio.GetStringValue HKLM, key & item, "ParentKeyName", x
            'для программ
            If UPDATES Then
                If IsNull(x) Or x <> "OperatingSystem" Then ok = False
            'для обновлений
            Else
                If Not IsNull(x) And x = "OperatingSystem" Then ok = False
            End If
        End If

        'дата установки
        If ok Then
            wmio.GetStringValue HKLM, key & item, "InstallDate", inst
            If IsNull(inst) Or Len(inst) < 8 Then
                inst = "-"
            Else 'преобразовать в читаемый вид
                inst = Mid(inst, 7, 2) & "." & Mid(inst, 5, 2) & "." & Left(inst, 4)
            End If
        End If

        'производитель
        If ok Then
            wmio.GetStringValue HKLM, key & item, "Publisher", publ
            If IsNull(publ) Or Len(publ) = 0 Then publ = "-"
        End If

        If ok Then s = s & name & ";" & publ & ";" & inst & vbCrLf

    Next
    ExtractSoft = s

End Function

Function Unavailable(addr)
    Dim wmio, ping, p
    Set wmio = GetObject("WinMgmts:{impersonationLevel=impersonate}")
    Set ping = wmio.ExecQuery("SELECT StatusCode FROM Win32_PingStatus WHERE Address = '" & addr & "'")
    For Each p In ping
        If IsNull(p.StatusCode) Then
            Unavailable = True
        Else
            Unavailable = (p.StatusCode <> 0)
        End If
    Next
End Function


 

Скрипт для копирования файлов по сети

        

Данный vbs скрипт позволят скопировать файлы с локального компьютера на компьютеры в доменной сети, имена которых берутся из файла.




Пример текстового файла со списком компьютеров:
--------------------------------------------------------------------
comp1
comp2
comp3
--------------------------------------------------------------------

Скрипт
--------------------------------------------------------------------
filename = "ПУТЬ К ФАЙЛУ СО СПИСКОМ ПК"

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename)

Do Until f.AtEndOfStream

On Error Resume Next

Dim wmio

Dim comp, nwo
Set nwo = CreateObject("WScript.Network")
comp = f.ReadLine

Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "ПУТЬ К ФАЙЛУ " , "\\" & comp & "ПРИМЕР ПУТИ НА УДАЛЕННОМ ПК \C$\temp", OverwriteExisting

Loop

MsgBox "ALL DONE"

f.Close
--------------------------------------------------------------------

Рекомендации по развертыванию Symantec Endpoint Protection

Рекомендации по развертыванию Symantec Endpoint Protection

http://clientui-kb.symantec.com/resources/sites/BUSINESS/content/staging/DOCUMENTATION/4000/DOC4448/en_US/1.0/Endpoint%20Protection%20Sizing%20and%20Scalability%20Best%20Practices_%20v2.3.pdf