Dim netw, nomordi, message,wmiservice, wmiitem, item, adresseip, netip, mess, suite, messa, suite2

MsgBox "Ce script permet d'avoir différents détails sur différentes configurations.", vbInformation

Set netw = CreateObject("WScript.Network")

MsgBox "Nom de l'ordinateur : " & netw.ComputerName & vbcrlf & "Nom de domaine de l'utilisateur : "& netw.UserDomain & vbcrlf & "Nom de l'utilisateur : " & netw.UserName, vbInformation, "Configuration générale"




nomordi = "."     'ordinateur local 
Set wmiservice = GetObject("winmgmts:\\" & nomordi)   'protocole d'accès + nom de l'ordinateur cible pour pouvoir afficher les informations demandées

Set wmiitem = wmiservice.InstancesOf("Win32_LogicalMemoryConfiguration")   'InstancesOf retourne toutes les instances de la ressource identifiée par son nom de classe sous la forme d'une collection d'objets 

For Each item In wmiitem
With item
mess = .Caption & vbcrlf
mess = mess & .Name & vbcrlf & vbcrlf
mess = mess & "Mémoire physique : " & .TotalPhysicalMemory & " kb " & vbcrlf
mess = mess & "Mémoire virtuelle disponible : " & .AvailableVirtualMemory & " kb "
End With
'affiche la configuration mémoire de l'ordinateur

Next

suite = MsgBox("" & mess &vbCrlf&vbcrlf& "Voulez-vous continuer ?", vbInformation+vbYesNo, "Informations sur la mémoire")
if suite=6 Then

Set wmiitem = wmiservice.InstancesOf("Win32_Service")     'pour connaitre la liste des services systèmes disponibles, leur état et leur mode de démarrage

messa = ""
For Each item In wmiitem
With item
messa = messa & .DisplayName & " :  Etat " & .State & ";  Démarrage " & .StartMode & vbcrlf
End With
Next

suite2 = MsgBox(""& messa &vbCrlf&vbcrlf& "Voulez-vous continuer ?", vbInformation+vbYesNo, "Services disponibles")
if suite2=6 Then


Set wmiitem = wmiservice.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")   'se focalise sur les connexions sur lesquelles TCP/IP est actifs.

For Each item In wmiitem      'pour chaque ... dans...
With item
message = message & "Adaptateur réseau :" & .Index & " "
message = message & .Description & vbcrlf
message = message & "Adresse(s) IP : "&vbcrlf
For Each adresseip In .IPAddress
message = message & "    " & adresseip & vbcrlf
Next
message = message & "Masques de sous-réseau :"
For Each netip In .IPSubnet
message = message & "    " & netip & vbcrlf
Next
message = message & "DHCP activé = " & .DHCPEnabled & vbcrlf & vbcrlf
End With
Next
MsgBox "" & message,vbInformation ,"Propriétés IP"

'informations sur les adresses IP du poste, les masques de sous-réseau et sur l'activation du DHCP(serveur)

Else
End if
End if