Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Windows Windows XP Discussions Générales Modification d'une icône en VBS ?

Modification d'une icône en VBS ?

19 réponses
Avatar
L'AMI Yves
J'ai un petit programme VBS (j'en ai parlé récemment dans un autre fil)
que je lance à l'aide d'un raccourci qui est dans la barre de lancement
rapide.
Il lit une valeur dans la BdR, l'affiche, et propose un choix de 4
possibilités
pour la modifier.
Je voudrais que lorsqu'il écrit la valeur choisie dans la BdR, il change
aussi
l'icône associée au raccourci. Voici le code que j'ai écrit : pourquoi ne
marche-t-il pas ?

set Raccourci=shell.createShortcut(QuickLaunch & "Controle.vbs.lnk")
select case test'
case 1
Raccourci.IconLocation="Icones.exe,1"
case 2
Raccourci.IconLocation="Icones.exe,2"
case 3
Raccourci.IconLocation="Icones.exe,3"
case else
Raccourci.IconLocation="Icones.exe,4"
end select
Raccourci.save

Je n'ai aucun message d'erreur, simplement, l'icône ne change pas. Je me
suis demandé si le problème ne venait pas de "createShortcut", puisque le
raccourci existe déjà, mais j'ai été incapable de trouver de la doc
(j'aimerais
bien un .chm) sur le Wscript.shell.

AMIcalement
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
IOBA
"L'AMI Yves" a écrit dans le message de
news: 45198221$0$1935$
| J'ai un petit programme VBS (j'en ai parlé récemment dans un autre fil)
| que je lance à l'aide d'un raccourci qui est dans la barre de lancement
| rapide.
| Il lit une valeur dans la BdR, l'affiche, et propose un choix de 4
| possibilités
| pour la modifier.
| Je voudrais que lorsqu'il écrit la valeur choisie dans la BdR, il change
| aussi
| l'icône associée au raccourci. Voici le code que j'ai écrit : pourquoi ne
| marche-t-il pas ?
|
| set Raccourci=shell.createShortcut(QuickLaunch & "Controle.vbs.lnk")
| select case test'
| case 1
| Raccourci.IconLocation="Icones.exe,1"
| case 2
| Raccourci.IconLocation="Icones.exe,2"
| case 3
| Raccourci.IconLocation="Icones.exe,3"
| case else
| Raccourci.IconLocation="Icones.exe,4"
| end select
| Raccourci.save
|
| Je n'ai aucun message d'erreur, simplement, l'icône ne change pas. Je me
| suis demandé si le problème ne venait pas de "createShortcut", puisque le
| raccourci existe déjà, mais j'ai été incapable de trouver de la doc
| (j'aimerais
| bien un .chm) sur le Wscript.shell.
|
| AMIcalement
|
Ma mémoire est un peu embrouillée sur ce coup, mais la désignation ne
devrait-elle être plutôt "icones.exe,-1", "icones.exe,-2", etc. ? bref, il
me semble bien qu'il faut un tiret avant le numéro de l'icone...

--
IOBA
Avatar
L'AMI Yves
"IOBA" a écrit dans le message de news:
451995c1$0$4617$

"L'AMI Yves" a écrit dans le message de
news: 45198221$0$1935$
| J'ai un petit programme VBS (j'en ai parlé récemment dans un autre fil)
| que je lance à l'aide d'un raccourci qui est dans la barre de lancement
| rapide.
| Il lit une valeur dans la BdR, l'affiche, et propose un choix de 4
| possibilités
| pour la modifier.
| Je voudrais que lorsqu'il écrit la valeur choisie dans la BdR, il change
| aussi
| l'icône associée au raccourci. Voici le code que j'ai écrit : pourquoi
ne
| marche-t-il pas ?
|
| set Raccourci=shell.createShortcut(QuickLaunch & "Controle.vbs.lnk")
| select case test'
| case 1
| Raccourci.IconLocation="Icones.exe,1"
| case 2
| Raccourci.IconLocation="Icones.exe,2"
| case 3
| Raccourci.IconLocation="Icones.exe,3"
| case else
| Raccourci.IconLocation="Icones.exe,4"
| end select
| Raccourci.save
|
| Je n'ai aucun message d'erreur, simplement, l'icône ne change pas. Je me
| suis demandé si le problème ne venait pas de "createShortcut", puisque
le
| raccourci existe déjà, mais j'ai été incapable de trouver de la doc
| (j'aimerais
| bien un .chm) sur le Wscript.shell.
|
| AMIcalement
|
Ma mémoire est un peu embrouillée sur ce coup, mais la désignation ne
devrait-elle être plutôt "icones.exe,-1", "icones.exe,-2", etc. ? bref, il
me semble bien qu'il faut un tiret avant le numéro de l'icone...

