Problème de veille carte réseau

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Problème de veille carte réseau

Adaron

Hello :hello:

Voilà, il y a un PC dans mon parc avec à priori un problème de veille de la carte réseau. Dès que son utilisateur s'absente du bureau et qu'il ne fait plus rien sur son PC, au bout d'un certain temps (45 min et plus..) il perd la connexion avec ses lecteurs réseau. En revenant sur le PC, le réseau refonctionne (carte connectée, Internet ok etc), mais les lecteurs réseaux restent inaccessibles (pas seulement avec une croix rouge, on ne peut vraiment plus aller dessus).

Seules solutions pour les rendre de nouveau accessibles : redémarrer la session ou le PC, ou désactiver et réactiver la carte réseau (ce qui revient aussi à tirer le câble réseau et le rebrancher).

Il faut savoir que j'ai déjà désactivé toutes les veilles et économies d'énergie possibles sur ce PC (Options avancées de la veille, Gestion des périphériques -> cartes réseaux etc), quoi qu'il y a peut-être la veille de l'écran que je devrais enlever aussi. J'ai également mis à jour les pilotes des cartes réseaux. Et oui, j'ai déjà essayé aussi de rajouter une carte réseau D-Link dans l'un des slots de la carte mère pour brancher le réseau dessus => on a toujours le même problème.

J'ai fait le tour de tas de forums, je ne trouve pas de solution qui puisse régler mon problème. Donc voilà, j'ai fini par poster ici, en espérant que quelqu'un pourra m'aider ^^

Le PC en question est dans un domaine et tourne sous Windows 7 Pro x64.

Donc pour résumer, quelle que soit la carte réseau utilisée, absentéisme prolongé => perte de l'accès aux lecteurs réseaux.

J'avais eu un problème un peu similaire avec un autre PC du parc, mais pour lui il y avait la case "Autoriser Windows à éteindre ce périphérique pour économiser l'énergie" qui était cochée. Je l'avais décochée et le problème semblait réglé.

Mais ici elle est déjà décochée cette case : /

Je suis vraiment à court d'idées et je continue à penser que c'est un problème de veille mais je ne sais plus trop où chercher.

Help !

Message édité par Adaron le 28-03-2013 à 10:55:30

Publicité

Adaron

Personne n'a d'idée ?

hinathepooh

Admin Systèmes et réseaux

Sous xp ?

hinathepooh

Admin Systèmes et réseaux

Whoops, désolé, c'etait noté dans ton poste "Le PC en question est dans un domaine et tourne sous Windows 7 Pro x64. "

hinathepooh

Admin Systèmes et réseaux

Peut être l'ACPI dans le bios a désactivé, je sais qu'elle permet de mettre en veille les disques dur etc ... c'est peut être le cas aussi pour les cartes réseaux

sinon tu peux pas lui faire un p'tit batch avec un net use delete etc ... et reconnect, comme ça il n'a qu'a double cliquer dessus quand il revient. Ca peut être une solution alternative

Message édité par hinathepooh le 28-02-2013 à 22:47:18

lepro95

Pas si pro que ca... :'(

genre un bat sous dos...

---------------
Qui a un intel core 2 extreme QX9770 et/ou un X9000 à un prix raisonnable ?/Ma co/LG Nexus 5 32Go, Samsung Galaxy A3 (2017)

hinathepooh

Admin Systèmes et réseaux

humm ... Oui
C'est si étrange que ça ?

Adaron

Merci pour vos réponses !

Je n'ai pas été dans le BIOS, effectivement. J'irai faire un tour pour voir s'il y a quelque chose à faire de ce côté. Merci !

Sinon, il y a un script de démarrage qui lui connecte ses lecteurs réseau (entre autres) à l'ouverture de la session, le voici :

Citation :

REM net time \\SRVCTRL /set /yes

NET USE L: \\SRVCTRL\Commercial /PERSISTENT:NO
NET USE B: \\SRVCTRL\Marketing /PERSISTENT:NO
NET USE X: \\SRVCTRL\Commun /PERSISTENT:NO
NET USE S: \\SRVCOMPTA\Compta /PERSISTENT:NO
NET USE v: \\SRVCTRL\Gestion /PERSISTENT:NO
NET USE T: \\SRVCTRL\Direction /PERSISTENT:NO
NET USE R: \\SRVCTRL\RH /PERSISTENT:NO

