Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Desktop remota usan...
 
Notifications
Clear all

Desktop remota usando VBA

 
2024 - VBA & Macros
6 Posts
1 Usuários
0 Reactions
2,539 Visualizações
RSS
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Gostaria de configurar e executar a conexão desktop remota usando VBA

Tenho alguns Ip's disponiveis que utilizo vi um artigo que tem algo seria "quase isso":

Private Sub Command1_Click()
Set rdp = New MSTSCLib.MsRdpClient2
rdp.Server = "192.168.1.8"
rdp.UserName = <username>
rdp.UserName = <password>
rdp.Connect
End Sub

Acredito que tenha que ter alguma referência instalada no vba ou alguma API não, se alguem souber valeu!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/06/2010 7:27 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde tente assim 

Set rdp = CreateObject("MSTSCLib.MsRdpClient2")

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/06/2010 1:09 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia.

Nao consegui fiz a alteração mas abarece o seguinte erro:

" O COMPONENTE ACTIVEX NÃO PODE CRIAR OBJETO"

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/06/2010 4:47 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Este erro indica que o componente não está disponível na sua máquina, tente procurar no google se não existe disponível para download. Se achar, basta baixá-lo e usar o regsvr32 para registrá-lo.

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/06/2010 5:38 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Então,

Aparentemente eu tenho todos os suplementos instalados,estou seguindo como case o artigo abaixo, é exatamente o que eu gostaria de fazer mas no VBA.

http://www.codeproject.com/KB/cs/Remote ... rpNET.aspx

Alguem conseguiria fazer isso funcionar,,HEHE!?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/06/2010 7:58 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bruno,

Consegui, adicionei a ferramenta MsRdpClient7NotSafeForScripting1 no vba e usei o código abaixo para conetar!

MsRdpClient7NotSafeForScripting1.Server = txt_IP.Value
MsRdpClient7NotSafeForScripting1.connect

De qualquer forma Valeu!

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 14/06/2010 9:12 am
Forum Jump:
  Tópico Anterior
Próximo Tópico