--
IOBA




J'ai essayé tout de suite, mais je n'ai vu aucune différence. Y a-t-il une
fonction "refresh" qui force l'explorateur à mettre à jour le bureau sans
attendre ?

Merci quand-même, et vivement une autre idée

AMIcalement
Avatar
IOBA
"L'AMI Yves" a écrit dans le message de
news: 451999ce$0$1942$
|
| J'ai essayé tout de suite, mais je n'ai vu aucune différence.
|
Désolé :-(
|
|Y a-t-il une
| fonction "refresh" qui force l'explorateur à mettre à jour le bureau sans
| attendre ?
|
Sûrement un Rundll32 quelconque, mais j'avoue...
En attendant, tu as toujours le Actualiser du menu contextuel (tu sais : le
right click sur le bureau)
|
| Merci quand-même, et vivement une autre idée
|
| AMIcalement
|
Avatar
Jean-Claude BELLAMY
Dans le message :45198221$0$1935$,
L'AMI Yves a pris la peine d'écrire ce qui
suit :
J'ai un petit programme VBS (j'en ai parlé récemment dans un autre
fil) que je lance à l'aide d'un raccourci qui est dans la barre de
lancement rapide.
Il lit une valeur dans la BdR, l'affiche, et propose un choix de 4
possibilités
pour la modifier.
Je voudrais que lorsqu'il écrit la valeur choisie dans la BdR, il
change aussi
l'icône associée au raccourci. Voici le code que j'ai écrit :
pourquoi ne marche-t-il pas ?

set Raccourci=shell.createShortcut(QuickLaunch & "Controle.vbs.lnk")
select case test'
case 1
Raccourci.IconLocation="Icones.exe,1"
case 2
Raccourci.IconLocation="Icones.exe,2"
case 3
Raccourci.IconLocation="Icones.exe,3"
case else
Raccourci.IconLocation="Icones.exe,4"
end select
Raccourci.save

Je n'ai aucun message d'erreur, simplement, l'icône ne change pas.


Où se trouve le fichier "icones.exe" ?
Dans le même dossier que le raccourci ?
Dans un dossier cité dans la variable %PATH% ?

Si ce n'est pas le cas, il faut indiquer le CHEMIN COMPLET !!!
P.ex. :
Raccourci.IconLocation="k:trucs divers et variésmes icônes à moi que
j'aiIcones.exe,1515"

Je me suis demandé si le problème ne venait pas de "createShortcut",
puisque le raccourci existe déjà, mais j'ai été incapable de trouver
de la doc (j'aimerais
bien un .chm) sur le Wscript.shell.



Tu as çà chez toi (cherche !!)
Tu peux aussi télécharger le fichier :
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/FR/scd56fr.exe
ou
http://www.bellamyjc.org/download/scd56fr.exe

En ce qui concerne la méthode "createShortcut" :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/d91b9d23-a7e5-4ec2-8b55-ef6ffe9c777d.asp

ou
http://www.bellamyjc.org/fr/vbsobjets.html#wshshell
et plus spécialement :
http://www.bellamyjc.org/fr/vbsobj/wsmthcreateshortcut.html


--
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
Avatar
L'AMI Yves
"Jean-Claude BELLAMY" a écrit dans le
message de news: 451a328c$0$27408$
Dans le message :45198221$0$1935$,
L'AMI Yves a pris la peine d'écrire ce qui
suit :
J'ai un petit programme VBS (j'en ai parlé récemment dans un autre
fil) que je lance à l'aide d'un raccourci qui est dans la barre de
lancement rapide.
Il lit une valeur dans la BdR, l'affiche, et propose un choix de 4
possibilités
pour la modifier.
Je voudrais que lorsqu'il écrit la valeur choisie dans la BdR, il
change aussi
l'icône associée au raccourci. Voici le code que j'ai écrit :
pourquoi ne marche-t-il pas ?

