SISTEMA DE LEVANTAMENTO DE HARDWARE
EU SOU ESPECIALISTA EM TI EM UMA EMPRESA SE SOFTWER DE GESTÃO CONTABIL, DURANTE A SEMANA OCORREM ALGUMAS TROCAS DE SERVIDORES, POR QUESTOES DE UPGRADE OU FALHA DE HARDWER EM FIM, EU TENHO QUE MIGRAR O SOFTWER DE UM SERVIDOR PARA OUTRO, BUSCANDO DIMINUIR O TEMPO DE TROCA RESOLVI DESENVOLVER UM SOFTWER QUE FISSE O LEVANTAMENTO DE HARDWARE PARA QUE EU JA ME PREPARACE COM O QUE EU VOU ENFRENTAR NO NOVO SERVIDOR EX:
MEMORIA, VELOCIADE DE PROCESSADOR, ESPAÇO EM HD ETC....
O MEU SOFTWER FUNCIONA EM DUAS PARTES, EU ENVIO UM ARQUIVO SFX DO WINRAR QUE DESCOMPACTA DOIS ARQUIVOS NA UNIDADE C: UM VBS E OUTRO EXE.
O EXE E ABERTO AUTMATICAMENTE COMO PROGRAMADO NO SFX QUANDO EU CLICO EM EXECUTAR ELE EXECUTA O VBS QUE GERA O INVENTARIO DA MAQUINA O INVENTARIO E GERANDO NA UNIDADE C: LOGO DEPOIS ELE ANEXA E ENVIA O INVENTARIO PARA MEU EMAIL.
NA MINHA MAQUINA FUNCIONA PERFEITAMENTE MAS NA MAQUINA DO CLIENTE OCORRE O ERRO :
************** Texto de Exceção **************
System.Net.Mail.SmtpException: Caixa de correio não disponÃvel. A resposta do servidor foi: fernando.go@prosoft.com.br must check for new mail first
em System.Net.Mail.MailCommand.CheckResponse(SmtpStatusCode statusCode, String response)
em System.Net.Mail.MailCommand.Send(SmtpConnection conn, Byte[] command, String from)
em System.Net.Mail.SmtpTransport.SendMail(MailAddress sender, MailAddressCollection recipients, String deliveryNotify, SmtpFailedRecipientException& exception)
em System.Net.Mail.SmtpClient.Send(MailMessage message)
em WindowsApplication1.Form1.Button1_Click(Object sender, EventArgs e)
em System.Windows.Forms.Control.OnClick(EventArgs e)
em System.Windows.Forms.Button.OnClick(EventArgs e)
em System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
em System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
em System.Windows.Forms.Control.WndProc(Message& m)
em System.Windows.Forms.ButtonBase.WndProc(Message& m)
em System.Windows.Forms.Button.WndProc(Message& m)
em System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
em System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
em System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
COMO CORIGIR?
SEM QUERER TOMAR O CONHECIMENTO QUE NAO E MEU O VBS FOI COPIADO DO FORUM
[Ô]http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=9188[Ô]
A APLICAÇÃO COMPLETA SEGUE.
CODIGO FONTE
Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If txtnomecliente.Text = [Ô][Ô] Then
MsgBox([Ô]Informe o nome de Cliente Prosoft[Ô], MsgBoxStyle.Exclamation, AcceptButton)
Else
Dim scriptProc As New Process
Me.Visible = False
scriptProc.StartInfo.FileName = [Ô]C:\Inventario.vbs[Ô]
scriptProc.StartInfo.Arguments = [Ô][Ô]
scriptProc.Start()
scriptProc.WaitForExit()
scriptProc.Dispose()
[ô] MsgBox([Ô]Gerado Inventario[Ô])
[ô]usado para armazenar os anexos
Dim Attachment As System.Net.Mail.Attachment
[ô]cria uma mensagem a enviar
Dim Mailmsg As New System.Net.Mail.MailMessage()
[ô] Attachment.Name = ([Ô]P:\Inventario\NOTEFERNANDO.HTML[Ô])
[ô]endereca o recipiente
Mailmsg.To.Add(New MailAddress([Ô]XXXXX@XXXXXX[Ô]))
[ô] Mailmsg.CC.Add(New MailAddress([Ô]XXXXX@XXXXXX[Ô]))
Dim mSmtpCliente As New SmtpClient([Ô]mail.XXXXXXX[Ô])
[ô]Especifica o formato
Mailmsg.IsBodyHtml = True
[ô]define o assunto
Mailmsg.Subject = [Ô][Ô] & txtnomecliente.Text & [Ô] _Configuração de Hardware[Ô]
[ô]Anexa os arquivos um por um
Mailmsg.Attachments.Add(New Attachment([Ô]c:\Inventario_Prosoft.HTML[Ô]))
[ô]Corpo do EMail
Mailmsg.Body = [Ô]Segue Configurações de hardware Para Arquivamento[Ô]
[ô]ENvia o email
Mailmsg.From = (New MailAddress([Ô]XXXXXX@XXXX[Ô]))
mSmtpCliente.Send(Mailmsg)
Me.Visible = True
MessageBox.Show([Ô]Processo Concluido.[Ô], _
[Ô]Obrigado Pelas Informações[Ô], _
MessageBoxButtons.OK, _
MessageBoxIcon.Information, _
MessageBoxDefaultButton.Button1)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
End Class
SE ALGUEM PUDER ME AJUDAR FICO GRATO
Citação:************** Texto de Exceção **************
System.Net.Mail.SmtpException: Caixa de correio não disponÃvel. A resposta do servidor foi: fernando.go@prosoft.com.br must check for new mail first
em System.Net.Mail.MailCommand.CheckResponse(SmtpStatusCode statusCode, String response)
em System.Net.Mail.MailCommand.Send(SmtpConnection conn, Byte[] command, String from)
em System.Net.Mail.SmtpTransport.SendMail(MailAddress sender, MailAddressCollection recipients, String deliveryNotify, SmtpFailedRecipientException& exception)
em System.Net.Mail.SmtpClient.Send(MailMessage message)
em WindowsApplication1.Form1.Button1_Click(Object sender, EventArgs e)
em System.Windows.Forms.Control.OnClick(EventArgs e)
em System.Windows.Forms.Button.OnClick(EventArgs e)
em System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
em System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
em System.Windows.Forms.Control.WndProc(Message& m)
em System.Windows.Forms.ButtonBase.WndProc(Message& m)
em System.Windows.Forms.Button.WndProc(Message& m)
em System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
em System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
em System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
Será preciso criar um instalador pois estes erros é por falta de bibliotecas do framework que não estão na maquina do cliente.
Funciona na sua máquina pois está com o Visual studio instalado
é preciso gerar um pacote instalador para o conjunto de instrução do seu executável.
Boa Sorte
qual e o processo para identificar as bibiliotecas que estao sendo usadas em minha aplicação.
Qual versão de S.O. você esta utiilzando para desenvolver
Qual Versão de Visual Studio
Qual versão de Framework esta seu projeto que gostaria de monta o Pacote de instalação.
Boa sorte
Espero que entendam.
abrirei um novo topico para sobre minha duvida