Discussion :

[padawandu77]

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

[padawandu77]

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