set Raccourci=shell.createShortcut(QuickLaunch & "Controle.vbs.lnk")
select case test'
case 1
Raccourci.IconLocation="Icones.exe,1"
case 2
Raccourci.IconLocation="Icones.exe,2"
case 3
Raccourci.IconLocation="Icones.exe,3"
case else
Raccourci.IconLocation="Icones.exe,4"
end select
Raccourci.save

Je n'ai aucun message d'erreur, simplement, l'icône ne change pas.


Où se trouve le fichier "icones.exe" ?
Dans le même dossier que le raccourci ?
Dans un dossier cité dans la variable %PATH% ?

Si ce n'est pas le cas, il faut indiquer le CHEMIN COMPLET !!!
P.ex. :
Raccourci.IconLocation="k:trucs divers et variésmes icônes à moi que
j'aiIcones.exe,1515"


Alors là, de plus en plus fort... Oui, tu avais raison, il manquait le
chemin
complet. J'ai donc recopié icones.exe dans quicklaunch (et je l'ai caché,
car
il ne sert qu'à ça, il n'a pas besoin d'apparaître). J'ai encore corrigé une
ou
deux bêtises (il manquait "" à la fin de ma variable "QuickLaunch"...) et
maintenant j'ai une erreur "Impossible d'enregistrer le raccourci
...Controle.vbs.lnk"
à la ligne "Raccourci.save" (code 80070003).
Quand je fais "Propriétés/Changer d'icône", ça marche...!
J'ai l'impression que je n'y arriverai jamais !!!!!


Je me suis demandé si le problème ne venait pas de "createShortcut",
puisque le raccourci existe déjà, mais j'ai été incapable de trouver
de la doc (j'aimerais
bien un .chm) sur le Wscript.shell.



Tu as çà chez toi (cherche !!)
Tu peux aussi télécharger le fichier :
http://download.microsoft.com/download/winscript56/Install/5.6/W98NT42KMe/FR/scd56fr.exe
ou
http://www.bellamyjc.org/download/scd56fr.exe


Je te remercie pour le .chm sur les scripts : il va falloir que j'explore ça
d'un peu
plus près. En le parcourant rapidement, il ne me semble pas avoir vu ce que
j'espérais : les objets, méthodes et événements que l'on peut manipuler avec
le shell

En ce qui concerne la méthode "createShortcut" :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/d91b9d23-a7e5-4ec2-8b55-ef6ffe9c777d.asp


Ce que j'ai trouvé là, c'est une entrée dans la librairie MSDN sur le net :
je ne doute pas
qu'on y trouve tout (et sans doute aussi n'importe quoi) mais... je n'ai
qu'une liaison 64K,
et je n'ai pas plusieurs centaines d'euros pour m'abonner aux CD MSDN. C'est
pour
cela que j'aime bien les CHM.
J'ai vu que j'avais tort de m'inquiéter pour CreateShortcut, mon code est
(semble) bon,
mais il ne marche tujours pas... (bien sûr, j'ai supprimé les signes "-" que
suggérait IOBA).

ou
http://www.bellamyjc.org/fr/vbsobjets.html#wshshell
et plus spécialement :
http://www.bellamyjc.org/fr/vbsobj/wsmthcreateshortcut.html


--
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




Avatar
Jean-Claude BELLAMY
Dans le message :451a452a$0$1758$,
L'AMI Yves a pris la peine d'écrire ce qui
suit :
[...]
Alors là, de plus en plus fort... Oui, tu avais raison, il manquait le
chemin
complet. J'ai donc recopié icones.exe dans quicklaunch (et je l'ai
caché, car
il ne sert qu'à ça, il n'a pas besoin d'apparaître). J'ai encore
corrigé une ou
deux bêtises (il manquait "" à la fin de ma variable
"QuickLaunch"...) et maintenant j'ai une erreur "Impossible
d'enregistrer le raccourci ...Controle.vbs.lnk"
à la ligne "Raccourci.save" (code 80070003).



Tu as certainement fait une conceté dans le chemin du fichier raccourci...
P.ex. dans la variable "QuickLaunch"

Moi, je passe toujours par des variables intermédiaires
P.ex. :
QuickLaunch= .....
NomRaccourci=QuickLaunch & "Controle.vbs.lnk"
set Raccourci=shell.createShortcut(NomRaccourci)
....

