terça-feira, 15 de maio de 2012

Quais as memórias do meu PC?

Por vezes, andamos a abrir PCs, servidores etc. para verificar quais as memórias, quando às vezes basta fazer 2 passos:

1º) Fazer o Download do seguinte programa Everest Ultimate Edition

2º) Ir ao configurador da kingston colocar o modelo do PC, fabricante e voilá

Espero que tenha sido útil e bons upgrades.

Comando windows 7 para verificar as wireless e channels

Por vezes temos dificuldade em saber o porquê de não termos bastante cobertura de wireless, para fazer um bom despiste basta Executar como Administrador numa linha de comandos o seguinte comando:


netsh wlan show networks mode=bssid


Deste modo podemos verificar os canais wireless, de modo a podermos alterar um channel que não colida com as dos nossos vizinhos o ideal será canais 1 ou 6 ou 11 (de preferência longe dos outros 5 números).

Boa Navegação.

quinta-feira, 26 de abril de 2012

Tocar Simultaneamente numa Extensão e num Telemóvel, numa Avaya IPOffice 500.

Tocar Simultaneamente numa Extensão e num Telemóvel, numa Avaya IPOffice 500.

Por vezes, em questões de mobilidade (por exemplo: vendedores, técnicos, etc.) surgemos uma lacuna que é podermos ter um telemóvel qualquer como extensão, na central telefónica.

Para isso basta ir ao IP Office Manager e fazer o seguinte:

1) Escolher o utilizador em causa (Atenção que este utilizador tem de possuir o perfil Power User).
2) Ir a Mobility
3) Colocar o visto em Mobility Features, Mobile Twinning e em Twin when Logged Out
4) Em Twinned Mobile Number colocar o nº de telemóvel em causa
5) Gravar e experimentar ligar para a extensão em causa, que irá tocar ao mesmo tempo também no telemóvel configurado.



Como Controlar Kaspersky remotamente.

Por vezes acedemos a clientes que possuem o Antivírus Kaspersky instalado, mas quando tentamos fazer alguma alteração no mesmo o PC bloqueia.

Solução: Pedimos à pessoa que possui o PC bloqueado para Ir a Settings > Service e tirar o visto de “Enable Self-Defense”


Encontre o Serial Number (Número de Série) e Modelo do seu PC através do MSDOS.

Encontre o Serial Number (Número de Série) e Modelo (Model Name) do seu PC através do MSDOS.

Os PCs e Servidores dos grandes fabricantes (HP, Dell, etc.), vêm com Número de Série e Modelo na Bios.

Para verificar o Serial Number do seu PC digite o seguinte comando na linha de comandos:
wmic bios get serialnumber

Para verificar o Model Name do seu PC digite o seguinte comando na linha de comandos:
wmic csproduct get name



quarta-feira, 18 de abril de 2012

Email com Espaço Livre dos Discos dos Seus Servidores

Script de Envio de Email com autenticação de Espaço livre em Disco para os seus Servidores.

Resolução:
1º) Copiar o abaixo indicado e gravar no notepad como free-disk-space.vbs


Const Unknown = 0
Const Removable = 1
Const Fixed = 2
Const Remote = 3
Const CDROM = 4
Const RAMDisk = 5

Const MailServer = "NOME_SERVIDOR_DE_EMAIL" ' Mail Server to use (SMTP)
Const MailServerPort = "25" ' SMTP Port used at Mail server (25 is default)
Const LOCAL_HARD_DISK = 3

Sub SendMail(Sender, Recipient, Subject, Message)
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = Subject
objMessage.From = Sender
objMessage.To = Recipient
objMessage.TextBody = Message
'Tipo de Autenticação, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
'O Username do Servidor de SMTP
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "utilizador de email que envia"
'A password do Servidor SMTP
objMessage.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password de email"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MailServer

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = MailServerPort
objMessage.Configuration.Fields.Update
objMessage.Send
End Sub
' get current computer name (from system environment variables)
Function GetCurrentComputerName
set oWsh = WScript.CreateObject("WScript.Shell")
set oWshSysEnv = oWsh.Environment("PROCESS")
GetCurrentComputerName = oWshSysEnv("COMPUTERNAME")
End Function
'==================================================================
' Begin main code
'==================================================================
str = ""
'Only enumerate physical disks (Not Network Drives)
Const HARD_DISK1 = 3
Const HARD_DISK2 = 3
'====================================================================
' Server Server1
'===================================================================
strComputer = "BOMSRV01"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK1 & "")
str = str & "Server: " & strComputer & vbcrlf
For Each objDisk in colDisks
str = str & "Disk: "& objDisk.DeviceID & vbTab
str = str & " Free Disk Space: "& FormatNumber(CLng(objDisk.FreeSpace / 1024 / 1024),0,,,-1) & " MB" & vbcrlf
Next
str = str & vbcrlf
'=============================================================
' Server server2
'============================================================
strComputer = "SQLSERVER"
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery _
("Select * from Win32_LogicalDisk Where DriveType = " & HARD_DISK2 & "")
str = str & "Server: " & strComputer & vbcrlf
For Each objDisk in colDisks
str = str & "Disk: "& objDisk.DeviceID & vbTab
str = str & " Free Disk Space: "& FormatNumber(CLng(objDisk.FreeSpace / 1024 / 1024),0,,,-1) & " MB" & vbcrlf
Next
str = str & vbcrlf

'Send the email
SendMail "de_exemplo@exemplo.pt", "to_aa@zz.pt;bb@zz.pt", "Cliente XPTO " & strComputerName & ": Relatorio de Espaco em Disco", str

2) Modificar os valores do script que estão a sublinhado para os valores da vossa organização.

3)Colocar nas Tarefas agendadas todos os dias a correr o Script acima indicado.

Et Voilá.

Verificar o espaço em disco das MailBoxes no Exchange 2007 / 2010

Como verificar o espaço em disco das MailBoxes no Exchange 2007 / 2010?

1º) Ir a Exchange Management Shell e colocar o seguinte Comando:

Get-MailboxStatistics | Sort-Object TotalItemSize -Descending | ft DisplayName,@{label="TotalItemSize(MB)";expression={$_.TotalItemSize.Value.ToMB()}},ItemCount

O resultado aparece em MegaBytes, deste modo podemos verificar quem está a gastar mais quota no servidor de exchange.

Unexpected Kernel Mode Trap while using Office 2016

I have been fighting with my computer searching for a fix for Unexpected Kernel Mode Trap when I attempt to open attachments in Outlook 2...