Bonjour à tous,

dans le cadre de ma fonction de TAI au sein d'une CAU dans un centre hospitalier,
je me suis lancé dans la création d'un outil pour nous faciliter la vie,
avec un collègue on as commencé a travailler sur un script en hta mais mon collègue est parti pour mieux et le script n'est malheureusement pas fini,
n'arrivant pas à le terminer moi même par mes propre moyen au vu de ma très jeune expérience en vbscript (mon collègue était plus avancé),
je nécessite votre lumière afin de de terminé le petit bout de code qui me pose problème.

j'aimerais intégrer ce bat dans une commande button en hta avec la variable PC du hta :

Code batch : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
rem prise de main à distance avec ultravnc sans le accept
@echo off
echo quelle est la machine cible ?
set /p machine=
 
rem verification de la machine sur reseaux 
rem ping %machine% 
 
sc \\%machine%\ stop uvnc_service
timeout /T 10 /NOBREAK
rename "\\%machine%\c$\program files\ultravnc\ultravnc.ini" ultravnc-bon.ini
copy "\\nas1\master\Logiciels\UltraVnc\ultravnc.ini" "\\%machine%\c$\program files\ultravnc"
rem timeout /T 15 /NOBREAK
sc \\%machine%\ start uvnc_service

voici ce que j'ai traduit mais vu que cela ne fonctionne pas je me dit que mon niveau est encore trop faible :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub VNCNoAccept_onclick()
		temp = PCencours
		if temp <> "" then
			'oShell.run "runas /savecred /user:" & login & " ""cmd /c rename "\\" & temp & "\c$\program files\ultravnc\ultravnc.ini" ultravnc-bon.ini"""
			'oshell.run "runas /savecred /user:" & login & " ""cmd /c robocopy \\nas1\MASTER\Logiciels\UltraVnc\ultravnc.ini \\" & temp & "\c$\program files\ultravnc""" ' recopie du fichier sans accept						
			' on redémarre le service
			'oShell.run "runas /savecred /user:" & login & " ""sc \\" & temp & " stop uvnc_service""" ' Arret du service
			'oShell.run "runas /savecred /user:" & login & " ""sc \\" & temp & " start uvnc_service""" ' relance du service
			set oShell=Nothing
		end if
	end sub
Vous remerciant d'avance pour l'aide que vous seriez susceptible de m'apporter.