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 :

lancement de programme sur serveur distant


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Juin 2009
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : Juin 2009
    Messages : 10
    Par défaut lancement de programme sur serveur distant
    Bonjour à tous

    j'ai mis une petite console d'administration personnalisé qui ouvre des mmc.
    Cette console fonctionne parfaitement en local.
    J'ai essayé de la lancer à partir d'un poste admin général qui gererait l'ensemble des serveurs mais elle ne fonctionne plus.
    voici le code...
    --------------8<----------------------
    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
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    Option Explicit 
     
    Dim objmenu, servername, username, wshshell, fso
    Set WshShell = WScript.CreateObject("WScript.Shell") 
    Set fso = CreateObject("Scripting.FileSystemObject")
     
    'insertion du nom du serveur
    servername=InputBox("Enter your server name(servername or IP)", "Enter Servername")
    'insertion username
    Username = InputBox("Enter your admin username (domain\username)", "Enter Username")
     
     
    'create an object from the gui_menu class 
    Set objmenu = New gui_menu 
    'start the application 
    objmenu.getInput 
     
    Class gui_menu 
        private Input, quit, strText, cmd, arrMenu, i, return, strProg 
     
        Private Sub pickInput 
            'if you add anything to the menu array below, make sure you add a corresponding entry here 
            Select Case Input 
                Case "1" 
                    cmd = " ""mmc %windir%\system32\compmgmt.msc""" 
                    startProg cmd 
                    getInput 
                Case "2" 
                    cmd = " ""mmc %windir%\system32\dsa.msc""" 
                    startProg cmd 
                    getInput 
                Case "3" 
                    cmd = " ""mmc %windir%\system32\tsmmc.msc""" 
                    startProg cmd 
                    getInput 
                Case "4" 
                    cmd = " %comspec%" 
                    startProg cmd 
                    getInput 
                Case "5" 
                    cmd = " ""mmc C:\Program Files\Microsoft SQL Server\80\Tools\Binn\SQL Server Enterprise Manager.MSC""" 
                    startProg cmd 
                    getInput 
                Case "6" 
                    strProg = InputBox("Input the full path to the program", "User Defined") 
                    If fso.FileExists(strProg) then 
                        cmd = " """ & strProg & """" 
                        startProg cmd 
                        getInput 
                    Else 
                        strProg = MsgBox("File doesn't exist, try again!",48,"Error!!") 
                        getInput 
                    End if 
                Case "7" 
                    quit = MsgBox ("Are you sure?", 36, "Want To quit?")'52 
                    If quit = 6 Then 
                        MsgBox ("Bye!!") 
                        WScript.Quit 
                    Else 
                        getInput 
                    End If 
                    Case "" 
                    quit = MsgBox ("Are you sure?", 36, "Want To quit?")'52 
                    If quit = 6 Then 
                        MsgBox ("Merci d'avoir utilisé ce portail!!") 
                        WScript.Quit 
                    Else 
                        getInput 
                    End If 
                Case Else 
                    MsgBox ("That is an incorrect entry, try again") 
                    getInput 
            End Select 
        End Sub 'pickInput 
     
        Public sub getInput 
            'add any menu names you want in this array, make sure you adjust the select/case in pickInput() accordingly 
            arrMenu = Array("Computer Management","DSA","RemoteDesktop","Command Prompt","SQL Admin","User Defined","Quit or click Cancel") 
            strText = "Enter selection below." & vbNewLine 
            'build the menu 
            For i = 1 To (UBound(arrMenu) + 1) 
                strText = strText & i & ". " & arrMenu(i - 1) & vbNewLine 
            Next 
            Input = InputBox(strText, "Make your selection") 
            pickInput 
        End sub 'getInput 
     
        Private Sub startProg(cmd) 
            return = WshShell.Run("%windir%\system32\runas.exe /savecred /user:" & username & cmd, 1, False) 
        End Sub 'startProg 
    End Class 'gui_menu
    ---------------------------------8<----------------------- fin du script

    L'objectif annoncé etant d'ouvrir les consoles MMC par rapport au nom de serveur insérer en haut de page mais je n'ai pas reussi à l'inserer en tant que variable ((...

    Si nous resolvons ce probleme, cette console sera insérée dans les outils du site.

    Merci de votre aide

    Alexis
    le cancer de la programmation , C'est moi

  2. #2
    Membre habitué
    Homme Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Juin 2009
    Messages
    10
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux
    Secteur : High Tech - Produits et services télécom et Internet

    Informations forums :
    Inscription : Juin 2009
    Messages : 10
    Par défaut Suite
    N'ayant pas trouvé de solution j'ai essayé d'inclure le nom du serveur dans un fichier CSV que j'ai ajouté en tete de mon script au dessus
    Voici le résultat:

    -----------8<-------------
    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
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
     
    Dim objmenu, servername, Username, wshshell, fso, fsserver, df1
    Set WshShell = WScript.CreateObject("WScript.Shell") 
    Set fso = CreateObject("Scripting.FileSystemObject")
     
    'insertion nom du serveur grace à un fichier csv
    CSVFile = "servername.csv"
     
    Set fsserver = CreateObject("Scripting.FileSystemObject")
    Set df1 = fso.OpenTextFile(CSVFile,ForReading,True)
     
    'on error resume next
    Do while Not df1.AtEndOfStream
    varLigne = df1.readline()
    ServerName = split(varLigne,";")(0)
     
    -----bla bla bla---
    'insertion de la variable
     
     
    'insertion username
    Username = InputBox("Enter your username(Domain\login)", "Enter Username")
     
     
    'create an object from the gui_menu class 
    Set objmenu = New gui_menu 
    'start the application 
    objmenu.getInput 
     
    Class gui_menu 
        private Input, quit, strText, cmd, arrMenu, i, return, strProg 
     
        Private Sub pickInput 
            'if you add anything to the menu array below, make sure you add a corresponding entry here 
            Select Case Input 
                Case "1" 
                    cmd = " "" &servername \%windir%\system32\compmgmt.msc"""
                    startProg cmd
                    getInput

    -------------------8<---------------------------

    Hélas pour moi j'ai une erreur qui ne me permet plus d'ouvrir mon vbs qu'avec la commande CMD afin d'obtenir l'erreur.
    Je cale un peu
    Merci de votre soutient

Discussions similaires

  1. Executer programme sur serveur distant en FTP
    Par blepharocyte dans le forum Windows 7
    Réponses: 3
    Dernier message: 08/02/2011, 22h04
  2. SSH invoquer application graphique sur serveur distant
    Par knecmotet dans le forum Réseau
    Réponses: 7
    Dernier message: 07/09/2008, 19h33
  3. Créer un dossier sur serveur distant
    Par TorÕ02 dans le forum C++
    Réponses: 7
    Dernier message: 11/10/2004, 17h30
  4. [Sybase] Accès Table sur serveur distant
    Par MashiMaro dans le forum Sybase
    Réponses: 5
    Dernier message: 11/02/2004, 14h09
  5. jsp sur serveur distant
    Par petitelulu dans le forum JBuilder
    Réponses: 5
    Dernier message: 11/09/2003, 11h50

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