Archive for Outros

Script de AutoLearn do Zimbra

#——————————–
#!/bin/bash
#
# Global
fullDate=`date +%d-%m-%Y_%H-%M`;
dayDate=`date +%A`

zimbraHamTrain ()
{
zmTrainSA=”/opt/zimbra/bin/zmtrainsa”;
zmProv=”/opt/zimbra/bin/zmprov”;

for mailbox in $($zmProv -l gaa | sort); do

${zmTrainSA} ${mailbox} ham inbox;

done

}

zimbraSpamTrain ()
{
zmTrainSA=”/opt/zimbra/bin/zmtrainsa”;
zmProv=”/opt/zimbra/bin/zmprov”;

for mailbox in $($zmProv -l gaa | sort); do

${zmTrainSA} ${mailbox} spam junk;

done

}

zimbraHamTrain;
zimbraSpamTrain;
#——————————–

Créditos: https://plus.google.com/+WellingtonTorrejaisdaSilva/posts/RNDAkk2bfrh

Derrubar Processo Forçado no Windows

sc queryex servicename
taskkill /f /pid [PID]

Créditos: http://www.examiner.com/list/how-to-kill-a-windows-service-that-s-stuck-on-stopping-or-starting

Get Product UID PowerShell

get-wmiobject Win32_Product | Format-Table IdentifyingNumber, Name, LocalPackage

Rodando Conectividade Social sem ser administrador

Segue um pequeno tutorial para que ele funcione sem que o usuário precise ser administrador da maquina.

Vê ai!

Dar permissão ao usuário de modificação nas pastas:

%WINDIR%\Prefetch
%PROGRAMFILES%\Caixa

Dar permissão ao usuário de modificação nas dlls abaixo que se encontram em C:\Windows\SysWOW64

Hl_Med32.dll
Hl_pub32.dll
Hlsoft32.dll

Dar permissão de controle total para o usuário no regedit dentro do registro do software da caixa que se encontra no caminho abaixo:

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Caixa

Basta clicar com o botão direito em cima da pasta caixa dentro da arvore do regedit e ir em permissões.

OBS.: Este roteiro é para windows 7 64 bits. ( para o 32 bits é quase a mesma coisa, mas qualquer um que entenda sabe aonde ficam as pastas no 32)

Créditos: https://www.facebook.com/RealNerd/posts/896317707099101?comment_id=896343117096560&notif_t=comment_mention

Conectar Microsoft Online Services

  1. Faça o download e instale o Powershell para o Office 365
  2. Após a instalação, execute o novo programa com direitos de Administrador
  3. Execute os seguintes comandos para criar uma sessão nas nuvens
    • $livecred = Get-Credential
      • Após esse comando você deve informar suas credenciais de administrador do Office 365
    • Connect-MsolService -Credential $livecred
    • $Session = New-PSSession -ConfigurationName Microsoft.Exchange -ConnectionUri https://ps.outlook.com/powershell/ -Credential $LiveCred -Authentication Basic -AllowRedirection
      • Se ocorrer algum erro de conexão, execute os comandos abaixo:
        • Set-executionpolicy unrestricted
        • Set-ExecutionPolicy RemoteSigned
    • Import-PSSession $Session
    • Enable-OrganizationCustomization

Créditos: https://ehrizo.wordpress.com/2013/03/20/office-365-como-desbloquear-determinadas-extensoes-de-arquivos-nos-anexos-do-outlook-web-access-owa/
Créditos: http://mauriciocassemiro.com/2013/07/05/problema-resolvido-com-implantao-das-novas-verses-do-mdulo-windows-azure-active-directory-para-windows-powershell-novo-assistente-de-conexo-do-microsoft-onlin/

 

Verificar – Liberar anexos Office 365

Para verificar as extensões já liberadas

Get-OwaMailboxPolicy OwaMailboxPolicy-Default | select -ExpandProperty allowedfiletypes

Para verificar as extensões bloqueadas

Get-OwaMailboxPolicy OwaMailboxPolicy-Default | select -ExpandProperty blockedfiletypes

Remover extensão da lista de bloqueados: Ex.: xml

Get-OwaMailboxPolicy OwaMailboxPolicy-Default | Set-OwaMailboxPolicy -BlockedFileTypes @{Remove = “.xml”}

Get-OwaMailboxPolicy OwaMailboxPolicy-Default | Set-OwaMailboxPolicy -BlockedMimeTypes @{Remove = “text/xml”, “application/xml”}

