digital-nation

' VBS 
strComputer = "." 'pour l ordinateur
Set WshShell = WScript.CreateObject("WScript.Shell")
' Set strComputer = WshShell.Environment("VOLATILE").Item("CLIENTNAME") 'pour environnement virtuel

Set objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colAdapters = objWMIService.ExecQuery _
   ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objAdapter in colAdapters
  If Not IsNull(objAdapter.DefaultIPGateway) Then
     For i = 0 To UBound(objAdapter.DefaultIPGateway)
        WScript.Echo "  Default gateway: " & objAdapter.DefaultIPGateway(i)
                If objAdapter.DefaultIPGateway(i) = "192.168.1.6" Then
                       WScript.Echo "Votre Gateway : " & DefaultIPGateway(i)
                End If
     Next
  End If
Next

Func _get_default_gateway()
    $output = _get_cmd_output("netstat -rn")
    $arr = StringSplit($output, "0.0.0.0", 1)
    $arr2 = StringStripWS($arr[3], 1)
    $arr2 = StringSplit($arr2, " ")
    Return $arr2[1]
EndFunc
Func _get_cmd_output($cmd)
    $cmd_timeout = 2000
    $pid = Run($cmd,@WorkingDir,@SW_HIDE,2)
    $timer = TimerInit()
    while (ProcessExists($pid))
        sleep(50)
        If TimerDiff($timer) > $cmd_timeout Then ProcessClose($pid)
    WEnd
    $output = StdoutRead($pid)
    Return StringStripCR($output)
EndFunc

Dim $i
$i = _get_default_gateway()
MsgBox(0, "","Votre passerelle : " & $i)

@ECHO OFF
CLS

ECHO ---------------------------------
ECHO Variables
ECHO ---------------------------------
ECHO Fichier : %~s0
ECHO Utilisateur : %1
ECHO (Vide au lancement du BATCH)
ECHO Password : %2
ECHO (Vide au lancement du BATCH)
PAUSE

WSCRIPT.EXE MSG.VBS %~s0

EXIT

' Passage de Variable BATCH VBS BATCH
' v0.3.19 (c) Groumphy


' Pose des variables
Dim Variable, UserName, Password, Executable

' Récupération du premier argument passé dans le VBS
' par le BATCH. Ligne de commande :
' WSCRIPT.EXE MSG.VBS Argument
Variable = wscript.arguments(0)

'Exposition de la variable récupérée
WScript.Echo "La variable est : " & Variable

' Demande du nom d'utilisateur par InputBox
UserName = InputBox("Quel est le nom d'utilisateur ?")

    ' Si le nom d'utilisateur est vide
    If IsNull(UserName) Then
        ' Message d'information d'erreur
        MsgBox "Erreur - Nom d'utilisateur incorrect."
    ' Sinon lancement de la suite de la procédure
    Else
        ' Demande du mot de passe par InputBox
        Password = InputBox("Quel est le mot de passe associé au nom d'utilisateur " & UserName)
        ' Si le mot de passe est vide
        If IsNull(Password) Then
            ' Message d'information d'erreur
            MsgBox "Erreur - Mot de passe incorrect."
        ' Sinon poursuite de la procédure
        Else
            ' Affichage de la variable, du nom d'utilisateur et du mot de passe
            WScript.Echo Variable & " " & UserName & " " & Password
            ' Définition de la variable en tant qu'objet du Shell
            Set Executable = CreateObject("WScript.Shell")
            ' Lancement de l'objet Shell contenant la variable, le nom
            ' d'utilisateur et le mot de passe
            Executable.Run Variable & " " & UserName & " " & Password
        End If
    End If

SET TEST=%1
IF NOT DEFINED TEST1 GOTO END

:END
EXIT