MSTSC vbs accès disque

Version imprimable

04/06/2013, 11h23
guilhemleflo
Bonjour, je voudrais via un script vbs pouvoir me connecter en mstsc à un serveur particulier et pouvoir lire des fichiers texte sur les disques de ce serveur.
Code:

1 2 3 4 Set fso = CreateObject("Scripting.FileSystemObject") set shl = createobject("wscript.shell") shl.run "command /c mstsc",0,true
Ce code me permet de lancer mstsc mais je voudrais qu'il se connecte et me permettre de lire des fichier sur les disques

Quelqu'un a t il des pistes à me fournir?
Merci.

J'arrive aussi à lancer l'exécution c'est la commande /v Adresse.

C'est vraiment la connexion login/password et le traitement des dossier une fois connecté qui me pose problème.
07/06/2013, 16h25
djdmd

Bonjour
J'ai déjà eu cette problématique et en fait pour répondre à ça je travaillais en 2 temps
1 er temps je génère à la volée le fichier rdp qui est un simple fichier texte
ce n'est pas la peine si tu te connecte toujours au même serveur il faut juste enregistrer le fichier de connexion quelques part en y intégrant toutes les options qui vont bien

2 eme temps ,je me connecte avec cette commande

objShell.Run(""mstsc C:\server01.rdp"")

en remplaçant "C:\server01.rdp" par le chemin vers le fichier enregistré au préalable

perso je peux avoir des adresses ip différentes donc je me suis fait une petite interface qui va voir dans un fichier xml l'adresse ip vers laquelle je veux me connecter via liste déroulante puis génère le fichier rdp et me connecte ensuite avec les options
je regarde si je retrouve le script d'origine et j'essaie de le joindre

J 'ai retrouve le code qui permet de generer la fichier rdp

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
AdrIp= InputBox( "Insérez ici votre code IP" , "IP" , "la valeur par défaut" )
' cree le fichier rdp pour preparer la connection
Const ForReading = 1, ForWriting = 2
Set WshShell = WScript.CreateObject("WScript.Shell")
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("c:\ecr.rdp", ForWriting,true)
 
 
f.write("screen mode id:i:2") & vbCrlf
f.write("desktopwidth:i:1440") & vbCrlf
f.write("desktopheight:i:900") & vbCrlf
f.write("session bpp:i:32") & vbCrlf
f.write("winposstr:s:0,3,0,0,800,600") & vbCrlf
f.write("compression:i:1") & vbCrlf
f.write("keyboardhook:i:2") & vbCrlf
f.write("displayconnectionbar:i:1") & vbCrlf
f.write("disable wallpaper:i:1") & vbCrlf
f.write("disable full window drag:i:1") & vbCrlf
f.write("allow desktop composition:i:0") & vbCrlf
f.write("allow font smoothing:i:0") & vbCrlf
f.write("disable menu anims:i:1") & vbCrlf
f.write("disable themes:i:0") & vbCrlf
f.write("disable cursor setting:i:0") & vbCrlf
f.write("bitmapcachepersistenable:i:1") & vbCrlf
f.write("full address:s:")&AdrIp & vbCrlf
f.write("audiomode:i:0") & vbCrlf
f.write("redirectprinters:i:1") & vbCrlf
f.write("redirectcomports:i:0") & vbCrlf
f.write("redirectsmartcards:i:1") & vbCrlf
f.write("redirectclipboard:i:1") & vbCrlf
f.write("redirectposdevices:i:0") & vbCrlf
f.write("autoreconnection enabled:i:1") & vbCrlf
f.write("authentication level:i:0") & vbCrlf
f.write("prompt for credentials:i:0") & vbCrlf
f.write("negotiate security layer:i:1") & vbCrlf
f.write("remoteapplicationmode:i:0") & vbCrlf
f.write("alternate shell:s:") & vbCrlf
f.write("shell working directory:s:") & vbCrlf
f.write("gatewayhostname:s:") & vbCrlf
f.write("gatewayusagemethod:i:4") & vbCrlf
f.write("gatewaycredentialssource:i:4") & vbCrlf
f.write("gatewayprofileusagemethod:i:0") & vbCrlf
f.write("promptcredentialonce:i:1") & vbCrlf
f.write("domain:s:'Nom du domaine de connection'") & vbCrlf
f.write("username:s:")& 'Nom Utilisateur' & vbCrlf
' ouvre mstsc avec les bonnes coordonnees
Dim Shell
Set shell = CreateObject("WScript.Shell")
call shell.run("""mstsc""" & """c:\ecr.rdp""")