mouais, c'est pas propre, et ça bouffe du processus tout ça
un petit VBScript (modifié ), un raccourci dans le menu Démarrer/All users, et basta :
Citation :
strComputer = "." Set WSHShell = WScript.CreateObject("WScript.Network" ) NOM = WSHShell.ComputerName Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" ) Set IPConfigSet = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE" ) For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) MsgBox "Nom de l'ordinateur : " & NOM & vbCrLf & "IP :" & IPConfig.IPAddress(i), vbOk + vbInformation, "Informations" Next End If Next
|
tes utilisateurs n'auront plus qu'à cliquer sur la commande pour la lancer, et paf ! (non pas de chocapic le soir )
Message édité par bardiel le 27-02-2010 à 20:14:50
---------------
Grippe ? Coronavirus ? Portez votre masque correctement ! :D