salut je cherche a recencer les PCs de tous les bureau et pour allez un peu plus vite je cherche a faire un programme en VBS a partir d'un bloc note windows.
 
Le princepe du programme serais d'afficher dans une boite de dialogue:
 
    - Le nom du poste ou le programme est lancer
 
    - L'adresse mac ou physique  
 
voilas en gros ce que ej cherche. Problemme je sais meme pas comment on fait apareitre une boite de dialogue toute bete...
 
en circonstance... HELP MEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
 
merci et @+

a y est je sais faire une msgbox mais je sais toujour pas comment recupérer l'adresse MAC d'un pc ni comment on recupére le nom du poste...  
 
si quelqu'un sait merci de m'aider @+

puree y a vraiment personne qui sait comment on recupere cette saletee de d'adresse physique avec VBS???

salut!
suis stagiaire en ce moment et je galère aussi avec vbs...
als je compatie..
je peux peut-etre t'aider pour récupérerle nom de la machine (je l'ai déjà réalisé)pour les @ pour le moment j'ai pas d'idée..
mon script affiche meme l'heure du système,l'os,et enregistre tout dans un fichier log
enfin tu verras
*******************************
'SCRIPT REALISE PAR OLIVIER LAROUE 27.01.05
 
'PARTIE 1 : AFFICHAGE INFORMATIONS  
'PARTIE 2 : CONSIGNATION DE LA CONNEXION DANS UN FICHIER LOG
'************************************
 
'PARTIE 1 : AFFICHAGE INFORMATIONS  
 
Set WshNetwork = WScript.CreateObject("WScript.Network" )
Set WshShell = WScript.CreateObject("WScript.Shell" )
Set WshSysEnv = WshShell.Environment("SYSTEM" )
       
 
Dim MyDate
MyDate = Date   ' MyDate contient la date système actuelle
 
Dim MyDate_heur
MyDate_heur = Now ' MyDate_heur contient la date et l'heure actuelles
 
Dim nom_machine
nom_machine = WshNetwork.ComputerName 'contient nom de la machine
 
Dim nom_user
nom_user = WshNetwork.UserName 'contient nom utilisateur
 
Dim vOS
vOS = WshSysEnv("OS" )  'contient version OS
 
Dim CheminComplet
CheminComplet = WScript.ScriptFullName
 
'Recuperation du nom de l'ordinateur ou se trouve le script
Dim regEx, Match, Matches  
Dim exp
exp = "\\\\\w*"
Set regEx = New RegExp
regEx.Pattern = exp
Set Matches = regEx.Execute(CheminComplet)  
For Each Match in Matches    
      RetStr = RetStr & Match.Value
   Next
   RegExpTest = RetStr
   
 
'affiche dans 1 boite de dialogue les infos demandées
 
Dim MyAffiche  
MyAffiche = MsgBox ("date & heure :" & MyDate_heur & Chr(10) & "nom machine :"  & nom_machine & Chr(10) & "nom utilisateur :" & nom_user & Chr(10) & "version OS :" & vOS & Chr(10) & "serveur : " & RegExpTest,0,"Informations réseaux" )
   ' MyAffiche contient 1 ou 2, en fonction du bouton sur lequel l'utilisateur a cliqué.
   
'******************************************
 
'PARTIE 2 : CONSIGNATION DE LA CONNEXION DANS UN FICHIER LOG
   
 'fonction qui crée et écrit ds 1 fichier txt (login.log)
 
   Sub CreateFile()
         Dim fso, tf
         Set fso = CreateObject("Scripting.FileSystemObject" )
  Set tf = fso.CreateTextFile("C:\Documents and Settings\licence\login.log", True)
 
         tf.Write  (MyDate_heur & Chr(13)& Chr(10)& nom_machine & Chr(13)& Chr(10) &nom_user &Chr(13)& Chr(10) )
         tf.Close
End Sub
CreateFile()
 
 
***************
moi j'ai un autre pb:
je cherche à récup des info dans un fichier txt
enfin tu peux regarder mon poste si t'as une idée.
voila

allez voir par là
 
http://www.vbfrance.com/code.aspx?id=6819

super je suis heureux d'avoir enfin une nouvelle. Ton code source est pas tout a fait ce que je chercher puisque j'ai eu de nouvelle instruction je doit demander le nom d'utilisateur a la personne qui execute le prog ca c'est fait. et je doit enregistrer les info dans un fichier text au nom corespondant au nom d'utilisateur.  
 
example je suis:
 
T.Tatampion  
 
le fichier sera
 
T.Tartampion.txt
 
Au fait ton prog un une petite erreur a la ligne
 
Set tf = fso.CreateTextFile("C:\Documents and Settings\licence\login.log", True)
 
mon pc trouve pas le chemin d'acces lol.
sinon y a pas l'adress mac du pc c'est domage c'est l'info la plus vital mais c'est deja un grand pas en avant merci beaucoup.
 Je corrige et je te remecie encore beaucoup.
@++

Stagiaire6
'---
Set wmobj = SetObject("WinMgmts:{impersonationLevel=impersonate}" )
 
 Set test = wmobj.ExecQuery("Select * from Win32_NetworkAdapter" )
 For Each valeur In test
 If Not valeur.MACAddress = vbNull Then
 MsgBox valeur.MACAddress
 End if
 Next
'---

Set wmobj = SetObject("WinMgmts:{impersonationLevel=impersonate}" )  
probleme d'objet a cette ligne mais merci quand meme et je regarde vite fait si c pas moi qui me suis plantage quelque par.. lol
@++ et merci