WINADMIN - GESTION ET ADMINISTRATION RÉSEAU
nah666
Messages postés
75
Date d'inscription
samedi 30 août 2003
Statut
Membre
Dernière intervention
7 janvier 2008
-
27 janv. 2005 à 09:41
COlive Messages postés 91 Date d'inscription mercredi 27 février 2002 Statut Membre Dernière intervention 3 décembre 2011 - 20 déc. 2007 à 19:22
COlive Messages postés 91 Date d'inscription mercredi 27 février 2002 Statut Membre Dernière intervention 3 décembre 2011 - 20 déc. 2007 à 19:22
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/29091-winadmin-gestion-et-administration-reseau
https://codes-sources.commentcamarche.net/source/29091-winadmin-gestion-et-administration-reseau
20 déc. 2007 à 19:22
Mais aujourd'hui, j'ai basculer sur une autre vision
pour administrer mon parc.
J'ai créé un nouveau soft relié à une base de donnée acces en parralèle, qui me permet de gérer entierement mon parc, d'avoir un inventaire crée automatiquement de mes stations, leurs configs, les utilisateurs / groupes, et même les logiciels installés sur chaques stations.
Je n'ai pas encore diffusé la source, je me dois de l'épurer et enlever les informations confifentielles du code source (les commentaires qui m'ont servi à debugger / développer contiennent des infos de mon parc lol)
20 déc. 2007 à 09:34
19 avril 2006 à 14:40
Je suis en train de concocter un autre soft du m^me genre mais en vb.net 2005.
16 déc. 2005 à 16:42
20 juil. 2005 à 14:12
10 mars 2005 à 21:36
14 févr. 2005 à 10:26
Dim i, j as integer = 0
Dim str_string As String = "winmgmts:\" & str_IpDistant & "\root\cimv2"
Dim objWMI As Object
Dim IPConfig As Object
objWMI = GetObject(str_string)
Dim IPConfigSet As Object
IPConfigSet = objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
Dim h As Integer
For Each IPConfig In IPConfigSet
If Not (IPConfig.IPAddress) Is Nothing Then
For j = LBound(IPConfig.MACAddress) To UBound(IPConfig.MACAddress)
tableau(i) = IPConfig.MACAddress(j)
i = (i + 1)
Next
End If
Next
14 févr. 2005 à 09:36
ping NOMDEMACHINE
arp -a IPDEMACHINE > "c:\macadr.txt"
Voilà c tout :)
4 févr. 2005 à 08:26
31 janv. 2005 à 15:40
ça donne une vu rapide du parc et des possibilitées offertent par les bibliothéques AD.
hmmm manque juste à digerer le code... ^^
27 janv. 2005 à 19:30
10/10
27 janv. 2005 à 09:41
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
lpParameters = les parametres :p