wscript.exe \\SRVCTRL\Commun\Utilitaires\Signature_Outlook\Generateur_Signature_Outlook.vbs

exit

Les autres users ont tous un script qui ressemble à celui-ci.

J'ai une info supplémentaire que j'ai omis de donner, mais qu'on voit grâce à la ligne en gras dans mon script au-dessus : l'un des lecteurs réseau pointe vers un serveur différent du réseau, et généralement l'accès à ce lecteur réseau en particulier est toujours bon, même quand les autres sont inaccessibles (sur SRVCTRL).

Je ne sais pas trop pourquoi.

L'idée de lui créer un batch pour qu'il double-clique dessus peut dépanner, effectivement. Par contre un NET USE ne suffira pas. Même si on déconnecte et on reconnecte les lecteurs, on n'arrive pas à aller dedans. Alors qu'un Bureau de connexion à distance vers le même serveur fonctionne.

Il faudrait désactiver/réactiver sa carte réseau (ou débrancher et rebrancher le câble RJ-45), et ensuite c'est bon.

Si je ne trouve pas de solution, j'opterai pour quelque chose comme ça. Mais ça m'embêterait vraiment d'aller jusqu'à réinstaller son système juste pour ça

Je vous tiens au courant pour le BIOS !

Merci encore

hinathepooh

Admin Systèmes et réseaux

Je vois dans ton script que tu as un générateur de signature Outlook, ça m’intéresse

A chaque fois que je prépare un poste pour une personne qui vient d'arriver dans un service, je dois récupérer un mail d'une personne du service et lui créer sa signature, pas très pratique.

Adaron

Salut,

Oui, c'est un script qui génère les signatures Outlook des utilisateurs. On ne s'en sert plus trop maintenant parce qu'ils sont passés à des bannières mail "faites à la main", mais ce script automatisé se base sur les infos entrées dans l'Active directory et fonctionne très bien. Après ça, il reste juste à aller sur Outlook et sélectionner la signature qu'il a généré.

Il y a dedans des spécificités de l'organisation de la boîte, mais si tu veux je peux te montrer une version générale.

Sinon, concernant mon problème, je m'en occupe en début d'après-midi et je repasserai ici avec les résultats (l'user du poste est en déplacement aujourd'hui donc ça laisse la voie libre) !

Publicité

hinathepooh

Admin Systèmes et réseaux

Je commençais à me dire que je ne te reverrais plus

j'attend le resultat cet aprem !

Adaron

Re,

Oui, désolé, comme je n'avais pas encore avancé là-dessus, je ne suis passé qu'aujourd'hui ^^'

J'ai été dans le BIOS du poste et désactivé l'ACPI 2.0 et laissé l'ACPI ACIP (en désactivant les deux, Windows n'arrive plus à démarrer).

J'ai ensuite laissé Windiws démarrer normalement et ouvert une session. Le problème se produit normalment au bout de 45 min d'inactivié, donc vers 18h j'irai voir si ça a changé quelque chose ou pas (j'ai fini toutes les manips à 17h).

Je regarde pour te coller un exemple de script ici ^^

Message édité par Adaron le 12-03-2013 à 17:19:51

Adaron

Ok, on dirait que c'est bon, étrangement..

J'ai fait ça dans l'ordre et cela semble avoir réglé le problème :

- Déconnecter tous les lecteurs réseaux + rebooter la machine (on ne sait jamais)

- Désactivation de l'ACPI 2.0 Support dans le BIOS

- Désactivation de la fonction de veille qui s'appelle "estomper l'affichage / éteindre l'écran" (c'était le seul élément de veille actif, pour préserver un peu l'écran mais là je l'ai enlevé aussi)

Depuis, peu importe combien de temps je laisse la machine inactive, je n'ai plus de problème de lecteurs réseaux déconnectés. Incroyable.

En prévention, j'ai quand même fait un script en batch pour réinitialiser la carte réseau juste avec un double-clique si jamais (pas facile parce qu'il fallait que le double-clique soit interprêté comme "Exécuter en tant qu'administrateur" pour que la commande netsh puisse fonctionner sans planter)...

Merci pour les idées

hinathepooh,

Si ça t'intéresse toujours, j'ai toujours le script vbs pour la signature. Il fonctionne bien mais il faudra juste que tu l'adaptes à ta société ^^

hinathepooh

Admin Systèmes et réseaux

C'est un Run as ta commande pour executer en tant que j'imagine.

Oui toujours interessé par ton VBS, meme si j'suis une grosse quiche en programmation j'pourrais regarder ça avec mes collegues

Adaron

Salut !

Désolé du temps de réponse ^^'

Non, "Run as" n'allait pas parce qu'il était impossible de lui fournir le mot de passe Admin en le mettant dans un fichier ou dans un script (ou alors ultra compliqué à mettre en place...).

J'ai simplement créé le fichier .bat avec le code à l'intérieur, je l'ai mis dans C:\Temp et j'ai créé un raccourci du fichier sur le Bureau. Ensuite, clique droit sur le raccourci -> bouton Avancé et on coche la case "Exécuter en tant qu'Administrateur".

Avec ça, l'utilisateur a juste à double-cliquer sur le raccourci et ça marchera à 100%. Même si un clique droit sur le fichier (pas le raccourci) et Exécuter en tant qu'administrateur devrait fonctionner aussi...

Bref !

Voilà pour le script, j'espère que ça te servira :

Citation :

'HTML signature

On Error Resume Next
Set objSysInfo = CreateObject("ADSystemInfo" )
strUser = objSysInfo.UserName
Set objUser = GetObject("LDAP://" & strUser)

strNomComplet = objUser.FullName
strPrenom = objuser.givenName
strNom = objuser.sn
strFonction = objUser.Title
strDescription = objUser.Description
strService = objUser.Department
strBureau = objUser.physicalDeliveryOfficeName
strSociete = objUser.Company
strAddress = objuser.streetAddress
strCity = objuser.l
strState = objuser.st
strZip = objuser.postalCode
strTelephone = objUser.telephoneNumber
strTelephoneMobile = objUser.mobile
strMail = objuser.mail
strWeb = objuser.wWWHomePage
strFax = objUser.faxNumber
strDivision = objUser.Division
strActu = "www.proarchives.fr/actualites"
logoBanniere = "banniere.gif"
flgAdresse = False

Select Case strBureau
Case "Groupe-PRO.ARCHIVES":
logoSociete = "Groupe-PRO.ARCHIVES_100.gif"
logoSociete1 = "PRO.ARCHIVES_85.gif"
logoSociete2 = "AGO_85.gif"
logoSociete3 = "PRO.NUMERIQUE_85.gif"
logoSociete4 = "PRO.DOCS_85.gif"
strWeb1 = "www.proarchives.fr"
strWeb2 = "www.ago-sa.fr"
strWeb3 = "www.pronumerique.com"
strWeb4 = "www.prodocs.fr"
Case "PRO.ARCHIVES":
logoSociete = "PRO.ARCHIVES_100.gif"
logoSociete1 = "Groupe-PRO.ARCHIVES_85.gif"
logoSociete2 = "PRO.NUMERIQUE_85.gif"
logoSociete3 = "PRO.DOCS_85.gif"
logoSociete4 = "AGO_85.gif"
strWeb1 = "www.groupe-proarchives.fr"
strWeb2 = "www.pronumerique.com"
strWeb3 = "www.prodocs.fr"
strWeb4 = "www.ago-sa.fr"
Case "PRO.NUMERIQUE":
logoSociete = "PRO.NUMERIQUE_100.gif"
logoSociete1 = "Groupe-PRO.ARCHIVES_85.gif"
logoSociete2 = "PRO.ARCHIVES_85.gif"
logoSociete3 = "AGO_85.gif"
logoSociete4 = "PRO.DOCS_85.gif"
strWeb1 = "www.groupe-proarchives.fr"
strWeb2 = "www.proarchivs.fr"
strWeb3 = "www.ago-sa.fr"
strWeb4 = "www.prodocs.fr"
'Case PRO.ASC:
' logoSociete = "proasc.gif"
Case Else
strBureau = "Groupe-PRO.ARCHIVES"
logoSociete = "Groupe-PRO.ARCHIVES_100.gif"
logoSociete1 = "PRO.ARCHIVES_85.gif"
logoSociete2 = "AGO_85.gif"
logoSociete3 = "PRO.NUMERIQUE_85.gif"
logoSociete4 = "PRO.DOCS_85.gif"
strWeb1 = "www.proarchives.fr"
strWeb2 = "www.ago-sa.fr"
strWeb3 = "www.pronumerique.com"
strWeb4 = "www.prodocs.fr"
End Select

