Sur un lan xp, 98, 2000, la machine xp a un lecteur r=E9seau=20
d=E9fini pour pointer sur le serveur qui est en 98se.
Cependant la machine Xp d=E9connecte le lecteur r=E9seau apr=E8s=20
un certains temps comme si elle ne voyait pas la machine 98
D=E8s qu'on r=E9ouvre le lecteur r=E9seau, l=E0 tout est ok.
Un Mvp microsoft m'a dit que c'=E9tait normal (pr=E9vu et=20
voulu par Xp), d'accord mais comment maintenir une=20
connexion continue ?=20
Mes utilisateurs ouvrent et ferment toute la journ=E9e leur=20
application dont le serveur est 98se, alors ils=20
m'appellent tout le temps !!
Que faire ?
A l'aide !!
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
Michel
-----Message d'origine----- Bonsoir à tous
Sur un lan xp, 98, 2000, la machine xp a un lecteur réseau
défini pour pointer sur le serveur qui est en 98se.
Cependant la machine Xp déconnecte le lecteur réseau après
un certains temps comme si elle ne voyait pas la machine 98
Dès qu'on réouvre le lecteur réseau, là tout est ok.
Un Mvp microsoft m'a dit que c'était normal (prévu et voulu par Xp), d'accord mais comment maintenir une connexion continue ? Mes utilisateurs ouvrent et ferment toute la journée leur
application dont le serveur est 98se, alors ils m'appellent tout le temps !! Que faire ? A l'aide !!
Faire un petit programe en VbScript qui va recréer cette connexion (Disque réseau) ex:i: ORDICDOSSIER, si elle
n'existe plus
Dans fichier .vbs : Le source : -------------------------------------------------- Dim Drvs Dim WSHSHELL Dim Net Dim i Dim MapDrive
Set WSHSHELL = WScript.createObject("Wscript.Shell") Set Net = WScript.createObject("Wscript.Network") Set Drvs=net.EnumNetWorkDrives
if error then call TrtErreur 'Liste des Lecteurs réseau connectés actuellement 'Pour l'exemple I: Disque réseau
For i=0 To Drvs.Count - 1 If Drvs.Item(i)="I:" then Exist=True next
End if -------------------------------------------------------- Coupler l'execution du fichier à une tache programmée de windows
-----Message d'origine-----
Bonsoir à tous
Sur un lan xp, 98, 2000, la machine xp a un lecteur
réseau
défini pour pointer sur le serveur qui est en 98se.
Cependant la machine Xp déconnecte le lecteur réseau
après
un certains temps comme si elle ne voyait pas la machine
98
Dès qu'on réouvre le lecteur réseau, là tout est ok.
Un Mvp microsoft m'a dit que c'était normal (prévu et
voulu par Xp), d'accord mais comment maintenir une
connexion continue ?
Mes utilisateurs ouvrent et ferment toute la journée
leur
application dont le serveur est 98se, alors ils
m'appellent tout le temps !!
Que faire ?
A l'aide !!
Faire un petit programe en VbScript qui va recréer cette
connexion (Disque réseau) ex:i: \ORDICDOSSIER, si elle
n'existe plus
Dans fichier .vbs :
Le source :
--------------------------------------------------
Dim Drvs
Dim WSHSHELL
Dim Net
Dim i
Dim MapDrive
Set WSHSHELL = WScript.createObject("Wscript.Shell")
Set Net = WScript.createObject("Wscript.Network")
Set Drvs=net.EnumNetWorkDrives
if error then call TrtErreur
'Liste des Lecteurs réseau connectés actuellement
'Pour l'exemple I: Disque réseau
For i=0 To Drvs.Count - 1
If Drvs.Item(i)="I:" then Exist=True
next
Sur un lan xp, 98, 2000, la machine xp a un lecteur réseau
défini pour pointer sur le serveur qui est en 98se.
Cependant la machine Xp déconnecte le lecteur réseau après
un certains temps comme si elle ne voyait pas la machine 98
Dès qu'on réouvre le lecteur réseau, là tout est ok.
Un Mvp microsoft m'a dit que c'était normal (prévu et voulu par Xp), d'accord mais comment maintenir une connexion continue ? Mes utilisateurs ouvrent et ferment toute la journée leur
application dont le serveur est 98se, alors ils m'appellent tout le temps !! Que faire ? A l'aide !!
Faire un petit programe en VbScript qui va recréer cette connexion (Disque réseau) ex:i: ORDICDOSSIER, si elle
n'existe plus
Dans fichier .vbs : Le source : -------------------------------------------------- Dim Drvs Dim WSHSHELL Dim Net Dim i Dim MapDrive
Set WSHSHELL = WScript.createObject("Wscript.Shell") Set Net = WScript.createObject("Wscript.Network") Set Drvs=net.EnumNetWorkDrives
if error then call TrtErreur 'Liste des Lecteurs réseau connectés actuellement 'Pour l'exemple I: Disque réseau
For i=0 To Drvs.Count - 1 If Drvs.Item(i)="I:" then Exist=True next