et s'il y a un pb tel que ton injurebox, j'ajoute un message ou boite de
dialogue :
QuickLaunch= .....
NomRaccourci=QuickLaunch & "Controle.vbs.lnk"
wscript.echo "Le raccourci s'appelle " & NomRaccourci
set Raccourci=shell.createShortcut(NomRaccourci)
....

Avec çà, tu vois tout de suite le caractère manquant ou en trop.

Pour ton info, je te signale que la chemin complet du quicklaunch s'obtient
par la formule :
QuickLaunch= shell.ExpandEnvironmentStrings("%USERPROFILE%") &
"Application DataMicrosoftInternet ExplorerQuick Launch"
ou encore (autre méthode) :
Set fldrs=Shell.SpecialFolders
QuickLaunch=fldrs("AppData") & "MicrosoftInternet ExplorerQuick
Launch"

Attention : si tu es sous un compte NON administrateur, tu NE PEUX PAS
modifier le quicklaunch d'un autre compte !!!!
Le "Quick Launch" n'est accessible que par :
- le compte auquel il se rapporte
- les administrateurs
- le compte SYSTEM



bien sûr, j'ai supprimé les signes "-" que suggérait IOBA.



La présence d'un signe "-" (c'est le signe mathématique "moins", et non pas
un tiret comme le dit IOBA) sert uniquement si on a besoin d'un complément à
2 dans l'index de l'icône (rare !)
Cet index est un WORD, de 16 bits, compris entre 0 et 65535, que l'on peut
écrire aussi sous forme d'un nombre SIGNÉ 16 bits, donc compris entre -32768
et 32767

--
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
Avatar
L'AMI Yves
Je vois que tu es un adepte de "ceinture et bretelles", mais en la matière,
il n'y a pas de mal. Après mon dernier post, j'ai utilisé la technique
"wscript.echo", et j'ai vu que mon chemin était celui que je voulais.
J'ai poussé plus avant cette technique, et, juste derrière mon
CreateShortcut, j'ai eu la curiosité de demander
"wscript.echo raccourci.iconlocation", et il m'a répondu ",0", ce qui
n'est évidemment pas vrai ! Alors j'ai encore demandé
"wscript.echo raccourci.iconlocation & "-" & raccourci.targetpath",
et il m'a répondu ",0-" !
Alors voici ma question : n'avais-je pas raison de m'inquiéter de ce
"createshortcut" sur un raccourci qui existe déjà ? On dirait qu'en
effet, il crée un raccourci vide. Me trompé-je ?

AMIcalement.

"Jean-Claude BELLAMY" a écrit dans le
message de news: 451a4b9d$0$5092$
Dans le message :451a452a$0$1758$,
L'AMI Yves a pris la peine d'écrire ce qui
suit :
[...]
Alors là, de plus en plus fort... Oui, tu avais raison, il manquait le
chemin
complet. J'ai donc recopié icones.exe dans quicklaunch (et je l'ai
caché, car
il ne sert qu'à ça, il n'a pas besoin d'apparaître). J'ai encore
corrigé une ou
deux bêtises (il manquait "" à la fin de ma variable
"QuickLaunch"...) et maintenant j'ai une erreur "Impossible
d'enregistrer le raccourci ...Controle.vbs.lnk"
à la ligne "Raccourci.save" (code 80070003).



Tu as certainement fait une conceté dans le chemin du fichier raccourci...
P.ex. dans la variable "QuickLaunch"

Moi, je passe toujours par des variables intermédiaires
P.ex. :
QuickLaunch= .....
NomRaccourci=QuickLaunch & "Controle.vbs.lnk"
set Raccourci=shell.createShortcut(NomRaccourci)
....

et s'il y a un pb tel que ton injurebox, j'ajoute un message ou boite de
dialogue :
QuickLaunch= .....
NomRaccourci=QuickLaunch & "Controle.vbs.lnk"
wscript.echo "Le raccourci s'appelle " & NomRaccourci
set Raccourci=shell.createShortcut(NomRaccourci)
....

Avec çà, tu vois tout de suite le caractère manquant ou en trop.

Pour ton info, je te signale que la chemin complet du quicklaunch
s'obtient par la formule :
QuickLaunch= shell.ExpandEnvironmentStrings("%USERPROFILE%") &
"Application DataMicrosoftInternet ExplorerQuick Launch"
ou encore (autre méthode) :
Set fldrs=Shell.SpecialFolders
QuickLaunch=fldrs("AppData") & "MicrosoftInternet ExplorerQuick
Launch"