Adicionar na lista de extensões permitidas

Get-OwaMailboxPolicy OwaMailboxPolicy-Default | Set-OwaMailboxPolicy –AllowedFileTypes @{Add = “.xml”}

Get-OwaMailboxPolicy OwaMailboxPolicy-Default | Set-OwaMailboxPolicy -AllowedMimeTypes @{Add = “text/xml”, “application/xml”}

Pronto a extensão já está liberada para a politica OwaMailboxPolicy-Default

Caso queira bloquear basta substituir:  “–AllowedFileTypes @{Add = “.xml”} ” por “–BlockedFileTypes @{Add = “.xml”} “ e  “BlockedMimeTypes @{Remove = “text/xml”, “application/xml”} ” por  “AllowedMimeTypes@{Remove = “text/xml”, “application/xml”} ”

Créditos: http://brunofeliciano.com/2014/01/24/liberar-extenso-de-anexo-no-owa-wave15office-365/

Extra:

Get-OwaMailboxPolicy | Set-OwaMailboxPolicy -BlockedFileTypes @{Remove = ".xml"}
Get-OwaMailboxPolicy | Set-OwaMailboxPolicy -AllowedFileTypes @{Add = ".xml"}
Get-OwaMailboxPolicy | Set-OwaMailboxPolicy -BlockedMimeTypes @{Remove = "text/xml", "application/xml”}
Get-OwaMailboxPolicy | Set-OwaMailboxPolicy –AllowedMimeTypes @{Add = "text/xml", "application/xml”}

Ajustando SWAP Zabbix

sudo dd if=/dev/zero of=/var/swapfile bs=1M count=2048
sudo chmod 600 /var/swapfile
sudo mkswap /var/swapfile
echo /var/swapfile none swap defaults 0 0 | sudo tee -a /etc/fstab
sudo swapon -a

Créditos: http://porzky.com/2013/06/lack-of-free-swap-space-on-zabbix-server/

Mount CIFS

mount.cifs  //172.27.0.190/Moodle$ /srv/www/moodledata \
  -o username=LHU/moodledata,password=<password> \
  -o rw,dir_mode=0777,file_mode=0777,uid=root,gid=root

 

Fonte: http://unix.stackexchange.com/questions/86114/issues-mounting-a-ntfs-share-on-centos-6-3

Pegar IP HOSTS agendando

00-59/15 * * * * nslookup www.youtube.com | awk ‘/Address/&&!/#/{print $2}’ >> /etc/rc.d/youtube_hosts

VBS Apagar Arquivos Antigos e Mover para Pasta

—————————————————————————————————————————————

Set FSo = CreateObject(“Scripting.FileSystemObject”)
Set folder = FSO.getFolder (“M:\millsys\millgest\magnet\comercial”)
for each file in folder.files
if (dateDiff(“d”, file.DateLastModified, now) >60) then
File.delete
end if
next

Dim SOURCE, TARGET
Dim fso, SourceObj

SOURCE = “M:\millsys\millgest\magnet\comercial”
TARGET = “D:\Publico\MagnetComercial”

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set SourceObj = fso.GetFolder(SOURCE)

RecrusiveSearch SourceObj

Set SourceObj = Nothing
Set fso = Nothing

Private Sub RecrusiveSearch(sFolder)
Dim fld, fil
Dim strMonth, strDay, strYear, strDate

strMonth = “0” & Month(Date)
strMonth = Right(strMonth, 2)
strDay = “0” & Day(Date)
strDay = Right(strDay, 2)
strYear = Year(Date)

strDate = strYear & strMonth & strDay & “_”

If DateDiff(“d”, sFolder.DateLastModified, Now) > 10 Then
fso.CopyFolder sFolder.Path, Target & “\” & strDate & sFolder.Name
fso.DeleteFolder sFolder
Exit Sub
End If

For Each fld In sFolder.SubFolders
RecrusiveSearch fld
Next

For Each fil In sFolder.Files
If DateDiff(“d”, fil.DateLastModified, Now) > 10 Then
fso.CopyFile fil.Path, Target & “\” & strDate & fil.Name
fso.DeleteFile fil
End If
Next
End Sub

—————————————————————————————————————————————
Créditos : http://www.vbforums.com/showthread.php?578210-Recurse-through-sub-directories-Files-older-then-30-days

vbs–Apagando arquivos antigos