VMWare Workstation &  Hyper-V on same host:

Use VMWare:
bcdedit /set hypervisorlaunchtype off

Use Hyper-v:
bcdedit /set hypervisorlaunchtype auto

 Encrypt/Decrypt simple file over ssl

encrypt:
cat my.key | openssl enc -aes-256-cbc -e > my.key.ssl

decrypt:
cat my.key.ssl | openssl enc -aes-256-cbc -d > my.key

incredible find :)
find all not executable files in directory and set executable attribute for any

find /data -type f -name *.exe ! -perm /o+x -exec chmod o+x {} +

+ is not same ;

 OMNITRACKER
Отбираем все объекты RFCs у которых было движение статуса из Acceptance в Evaluation и для них устанавливаем в поле AcceptanceDate последнюю дату этого движения.

Set objApp = CreateObject("OtAut.OtApplication")
Set ActiveSession = objApp.MakeSession("localhost",5085,"","")

Set objFolder = ActiveSession.RequestFolders("RFCs")
Set objQuery = objFolder.MakeQuery

Set objHistSearch = objFolder.MakeHistorySearch
objHistSearch.StartDate = DateSerial(1970, 1, 1)
objHistSearch.EndDate = Now
objHistSearch.Field = "State"
objHistSearch.Type = 1 ' otHistSearchModification
objHistSearch.Value1 = "Acceptance"
objHistSearch.Value2 = "Evaluation"


Set objColumn = objQuery.AddColumn("UID")
objColumn.Type = 2 ' otQColTypeUniqueId
objQuery.AddHistorySearch objHistSearch
objQuery.Recursive = True

Set objRS = objQuery.Execute

Set objTransQuery = objFolder.MakeQuery
Set objColumn = objTransQuery.AddColumn("Date")
objColumn.Type = 3 ' otQColTypeStateTransDate
objColumn.Field = "State"
objColumn.StartDateField = "CreationDate"
objColumn.EndDate = Now
objColumn.DefaultDate = Now
objColumn.LastStateTransition = True
objColumn.FromState = "Acceptance"
objColumn.ToState = "Evaluation"
objTransQuery.Recursive = True

For i = 0 To objRs.RowCount - 1
    Set objFilter = objFolder.MakeFilter
    objFilter.SpecialField("UNIQUE_ID") = objRs(i, 0)
    objTransQuery.Filter = objFilter
    Set objTransRS = objTransQuery.Execute
    If objTransRS.RowCount = 1 Then
    Set objRFC = ActiveSession.GetRequestByUniqueId(objRs(i, 0))
    objRFC.Fields("AcceptanceDate").TValue = objTransRS(0, 0)
    objRFC.SaveEx 1023 - 32
    End If
Next