Attention : si tu es sous un compte NON administrateur, tu NE PEUX PAS
modifier le quicklaunch d'un autre compte !!!!
Le "Quick Launch" n'est accessible que par :
- le compte auquel il se rapporte
- les administrateurs
- le compte SYSTEM



bien sûr, j'ai supprimé les signes "-" que suggérait IOBA.



La présence d'un signe "-" (c'est le signe mathématique "moins", et non
pas un tiret comme le dit IOBA) sert uniquement si on a besoin d'un
complément à 2 dans l'index de l'icône (rare !)
Cet index est un WORD, de 16 bits, compris entre 0 et 65535, que l'on peut
écrire aussi sous forme d'un nombre SIGNÉ 16 bits, donc compris
entre -32768 et 32767

--
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




Avatar
L'AMI Yves
Eh bien, la méthode qui marche, c'est "ceinture et bretelles" : avec
Set fldrs=Shell.SpecialFolders
QuickLaunch=fldrs("AppData") & "MicrosoftInternet ExplorerQuick
Launch"


c'est bon ! Depuis tout à l'heure, ça me trottait dans la tête : je pensais
que
Windows créait un raccourci vide... mais il le faisait évidemment si je lui
donnais un mauvais chemin... Ce sont toujours les autres qui se trompent,
hein !

MERCI !

Accessoirement, cher JCB, penses-tu avancer sur le "bug" SuperExec que
j'ai trouvé avant l'été ?

AMIcalement

"Jean-Claude BELLAMY" a écrit dans le
message de news: 451a4b9d$0$5092$
Dans le message :451a452a$0$1758$,
L'AMI Yves a pris la peine d'écrire ce qui
suit :
[...]
Alors là, de plus en plus fort... Oui, tu avais raison, il manquait le
chemin
complet. J'ai donc recopié icones.exe dans quicklaunch (et je l'ai
caché, car
il ne sert qu'à ça, il n'a pas besoin d'apparaître). J'ai encore
corrigé une ou
deux bêtises (il manquait "" à la fin de ma variable
"QuickLaunch"...) et maintenant j'ai une erreur "Impossible
d'enregistrer le raccourci ...Controle.vbs.lnk"
à la ligne "Raccourci.save" (code 80070003).



Tu as certainement fait une conceté dans le chemin du fichier raccourci...
P.ex. dans la variable "QuickLaunch"

Moi, je passe toujours par des variables intermédiaires
P.ex. :
QuickLaunch= .....
NomRaccourci=QuickLaunch & "Controle.vbs.lnk"
set Raccourci=shell.createShortcut(NomRaccourci)
....

et s'il y a un pb tel que ton injurebox, j'ajoute un message ou boite de
dialogue :
QuickLaunch= .....
NomRaccourci=QuickLaunch & "Controle.vbs.lnk"
wscript.echo "Le raccourci s'appelle " & NomRaccourci
set Raccourci=shell.createShortcut(NomRaccourci)
....

Avec çà, tu vois tout de suite le caractère manquant ou en trop.

Pour ton info, je te signale que la chemin complet du quicklaunch
s'obtient par la formule :
QuickLaunch= shell.ExpandEnvironmentStrings("%USERPROFILE%") &
"Application DataMicrosoftInternet ExplorerQuick Launch"
ou encore (autre méthode) :
Set fldrs=Shell.SpecialFolders
QuickLaunch=fldrs("AppData") & "MicrosoftInternet ExplorerQuick
Launch"

Attention : si tu es sous un compte NON administrateur, tu NE PEUX PAS
modifier le quicklaunch d'un autre compte !!!!
Le "Quick Launch" n'est accessible que par :
- le compte auquel il se rapporte
- les administrateurs
- le compte SYSTEM



bien sûr, j'ai supprimé les signes "-" que suggérait IOBA.



La présence d'un signe "-" (c'est le signe mathématique "moins", et non
pas un tiret comme le dit IOBA) sert uniquement si on a besoin d'un
complément à 2 dans l'index de l'icône (rare !)
Cet index est un WORD, de 16 bits, compris entre 0 et 65535, que l'on peut
écrire aussi sous forme d'un nombre SIGNÉ 16 bits, donc compris
entre -32768 et 32767

--
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




