Errore installazione VMware vers. 12.x linux ubuntu

Se si prova ad installare VMware vers. 12.x sotto linux Ubuntu 16.10 si ottiene l’errore:

Gtk-WARNING **: Failed to load module “libcanberra-gtk-module.so”: libcanberra-gtk-module.so: cannot open shared object file: No such file or directory

per superare basta creare il link simbolico, naturalmente deve essere installato il seguente pacchetto:

sudo apt install libcanberra-dev

ricordatevi di dare

sudo ldconfig

e creare il link simbolico

sudo ln -s /usr/lib/x86_64-linux-gnu/gtk-2.0/modules/libcanberra-gtk-module.so /usr/lib/libcanberra-gtk-module.so

 

ERRORE SUL TEMA

Gtk-WARNING **: Impossibile trovare il motore del tema in module_path: «murrine»

apt-cache search murrine

e procedere alla installazione

sudo apt install murrine-themes

La sicurezza non è mai troppa…. anche su Linux

Ho installato ESET NOD32 per linux Desktop su Ubuntu 64bit 16.10

Linux (32-bit): http://download.eset.com/download/unix/eav/eset_nod32av_32bit_en.linux
Linux (64-bit): http://download.eset.com/download/unix/eav/eset_nod32av_64bit_en.linux

per i rootkit c’è

Rootkit Hunter consente di analizzare il filesystem, sottoponendo alla scansione tutti i file presenti in esso alla ricerca di applicazioni malevole.

sudo apt install rkunter

per aggiornare le firme

sudo rkhunter --update

Installare WMware Horizon Client su Ubuntu 16.10 64bit

Si scarica il client ed eseguire con

sudo ./VMware-Horizon-Client-4.3.0-4710754.x64.bundle

ovvero

sudo sh VMware-Horizon-Client-4.3.0-4710754.x64.bundle

naturalmente si deve scegliere il file relativo alla propria distro e architettura nel mio caso AMD64

se vengono visualizzati errori del tipo

/usr/lib/vmware/view/bin/vmware-view: error while loading shared libraries: libudev.so.0: cannot open shared object file: No such file or directory

dovete creare il link simbolico con le librerie, da shell il comando

sudo ln -sf /lib/x86_64-linux-gnu/libudev.so.1 /lib/x86_64-linux-gnu/libudev.so.0

si lancia con il comando

sudo vmware-view
 

Domoticz, impostare un rilevatore PIR

Mi diverto con domoticz e gli script lua. Con questo semplicissimo script LUA ho gestito il PIR 433 mhz per gestire un presa radio comandata sempre 433 mhz.

nome script script_device_sensore1on.lua mentre la dir dove inserire lo script è ~/domoticz/scripts/lua

local motion_switch = ‘sensore1on’
local status_switch = ‘TelevisStanzaLetto’
commandArray = {}
if (devicechanged[motion_switch] == ‘On’ and otherdevices[status_switch]) == ‘Off’ then –motion detected, so there is someone home
commandArray[status_switch]=’On’
end
return commandArray

Quello che voglio far notare è come si scrive il nome di una script in domoticz es.: script_trigger_name.lua

il Trigger può essere come valore ‘time’, ‘device’, ‘variable’ or ‘security’, Name può essere qualsiasi nome del sensore che vuoi gestire, script_device_MyOtherDeviceNameOnWhenMyDeviceNameOn.lua per essere istanziato.

importare esportare in Excel in VBA

ho scritto questo codice….

Public Sub ImportaTxtFile(FName As String, Sep As String)

Dim RowNdx As Long
Dim ColNdx As Integer
Dim TempVal As Variant
Dim WholeLine As String
Dim Pos As Integer
Dim NextPos As Integer
Dim SaveColNdx As Integer
Dim n As Integer

Application.ScreenUpdating = False
'On Error GoTo EndMacro:

SaveColNdx = ActiveCell.Column
RowNdx = ActiveCell.Row

Open FName For Input Access Read As #1

While Not EOF(1)
Line Input #1, WholeLine
If Sheets("Tracciato").Cells(2, 6).Value > 0 Then
If Right(WholeLine, 1) <> Sep Then
WholeLine = WholeLine & Sep
End If
End If
ColNdx = SaveColNdx
Pos = 1
n = 1
'    NextPos = InStr(Pos, WholeLine, Sep)
NextPos = Sheets("Tracciato").Cells(1, 1).Value

While NextPos >= 1
If n = 1 Then
TempVal = Mid(WholeLine, 1, NextPos)
Cells(RowNdx, ColNdx).Value = TempVal
n = n + 1
Pos = NextPos
ColNdx = ColNdx + 1
'NextPos = InStr(Pos, WholeLine, Sep)
NextPos = Sheets("Tracciato").Cells(n, 1).Value
Else
TempVal = Mid(WholeLine, Pos + Len(Sep) + 1, NextPos - Pos - Len(Sep))
Cells(RowNdx, ColNdx).Value = TempVal
n = n + 1
Pos = NextPos
ColNdx = ColNdx + 1
'NextPos = InStr(Pos, WholeLine, Sep)
NextPos = Sheets("Tracciato").Cells(n, 1).Value
End If
Wend
RowNdx = RowNdx + 1
Wend

EndMacro:
On Error GoTo 0
Application.ScreenUpdating = True
Close #1
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Fine Importazione Txt File
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Scegli file Txt e carattere di separazione
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub finestraImportazione()
Dim FileName As Variant
Dim Sep As String
FileName = Application.GetOpenFilename(FileFilter:="Text File (*.txt),*.txt")
If FileName = False Then
'lascia perdere
Exit Sub
End If
Sep = Application.InputBox("Inserisci il carattere di separazione, se presente:", Type:=2)
If Sep = vbNullString Then
End If
' controllo se esiste un carattere di separazione e valorizza il foglio 2 cella f2
If CInt(Len(Sep)) = 0 Then
Cells(2, 6).Value = 0
Else
Cells(2, 6).Value = Len(Sep)
End If
Debug.Print "FileName: " & FileName, "Separatore: " & Sep
ImportaTxtFile FName:=CStr(FileName), Sep:=CStr(Sep)
End Sub
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Fine finestra scelta file e specificazione separatore
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''