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.
quinta-feira, 26 de abril de 2012
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”
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
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á.
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.
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.
Erro do Outlook 0x8004DF05 ao sincronizar uma conta IMAP
Erro do Outlook 0x8004DF05 ao sincronizar uma conta IMAP
No Outlook obtemos o seguinte erro:
Task 'Synchronizing subscribed folders for example@example.com.' reported error (0x8004DF05) : 'Outlook cannot synchronize subscribed folders for example@example.com. Error: The folder 'Inbox' cannot be selected. It may have been deleted or there may be network or server problems. Try again later. If you continue to receive this message, contact your server administrator or Internet service provider (ISP).'
Resolução:
1º) No Outlook 2007 vamos a Ferramentas / Definições de Conta / Ficheiro de Dados / Abrir Pasta
2º) Desliga-se o Outlook
3º) Vamos à pasta que possui os ficheiros PSTs e elimina-se o ficheiro PST da conta que está a dar o erro.
4º) Liga-se novamente o Outlook e deixa-se sincronizar.
No Outlook obtemos o seguinte erro:
Task 'Synchronizing subscribed folders for example@example.com.' reported error (0x8004DF05) : 'Outlook cannot synchronize subscribed folders for example@example.com. Error: The folder 'Inbox' cannot be selected. It may have been deleted or there may be network or server problems. Try again later. If you continue to receive this message, contact your server administrator or Internet service provider (ISP).'
Resolução:
1º) No Outlook 2007 vamos a Ferramentas / Definições de Conta / Ficheiro de Dados / Abrir Pasta
2º) Desliga-se o Outlook
3º) Vamos à pasta que possui os ficheiros PSTs e elimina-se o ficheiro PST da conta que está a dar o erro.
4º) Liga-se novamente o Outlook e deixa-se sincronizar.
terça-feira, 17 de abril de 2012
Reactivar Windows XP / Windows Server 2003 por mais 30 dias.
Como reactivar Windows XP / Windows Server 2003 por mais 30 dias, de modo a poder instalar VMware Tools ou hyper-v Integration Services?
Resolução:
1º) Entrar em Modo Segurança com F8
2º) correr o seguinte comando na linha de comandos:
rundll32.exe syssetup,SetupOobeBnk
3º) Reiniciar
E está reactivado por mais 30 dias.
Resolução:
1º) Entrar em Modo Segurança com F8
2º) correr o seguinte comando na linha de comandos:
rundll32.exe syssetup,SetupOobeBnk
3º) Reiniciar
E está reactivado por mais 30 dias.
Subscrever:
Mensagens (Atom)
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...
-
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 (...
-
Mensagem de erro: “O Serviço de Perfis de Utilizador não conseguiu iniciar sessão. Não foi possível carregar o perfil de utilizador", a...
-
Após ter limpo o vírus Live Security Platinum, reparei que quando fui à Firewall do Windows obtinha o seguinte erro ( 0x80070424 ): Par...