Avatar
IOBA
"Jean-Claude BELLAMY" a écrit dans le
message de news: 451a4b9d$0$5092$
|
| > bien sûr, j'ai supprimé les signes "-" que suggérait IOBA.
|
| La présence d'un signe "-" (c'est le signe mathématique "moins", et non
pas
| un tiret comme le dit IOBA) sert uniquement si on a besoin d'un complément
à
| 2 dans l'index de l'icône (rare !)
| Cet index est un WORD, de 16 bits, compris entre 0 et 65535, que l'on peut
| écrire aussi sous forme d'un nombre SIGNÉ 16 bits, donc compris
entre -32768
| et 32767
|
| --
Honte à moi : pour une fois, j'ai pensé qu'un vague souvenir dans une
matière que je ne pratique plus suffirait peut-être à débloquer notre AMI
Yves.
Désolé, Yves ; la prochaine fois, je réviserai mon JCB avant de l'ouvrir
;-)

--
IOBA
(f'rait bien de se remettre au VB)
Avatar
Jean-Claude BELLAMY
Dans le message :451a65a3$0$1756$,
L'AMI Yves a pris la peine d'écrire ce qui
suit :
Eh bien, la méthode qui marche, c'est "ceinture et bretelles" : avec
Set fldrs=Shell.SpecialFolders
QuickLaunch=fldrs("AppData") & "MicrosoftInternet ExplorerQuick
Launch"


c'est bon ! Depuis tout à l'heure, ça me trottait dans la tête : je
pensais que
Windows créait un raccourci vide... mais il le faisait évidemment si
je lui donnais un mauvais chemin... Ce sont toujours les autres qui
se trompent, hein !

MERCI !


YAPADKOI !
Mais c'était bien ce que je pensais, à savoir que tu avais commis une
conceté dans le chemin du raccourci !


Accessoirement, cher JCB, penses-tu avancer sur le "bug" SuperExec que
j'ai trouvé avant l'été ?


Oui, je suis dessus, le bug est corrigé, je recompile, et j'ajoute la
possibilité de choisir le compte admin pour chaque machine (ou au contraire,
le rendre commun, au choix). Et comme je tiens à "blinder" le truc, je teste
auparavant, dans le cas d'une machine distante, si le compte indiqué
(username/password) :
- existe bien sur cette machine (ou ce domaine)
- est bien avec des privilèges administrateur
et là, je découvre des tas de cas tordus possibles !!!
P.ex. un compte local admin sur une machine, qui existe bien sur une autre
mais qui n'y est pas admin, ou encore qui est admin mais qui n'a pas le même
password.
Ou encore une machine distante où les partages administratifs ont été
désactivés et/ou l'accès distant au registre désactivé également, avec des
comptes amdin différents, ...
En effet, pour tester si un compte est admin, je tente l'ouverture d'une
connexion distante sur le partage administratif "ADMIN$" à l'aide de la
fonction "WNetAddConnection2", qui permet le passage de username/password.
Mais si les partages admins ont été désactivés, je suis mal ! ;-)
Je peux bien sûr les réactiver à distance, mais il faut que j'aie accès à la
BDR distante, et pour çà il faut que le compte que j'utilise localement
soit admin sur la machine distante et que ce service ne soit pas arrêté. Je
peux éventuellement redémarrer ce service à distance, mais là aussi il faut
des droits ...

Donc dans certaines configurations "destroys", c'est ... "On tourne en rond,
merde, on tourne en rond, merde, on tourne en rond!" ;-)

<HS>
Par ailleurs, toute la semaine dernière j'étais loin de mon PC, puisque je
suis allé admirer à Kourou en Guyane la dernière éclipse de soleil avant
2008. C'était une très belle annulaire, visible le 22 septembre uniquement
en Guyana, Surinam et Guyane (les photos sont en préparation sur mon site)
Et la prochaine éclipse de soleil aura lieu le 7 février 2008, une annulaire
de 2mn12s, et comme c'est dans l'Antarctique, je crois que je m'abstiendrai
;-) !
Quant à la prochaine éclipse totale, c'est pour le 1er aout 2008, visible
dans le nord du Canada, le Groënland, la Sibérie, la Mongolie et le nord de
la Chine.

Celle que j'attends est une totale de 5mn20s (très longue!), le 11 juillet
2010, visible à l'ile de Pâques et un peu au Chili et en Argentine.
Ahhhhhhh ... la couronne solaire en fond avec en contre-jour les alignements
de Moaïs, çà sera un spectacle féérique !
</HS>

--
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
1 2