IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Désactivation messages de confirmation


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre à l'essai
    Profil pro
    Inscrit en
    Février 2007
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 4
    Par défaut Désactivation messages de confirmation
    Bonjour,

    Excusez moi de vous importuner mais j'ai encore une question de débutant!
    Voila j'ai un script que je voudrais modifier afin qu'il n'y ai pas de message de confirmation:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    option explicit
    on error resume next
     
    ' Declare the variables
    dim wshNet, wshShell, userName,UserObj, DomainName,ProfileOutlook,ObjFs,testcle,ServeurExchange
     
    dim strcomputer,Arrvalues,CleReg,ObjRegistry
     
    ' Create a WshNet object
    set wshNet = createObject("wscript.Network")
     
    ' Create a wshShell object
    set wshShell = createObject("wscript.shell")
     
    ' Create an Object File System object
    SET objFS=CreateObject ("Scripting.FileSystemObject")
     
    Const HKEY_CURRENT_USER = &H80000001 
    strComputer = "."
    Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") 
     
    UserName=WshNet.username
    ServeurExchange="srv_intra"
     
     
    ' Config Outlook
    If objfs.fileexists(WshShell.ExpandEnvironmentStrings("%systemroot%")+"\fonts\outlook.ttf") Then
      TestCle=WshShell.RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"+username+"\0a0d020000000000c000000000000046\000b0340")
      If Err.number<>0 Then
        Err.clear
        ProfileOutlook=WshShell.ExpandEnvironmentStrings("%logonserver%")+"\NETLOGON\richProfile "+ServeurExchange+" "+ username+" "+ username
    '  msgbox(ProfileOutlook)
        wshShell.run ProfileOutlook,,true
     
    'Affectation du cache local
        arrValues = Array(132,5,0,0)
        CleReg="Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"+username+"\13dbb0c8aa05101a9bb000aa002fc45a"
        objRegistry.SetBinaryValue HKEY_CURRENT_USER, CleReg, "00036601", arrValues
     
      Else
        wscript.echo "Le profile outlook existe!"
      End If
    else
      wscript.echo "Pas de outlook"
    End IF
    Si je supprime les "else" est ce que cela permettra de ne pas avoir a cliquer sur ok?

    Car c'est embétant pour les utilisateurs qu'a chaque ouverture de session doivent cliquer sur ok.


    Merci part avance...

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    oui supprime ces 2 lignes :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    Else
        wscript.echo "Le profile outlook existe!"
    c'est bien ce message .. que voient tes utilisateurs ?

  3. #3
    Membre à l'essai
    Profil pro
    Inscrit en
    Février 2007
    Messages
    4
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 4
    Par défaut
    Oui c'est bien ce message...

    Merci beaucoup.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 16/11/2012, 10h05
  2. Interop.Word Désactiver messages de confirmation
    Par the java lover dans le forum C#
    Réponses: 1
    Dernier message: 14/01/2010, 10h27
  3. Réponses: 2
    Dernier message: 23/02/2009, 22h30
  4. [Access 2003] Désactivation des messages de confirmation
    Par Kropernic dans le forum VBA Access
    Réponses: 3
    Dernier message: 04/08/2008, 16h42
  5. désactivation des messages de confirmation
    Par Lison dans le forum Access
    Réponses: 1
    Dernier message: 08/08/2006, 17h29

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo