je cherche une "rustine" au problème rencontré entre UltraVnc et VISTA (
avec l'interface aero )
qui ralentit TRES fort ce programme de prise à distance.
le problème N'existe plus lorsqu'on coupe l'AERO.
( je crois ) que la connexion TSE entre un pc VISTA et un serveur rencontre
le m^me type de problème.
lors d'une ouverture de session TS, le Desktop Window Manager (DWM.exe) est
automatiquement désactivé.
Je cherche à faire la même chose avec "Simple click" d'ultraVnc...
Un scRipt de lancement qui désactive et réacTive l'AERO ?....
Effectivement, Aero ralentit très fortement Ultra-VNC et Simple-Clic.
Pour l'instant, je me suis toujours adapté (demandé au client, ou patienté la 1ère minute, le temps de désactiver Aero). Mais, l'idée de faire un script qui désactive/réactive Aero me semble très bonne.
Je vais regarder ça...
@+
Michel Claveau
Bonjour !
Effectivement, Aero ralentit très fortement Ultra-VNC et Simple-Clic.
Pour l'instant, je me suis toujours adapté (demandé au client, ou
patienté la 1ère minute, le temps de désactiver Aero). Mais, l'idée de
faire un script qui désactive/réactive Aero me semble très bonne.
Effectivement, Aero ralentit très fortement Ultra-VNC et Simple-Clic.
Pour l'instant, je me suis toujours adapté (demandé au client, ou patienté la 1ère minute, le temps de désactiver Aero). Mais, l'idée de faire un script qui désactive/réactive Aero me semble très bonne.
Je vais regarder ça...
@+
Michel Claveau
MCI \(ex do ré Mi chel la si do\) [MVP]
Re !
J'ai trouvé. J'espère ne pas avoir été trop long....
Pour désactiver Aero : net stop uxsms
Pour le réactiver : net start uxsms
@+ -- Michel Claveau
Re !
J'ai trouvé. J'espère ne pas avoir été trop long....
"MCI (ex do ré Mi chel la si do) [MVP]" a écrit dans le message de news:
Re !
J'ai trouvé. J'espère ne pas avoir été trop long....
Pour désactiver Aero : net stop uxsms
Pour le réactiver : net start uxsms
@+ -- Michel Claveau
Simplet né sous X
On Mon, 21 Apr 2008 17:57:32 +0200, "Bernhart MILCENT" wrote:
oh j'oubliais ...:)
Comment lui dire au script...
"Si c'est vista fais ceci sinon rien ...."
If Vista then killall
Ca va ? ;o))
-- Un mot mal formé a tout autant le droit de vivre qu'un autre. Il ne vous viendrai jamais a l'idee de dire a quelqu'un en public "Il te manque un bras" ou "tu ressemble a elephant man".
--
Un mot mal formé a tout autant le droit de vivre qu'un autre.
Il ne vous viendrai jamais a l'idee de dire a quelqu'un en public "Il te manque un bras" ou "tu ressemble a elephant man".
On Mon, 21 Apr 2008 17:57:32 +0200, "Bernhart MILCENT" wrote:
oh j'oubliais ...:)
Comment lui dire au script...
"Si c'est vista fais ceci sinon rien ...."
If Vista then killall
Ca va ? ;o))
-- Un mot mal formé a tout autant le droit de vivre qu'un autre. Il ne vous viendrai jamais a l'idee de dire a quelqu'un en public "Il te manque un bras" ou "tu ressemble a elephant man".
MCI \(ex do ré Mi chel la si do\) [MVP]
Re !
En batch, il y a la commande ver En VBS, tu dois pouvoir la lancer, avec CreateObject("WScript.Shell").run( ...
Mais, bon, rien ne t'empêche de lancer systématiquement la commande. Si c'est Vista, ça désactivera/réactivera ; sinon, ça ne fera rien... qu'une erreur à ignorer.
@+
MCI
Re !
En batch, il y a la commande ver
En VBS, tu dois pouvoir la lancer, avec
CreateObject("WScript.Shell").run( ...
Mais, bon, rien ne t'empêche de lancer systématiquement la commande. Si
c'est Vista, ça désactivera/réactivera ; sinon, ça ne fera rien...
qu'une erreur à ignorer.
En batch, il y a la commande ver En VBS, tu dois pouvoir la lancer, avec CreateObject("WScript.Shell").run( ...
Mais, bon, rien ne t'empêche de lancer systématiquement la commande. Si c'est Vista, ça désactivera/réactivera ; sinon, ça ne fera rien... qu'une erreur à ignorer.
@+
MCI
MCI \(ex do ré Mi chel la si do\) [MVP]
Y'a une ch'tite erreur. ça devrait être : If Vista then ceci else rien
@+
MCI
Y'a une ch'tite erreur.
ça devrait être : If Vista then ceci else rien
Y'a une ch'tite erreur. ça devrait être : If Vista then ceci else rien
@+
MCI
Jean-Claude BELLAMY
"Bernhart MILCENT" a écrit dans le message de news:%
oh j'oubliais ...:)
Comment lui dire au script...
"Si c'est vista fais ceci sinon rien ...."
... Set Shell = WScript.CreateObject("WScript.Shell") Key="HKLMSoftwareMicrosoftWindows NTCurrentVersionCurrentVersion" version=shell.RegRead(key) p=InStr(1,version,".") If p>0 then version=left(version,p-1) If CInt(version)>=6 Then ' On est sous VISTA
End If ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
"Bernhart MILCENT" <qsqsqsqs@amline.be> a écrit dans le message de
news:%230DZrh8oIHA.1736@TK2MSFTNGP04.phx.gbl...
oh j'oubliais ...:)
Comment lui dire au script...
"Si c'est vista fais ceci sinon rien ...."
...
Set Shell = WScript.CreateObject("WScript.Shell")
Key="HKLMSoftwareMicrosoftWindows NTCurrentVersionCurrentVersion"
version=shell.RegRead(key)
p=InStr(1,version,".")
If p>0 then version=left(version,p-1)
If CInt(version)>=6 Then
' On est sous VISTA
End If
...
--
May the Force be with You!
La Connaissance s'accroît quand on la partage
----------------------------------------------------------
Jean-Claude BELLAMY [MVP]
http://www.bellamyjc.org ou http://jc.bellamy.free.fr
"Bernhart MILCENT" a écrit dans le message de news:%
oh j'oubliais ...:)
Comment lui dire au script...
"Si c'est vista fais ceci sinon rien ...."
... Set Shell = WScript.CreateObject("WScript.Shell") Key="HKLMSoftwareMicrosoftWindows NTCurrentVersionCurrentVersion" version=shell.RegRead(key) p=InStr(1,version,".") If p>0 then version=left(version,p-1) If CInt(version)>=6 Then ' On est sous VISTA
End If ...
-- May the Force be with You! La Connaissance s'accroît quand on la partage ---------------------------------------------------------- Jean-Claude BELLAMY [MVP] http://www.bellamyjc.org ou http://jc.bellamy.free.fr
Simplet né sous X
On Mon, 21 Apr 2008 18:23:08 +0200, "MCI (ex do ré Mi chel la si do) [MVP]" wrote:
Y'a une ch'tite erreur. ça devrait être : If Vista then ceci else rien
@+
MCI
Le else est facultatif
-- Un mot mal formé a tout autant le droit de vivre qu'un autre. Il ne vous viendrai jamais a l'idee de dire a quelqu'un en public "Il te manque un bras" ou "tu ressemble a elephant man".
On Mon, 21 Apr 2008 18:23:08 +0200, "MCI (ex do ré Mi chel la si do)
[MVP]" <enleverlesO.OmcO@OmclaveauO.com> wrote:
Y'a une ch'tite erreur.
ça devrait être : If Vista then ceci else rien
@+
MCI
Le else est facultatif
--
Un mot mal formé a tout autant le droit de vivre qu'un autre.
Il ne vous viendrai jamais a l'idee de dire a quelqu'un en public "Il te manque un bras" ou "tu ressemble a elephant man".
On Mon, 21 Apr 2008 18:23:08 +0200, "MCI (ex do ré Mi chel la si do) [MVP]" wrote:
Y'a une ch'tite erreur. ça devrait être : If Vista then ceci else rien
@+
MCI
Le else est facultatif
-- Un mot mal formé a tout autant le droit de vivre qu'un autre. Il ne vous viendrai jamais a l'idee de dire a quelqu'un en public "Il te manque un bras" ou "tu ressemble a elephant man".
Bernhart MILCENT
REM Réalisé avec l'aide du NG francais Vista général (04/2008). REM JC BELLAMY http://jc.bellamy.free.fr/fr/jcb.html :) REM Michel Claveau et moi...:) REM SIMPLE CLICK de ULTRAVNC doit sortir une version qui désactive l'AERO sous VISTA. REM En attendant ce script est une rustine car il est impossible de se servir du produit REM sous VISTA AERO. Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
wscript.echo "Vous allez vous connecter à une assitance à distance " '------------------------------------------------------------------------- ' on teste pour voir si l'OS est VISTA Key="HKLMSoftwareMicrosoftWindows NTCurrentVersionCurrentVersion" version=WshShell.RegRead(key) p=InStr(1,version,".") '------------------------------------------------------------------------------------ If p>0 then version=left(version,p-1) '------------------------------------------------------------------------------------ If CInt(version)>=6 Then '------------------------------------------------------------------------------------ install=msgbox("Bienvenue !" & vbcrlf &_ "Ce script va vous permettre de désactiver PROVISOIREMENT l'AERO." & chr(13) &_ "Voulez vous désactiver l'AERO ?", vbquestion+vbYesNo,"Désinstaller provisoirement l'AERO ") if install=vbYes then WshShell.Run "net stop uxsms", 1 , 0 ' ICI METTRE l'APPLICATION A LANCER... WshShell.Run "%windir%notepad" , 1, 1 WshShell.Run "net start uxsms" , 1 , 1 ELSE WshShell.Run "%windir%notepad" , 1, 1 end if
else WshShell.Run "%windir%notepad" , 1, 1 '------------------------------------------------------------------------------------ end if '------------------------------------------------------------------------------------- end if '--------------------------------------------------------------------------------------
j'attends vos critiques ...
Bonne Journée
REM Réalisé avec l'aide du NG francais Vista général (04/2008).
REM JC BELLAMY http://jc.bellamy.free.fr/fr/jcb.html :)
REM Michel Claveau et moi...:)
REM SIMPLE CLICK de ULTRAVNC doit sortir une version qui désactive l'AERO
sous VISTA.
REM En attendant ce script est une rustine car il est impossible de se
servir du produit
REM sous VISTA AERO.
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
wscript.echo "Vous allez vous connecter à une assitance à distance "
'-------------------------------------------------------------------------
' on teste pour voir si l'OS est VISTA
Key="HKLMSoftwareMicrosoftWindows NTCurrentVersionCurrentVersion"
version=WshShell.RegRead(key)
p=InStr(1,version,".")
'------------------------------------------------------------------------------------
If p>0 then
version=left(version,p-1)
'------------------------------------------------------------------------------------
If CInt(version)>=6 Then
'------------------------------------------------------------------------------------
install=msgbox("Bienvenue !" & vbcrlf &_
"Ce script va vous permettre de désactiver PROVISOIREMENT l'AERO." &
chr(13) &_
"Voulez vous désactiver l'AERO ?", vbquestion+vbYesNo,"Désinstaller
provisoirement l'AERO ")
if install=vbYes then
WshShell.Run "net stop uxsms", 1 , 0
' ICI METTRE l'APPLICATION A LANCER...
WshShell.Run "%windir%notepad" , 1, 1
WshShell.Run "net start uxsms" , 1 , 1
ELSE
WshShell.Run "%windir%notepad" , 1, 1
end if
else
WshShell.Run "%windir%notepad" , 1, 1
'------------------------------------------------------------------------------------
end if
'-------------------------------------------------------------------------------------
end if
'--------------------------------------------------------------------------------------
REM Réalisé avec l'aide du NG francais Vista général (04/2008). REM JC BELLAMY http://jc.bellamy.free.fr/fr/jcb.html :) REM Michel Claveau et moi...:) REM SIMPLE CLICK de ULTRAVNC doit sortir une version qui désactive l'AERO sous VISTA. REM En attendant ce script est une rustine car il est impossible de se servir du produit REM sous VISTA AERO. Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshShell = WScript.CreateObject("WScript.Shell")
wscript.echo "Vous allez vous connecter à une assitance à distance " '------------------------------------------------------------------------- ' on teste pour voir si l'OS est VISTA Key="HKLMSoftwareMicrosoftWindows NTCurrentVersionCurrentVersion" version=WshShell.RegRead(key) p=InStr(1,version,".") '------------------------------------------------------------------------------------ If p>0 then version=left(version,p-1) '------------------------------------------------------------------------------------ If CInt(version)>=6 Then '------------------------------------------------------------------------------------ install=msgbox("Bienvenue !" & vbcrlf &_ "Ce script va vous permettre de désactiver PROVISOIREMENT l'AERO." & chr(13) &_ "Voulez vous désactiver l'AERO ?", vbquestion+vbYesNo,"Désinstaller provisoirement l'AERO ") if install=vbYes then WshShell.Run "net stop uxsms", 1 , 0 ' ICI METTRE l'APPLICATION A LANCER... WshShell.Run "%windir%notepad" , 1, 1 WshShell.Run "net start uxsms" , 1 , 1 ELSE WshShell.Run "%windir%notepad" , 1, 1 end if
else WshShell.Run "%windir%notepad" , 1, 1 '------------------------------------------------------------------------------------ end if '------------------------------------------------------------------------------------- end if '--------------------------------------------------------------------------------------