strPhone2=strTelephone
strFax2=strFax
strMobilePhone2=strTelephoneMobile

'IF (strNomComplet = "Dupont DURAND" OR strNomComplet = "Exemple exemple" ) THEN logoSociete = "pronumerique.gif" ELSE logoSociete = "proarchives.gif"
'IF (strTelephone=" " OR strTelephone = Null OR IsEmpty(strTelephone)) THEN strPhone2 = InputBox("Veuillez entrer votre numero de téléphone cliquez sur ""annuler"" pour laisser le champs vide" )
'IF (strTelephoneMobile=" " OR strTelephoneMobile = Null OR IsEmpty(strTelephoneMobile)) THEN strMobilePhone2 = InputBox("Veuillez entrer votre numero de téléphone portable cliquez sur ""annuler"" pour laisser le champs vide" )
'IF (strFax=" " OR strFax = Null OR IsEmpty(strFax)) THEN strFax2 = InputBox("Veuillez entrer votre numero de Fax cliquez sur ""annuler"" pour laisser le champs vide" )

Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile, plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath, scriptPath
Const OverwriteExisting = True, ForReading = 1, ForWriting = 2, ForAppending = 8, ModeAscii = 0, ModeUnicode = -1

Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objWsh = CreateObject("WScript.Shell" )
appDataPath = objWsh.ExpandEnvironmentStrings("%APPDATA%" )
pathToCopyTo = appDataPath & "\Microsoft\Signatures\"
'scriptPath = "\\le\repertoire\du\script"
scriptPath = objFSO.GetParentFolderName(wscript.ScriptFullName)
'msgbox scriptPath
source = "X:\Utilitaires\Signature_Outlook\Logos"
'IF () THEN source = Input
IF objFSO.FileExists(pathToCopyTo & "Logos\" & logoBanniere) THEN
objFSO.DeleteFile pathToCopyTo & "Logos\" & logoBanniere
END IF
objFSO.CopyFolder source, pathToCopyTo, OverwriteExisting
objFSO.CopyFile "X:\Utilitaires\Signature_Outlook\FORMULE_POLITESSE_Outlook.txt", "U:\FORMULE_POLITESSE_Outlook.txt", False
'objFSO.CopyFile "U:\FORMULE_POLITESSE_Outlook.txt", pathToCopyTo, OverwriteExisting

htmlFilePath = pathToCopyTo & "Defaut_" & strNom & ".htm"
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)

htmlFile.WriteLine("<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>" )
htmlFile.WriteLine("<head>" )
htmlFile.WriteLine(" <meta http-equiv=Content-Type content='text/html; charset=iso-8859-1'>" ) 'iso-8859-1 windows-1252 UTF-8
htmlFile.WriteLine(" <meta content='MSHTML 6.00.6000.16640' name=GENERATOR>" )
htmlFile.WriteLine("</head>" )
htmlFile.WriteLine("<body>" )
Dim filesys, text, readfile, contents
set filesys = CreateObject("Scripting.FileSystemObject" )
'set readfile = filesys.OpenTextFile("U:\Essai.txt", 1, False)
set readfile = filesys.OpenTextFile("U:\FORMULE_POLITESSE_Outlook.txt", 1, False)
htmlFile.WriteLine("<span style='font-family: Calibri, Verdana, Arial, Helvetica, sans-serif; font-size: 11pt'>" )
do while readfile.AtEndOfStream=false
contents = readfile.ReadLine
htmlFile.WriteLine(contents)
htmlFile.WriteLine(" <br />" )
loop
htmlFile.WriteLine("</span>" )
readfile.close
htmlFile.WriteLine(" <br />" )
htmlFile.WriteLine(" <table border='0' cellpadding='0' cellspacing='0'>" )
htmlFile.WriteLine(" <tr>" )
htmlFile.WriteLine(" <td width='100' valign='middle'>" )
htmlFile.WriteLine(" <div align='left'><a href='http://" & strWeb & "' ><img src='" & pathToCopyTo & "Logos\" & logoSociete & "' alt='Solutions d’archivage dédiées aux Administrateurs de Biens - Visitez notre site Web' width='100' height='100' border='0' align='middle'/></a></div>" )
htmlFile.WriteLine(" </td>" )
htmlFile.WriteLine(" <td width='10'></td>" )
IF (strService="Commercial" ) THEN
htmlFile.WriteLine(" <td width='100' valign='middle'>" )
htmlFile.WriteLine(" <div align='left'><a href='http://" & strWeb & "' ><img src='" & pathToCopyTo & "Logos\PRO.NUMERIQUE_100.gif' alt='Solutions d’archivage dédiées aux Administrateurs de Biens - Visitez notre site Web' width='100' height='100' border='0' align='middle'/></a></div>" )
htmlFile.WriteLine(" </td>" )
htmlFile.WriteLine(" <td width='10'></td>" )
END IF
htmlFile.WriteLine(" <td>" )
htmlFile.WriteLine(" <table border='0' cellpadding='0' cellspacing='0'>" )
htmlFile.WriteLine(" <tr valign='top'>" )
htmlFile.WriteLine(" <td colspan='3'>" )
htmlFile.WriteLine(" <span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; font-size: 10pt; color: black'>" & strPrenom & " " & strNom & "</span>" ) 'color: #FF8040;
htmlFile.WriteLine(" </td>" )
htmlFile.WriteLine(" </tr>" )
htmlFile.WriteLine(" <tr valign='top'>" )
htmlFile.WriteLine(" <td colspan='3' style='font-family: "Times New Roman", Times, serif; font-weight: bold; font-style: italic; font-size: 11pt; color: black'>" & strDescription & "</td>" ) 'color: maroon;
htmlFile.WriteLine(" </tr>" )
htmlFile.WriteLine(" <tr valign='bottom'>" )
htmlFile.WriteLine(" <td width='50' height='15'><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; color: black'>Téléphone</span></td>" ) 'color: maroon;
htmlFile.WriteLine(" <td width='15'><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; color: black'>:</span></td>" ) 'color: maroon;
htmlFile.WriteLine(" <td width='300'><span style='font-family: "Times New Roman", Times, serif; font-weight: bold; font-size: 8pt; color: black'> " & strPhone2 & "</span></td>" ) 'color: #FF8040;
htmlFile.WriteLine(" </tr>" )
htmlFile.WriteLine(" <tr valign='bottom'>" )
htmlFile.WriteLine(" <td><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; color: black'>Télécopie</span></td>" ) 'color: maroon;
htmlFile.WriteLine(" <td><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; color: black'>:</span></td>" ) 'color: maroon;
htmlFile.WriteLine(" <td><span style='font-family: "Times New Roman", Times, serif; font-weight: bold; font-size: 8pt; color: black'> " & strFax2 & "</span></td>" ) 'color: #FF8040;
htmlFile.WriteLine(" </tr>" )
IF NOT IsEmpty(strTelephoneMobile) THEN
htmlFile.WriteLine(" <tr valign='bottom'>" )
htmlFile.WriteLine(" <td><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; color: black'>Mobile</span></td>" ) 'color: maroon;
htmlFile.WriteLine(" <td><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; color: black'>:</span></td>" ) 'color: maroon;
htmlFile.WriteLine(" <td><span style='font-family: "Times New Roman", Times, serif; font-weight: bold; font-size: 8pt; color: black'> " & strTelephoneMobile & "</span></td>" ) 'color: #FF8040;
htmlFile.WriteLine(" </tr>" )
END IF
htmlFile.WriteLine(" <tr valign='bottom'>" )
htmlFile.WriteLine(" <td><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; color: black'>Courriel</span></td>" ) 'color: maroon;
htmlFile.WriteLine(" <td><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 7pt; color: black'>:</span></td>" ) 'color: maroon;
'htmlFile.WriteLine(" <td></td>" )
htmlFile.WriteLine(" <td><a href='mailto:" & strMail &"'><span style='font-family: "Times New Roman", Times, serif; font-size: 8pt; color: #0000CC; text-decoration: underline;'>" & strMail & "</span></a></td>" )
htmlFile.WriteLine(" </tr>" )
htmlFile.WriteLine(" <tr valign='middle'>" ) 'top
htmlFile.WriteLine(" <td width='60'><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; font-size: 9pt; color: black'>Site</span></td>" ) 'color: maroon; font-size: 7pt
htmlFile.WriteLine(" <td width='15'><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 9pt; color: black'>:</span></td>" ) 'color: maroon; font-size: 7pt
'htmlFile.WriteLine(" <td width='5'></td>" )
htmlFile.WriteLine(" <td>" )
htmlFile.WriteLine(" <a href='http://" & strWeb & "'>" )
htmlFile.WriteLine(" <span style='font-family: "Times New Roman", Times, serif; font-weight: bold; font-size: 10pt; color: red; text-decoration: underline;'>Visitez notre nouveau site</span>" ) ' font-size: 8pt
htmlFile.WriteLine(" <span style='font-family: "Times New Roman", Times, serif; font-weight: bold; font-size: 10pt; color: #0000CC; text-decoration: underline;'>" & strWeb & "</span>" ) ' font-size: 8pt
htmlFile.WriteLine(" </a>" )
htmlFile.WriteLine(" </td>" )
htmlFile.WriteLine(" <td>" )
htmlFile.WriteLine(" <div valign='top'><a href='http://" & strWeb & "' ><img src='" & pathToCopyTo & "Logos\New.gif' alt='Visitez notre nouveau site Web' border='0' align='left'/></a></div>" )
htmlFile.WriteLine(" </td>" )
htmlFile.WriteLine(" </tr>" )
htmlFile.WriteLine(" </table>" )
htmlFile.WriteLine(" </td>" )
' Nouvelle adresse ou bannière
IF flgAdresse OR objFSO.FileExists(pathToCopyTo & "Logos\" & logoBanniere) THEN
htmlFile.WriteLine(" <td width='5'></td>" )
REM ' Début bannière
IF objFSO.FileExists(pathToCopyTo & "Logos\" & logoBanniere) THEN
htmlFile.WriteLine(" <td width='320'>" )
htmlFile.WriteLine(" <table>" )
htmlFile.WriteLine(" <tr>" )
htmlFile.WriteLine(" <td width='100' valign='middle'>" )
htmlFile.WriteLine(" <div align='left'><a href='http://" & strActu & "' ><img src='" & pathToCopyTo & "Logos\" & logoBanniere & "' alt='Consultez nos actualités' border='0' align='middle'/></a></div>" ) 'width='300' height='70'
htmlFile.WriteLine(" </td>" )
htmlFile.WriteLine(" </tr>" )
htmlFile.WriteLine(" </table>" )
htmlFile.WriteLine(" </td>" )
END IF
REM ' Fin bannière
IF FlgAdresse THEN
htmlFile.WriteLine(" <td width='420'>" )
htmlFile.WriteLine(" <table border=0 cellspacing=0 cellpadding=0 align=left bgcolor=yellow style='font-size:9.0pt;font-family:Verdana;color:red;font-weight:bold'>" )
htmlFile.WriteLine(" <tr>" )
htmlFile.WriteLine(" <td align='center' valign='middle' style='width:550pt;border:solid windowtext 1.0pt;padding:0cm 3.5pt 0cm 3.5pt;height:71.4pt'>" )
htmlFile.WriteLine(" ATTENTION ! <br /><font style='font-size:3.0pt'> </font><br />" )
htmlFile.WriteLine(" NOUVELLE ADRESSE A COMPTER DU 8 MARS 2010 :<br /><font style='font-size:3.0pt'> </font><br />" )
htmlFile.WriteLine(" " & strSociete & "<br />" )
htmlFile.WriteLine(" 151, Rue Gilles de ROBERVAL<br />" )
htmlFile.WriteLine(" 30900 NIMES" )
htmlFile.WriteLine(" </td>" )
htmlFile.WriteLine(" </tr>" )
htmlFile.WriteLine(" </table>" )
htmlFile.WriteLine(" </td>" )
END IF
REM ' Fin Adresse
END IF
' Fin Nouvelle adresse ou bannière
htmlFile.WriteLine(" </tr>" )
'htmlFile.WriteLine(" <tr valign='top'>" )
'htmlFile.WriteLine(" <td height='20' colspan='3' valign='middle'><span style='font-family: Verdana, Arial, Helvetica, sans-serif; font-weight: bold; font-size: 8pt;'>Solutions d'archivage dédiées aux Administrateurs de Biens</span></td>" )
'htmlFile.WriteLine(" </tr>" )
htmlFile.WriteLine(" </table>" )
IF strBureau = "Groupe-PRO.ARCHIVES" THEN
htmlFile.WriteLine("<br />" )
htmlFile.WriteLine("<table border='0' cellpadding='0' cellspacing='0' >" )
htmlFile.WriteLine(" <tr>" )
htmlFile.WriteLine(" <td width='100'><div align='left'><a href='http://" & strWeb1 & "' ><img src='" & pathToCopyTo & "Logos\" & logoSociete1 & "' width='85' height='85' border='0' align='middle'/></a></div></td>" )
htmlFile.WriteLine(" <td width='100'><div align='left'><a href='http://" & strWeb2 & "' ><img src='" & pathToCopyTo & "Logos\" & logoSociete2 & "' width='85' height='85' border='0' align='middle'/></a></div></td>" )
htmlFile.WriteLine(" <td width='100'><div align='left'><a href='http://" & strWeb3 & "' ><img src='" & pathToCopyTo & "Logos\" & logoSociete3 & "' width='85' height='85' border='0' align='middle'/></a></div></td>" )
htmlFile.WriteLine(" <td width='100'><div align='left'><a href='http://" & strWeb4 & "' ><img src='" & pathToCopyTo & "Logos\" & logoSociete4 & "' width='85' height='85' border='0' align='middle'/></a></div></td>" )
htmlFile.WriteLine(" </tr>" )
htmlFile.WriteLine("</table>" )
END IF
htmlFile.WriteLine(" <img src='" & pathToCopyTo & "Logos\arbre_ecolo_trans.gif' width='25' height='25' border=0/> <span style='font-family: "Times New Roman", Times, serif; font-style: italic; color: green; font-size: 10pt; font-weight: bold;'>Afin de contribuer au respect de l'environnement, merci de n'imprimer ce courriel que si nécessaire.</span>" )
htmlFile.WriteLine(" <br />" )
htmlFile.WriteLine(" <div style='width:550px; border-top: 1px solid #666666; border-bottom: 1px solid #666666; padding:0px; font-size:9px; font-family:Verdana, Arial, Helvetica, sans-serif' align='justify' >" )
htmlFile.WriteLine(" Ce message et toutes les pièces jointes sont confidentiels et établis à l'attention exclusive de ses destinataires." )
htmlFile.WriteLine(" Toute utilisation de ce message non conforme à sa destination, toute diffusion ou toute publication, totale ou partielle, est interdite, sauf autorisation expresse." )
htmlFile.WriteLine(" Si vous recevez ce message par erreur, merci de le détruire et d'en avertir immédiatement l'expéditeur." )
IF strBureau = "Groupe-PRO.ARCHIVES" THEN
htmlFile.WriteLine(strBureau & " et ses partenaires déclinent toute responsabilité au titre de ce message s'il a été altéré, déformé ou falsifié." )
ELSE
htmlFile.WriteLine(" La Société " & strBureau & " et ses partenaires déclinent toute responsabilité au titre de ce message s'il a été altéré, déformé ou falsifié." )
END IF
'htmlFile.WriteLine(" " )
htmlFile.WriteLine(" </div>" )
htmlFile.WriteLine("</body>" )
htmlFile.WriteLine("</html>" )
htmlFile.Close

Adaron

UP !

En fait, le problème est revenu sur le poste en question...

Mon script permet de tout remettre en 2 secondes mais le réglage du BIOS n'a pas résolu le problème pour autant

hinathepooh

Admin Systèmes et réseaux

Je crains que mes idées s'épuisent ...

FORUM HardWare.fr

Hardware

Matériels & problèmes divers

Problème de veille carte réseau

Sujets relatifs
Problème de son	problème SLI
Choix d'une carte graphique	Choix carte mère
Problème après changement CM/CPU[résolu]	Problème installation Windows 7...
[Demande d'aide] Achat d'une carte graphique	Vague sur l'ecran s'intillement carte graphique ?
Changement marque carte --> conflit drivers?
Plus de sujets relatifs à : Problème de veille carte réseau

Page générée en 0.069 secondes