Desktop remota usan...
 
Notifications
Clear all

Desktop remota usando VBA  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
11/06/2010 7:27 am  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
11/06/2010 1:09 pm  

Boa tarde tente assim

Set rdp = CreateObject("MSTSCLib.MsRdpClient2")

Att

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/06/2010 4:47 am  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/06/2010 5:38 am  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/06/2010 7:58 am  

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


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
14/06/2010 9:12 am  

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


ResponderCitar (Quote)
Compartilhar: