WINADMIN - GESTION RÉSEAU LOCAL
thierrydelepine
Messages postés
521
Date d'inscription
mardi 24 décembre 2002
Statut
Membre
Dernière intervention
11 septembre 2008
-
10 janv. 2005 à 21:03
COlive Messages postés 91 Date d'inscription mercredi 27 février 2002 Statut Membre Dernière intervention 3 décembre 2011 - 18 janv. 2008 à 16:37
COlive Messages postés 91 Date d'inscription mercredi 27 février 2002 Statut Membre Dernière intervention 3 décembre 2011 - 18 janv. 2008 à 16:37
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/28737-winadmin-gestion-reseau-local
https://codes-sources.commentcamarche.net/source/28737-winadmin-gestion-reseau-local
18 janv. 2008 à 16:37
Je ne travaille plus sur cette version.
Je suis dorénavant sur vb.net 2005.
La source correspondante en .net est ici :
http://www.vbfrance.com/codes/WINADMIN-GESTION-ADMINISTRATION-RESEAU_29091.aspx
Cordialement.
10 avril 2007 à 13:35
7 avril 2007 à 00:37
J'ai testé avec avast, et il n'a rien trouvé.
Morpheus22170 : ou il s'agit de Netadmin du meme auteur (de moi donc lol).
5 avril 2007 à 10:15
22 déc. 2006 à 23:16
13 sept. 2005 à 19:34
est ce que tu peux me donner le code pour bloquer les applications de windows sans que la votre soit ouvert par autorun merci!!!!!
20 juil. 2005 à 15:23
Pour l'installation distante il y a deux méthodes : lancer le processus distant pointant vers le fichier setup ou bien alors etudier le fichier setup pour pouvoir copier directement les fichier (exe, dll etc aux bon endroit et enregistrer les données dans le registre distant. La solution 2 est lourde, alors je travaille sur le lancement d'un setup distant, mais en .NET
9 juin 2005 à 20:45
S'il vous plaît, est-ce que vous avez completé le codede récupération des dossiers partagés, et savez-vous comment peut-on installer un logiciel à distance sur une autre machine?
26 janv. 2005 à 09:28
Les sujets me posant problèmes sont :
Accés à la base de registre distante en vb net
La copie de fichier sur poste distant
Arrêt un processus sur le poste distant (sans wmi qui ne passe pas a travers les firewall)
12 janv. 2005 à 15:19
Il faut les droits administrateurs sur toutes les stations a commander. Bref, même nom d'utilisatateur sur toutes les machines et même mot de passe et groupe administrateurs. En cas de domaine , il suffit d'être logger avec un compte administrateur sur une des stations du réseau.
Autre Information : l'envoi de message bloque depuis une certaine mise à jour de windows (je n'ai pas pu identifier laquelle.) Je remplacerai le net send par une autre fonction dès que possible. Cordialement.
11 janv. 2005 à 20:19
11 janv. 2005 à 19:08
11 janv. 2005 à 15:44
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='NetDDE'")
For each objService in colServiceList
errReturn = objService.StartService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='NetDDE'} Where " _
& "AssocClass=Win32_DependentService " & "Role=Dependent" )
For each objService in colServiceList
objService.StartService()
Next
pour stopper un service et ces dependances
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colServiceList = objWMIService.ExecQuery("Associators of " _
& "{Win32_Service.Name='NetDDE'} Where " _
& "AssocClass=Win32_DependentService " & "Role=Antecedent" )
For each objService in colServiceList
objService.StopService()
Next
Wscript.Sleep 20000
Set colServiceList = objWMIService.ExecQuery _
("Select * from Win32_Service where Name='NetDDE'")
For each objService in colServiceList
errReturn = objService.StopService()
Next
meme remarque que dans le poste precedent + il faut que WMI soit installé sur le poste distant pas fourni de base avec 98 et NT (il faut l'installer en le telechargant chez crosoft.
bonne prog
11 janv. 2005 à 15:40
pour tuer un process tu peut essayer ça :
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'Notepad.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
en remplacant strComputer "." par strComputer "NomMAchine"
NB: il ne faut pas de firewall sur le poste distant, il faut avoir des droits administrateurs sur le poste distant
11 janv. 2005 à 11:58
11 janv. 2005 à 09:56
10 janv. 2005 à 21:03
j'avais fait un code (LDAP active directory explorer) qui ressemble un peu au niveau code pas presentation.
ca a l'air interressant et ton code offre pas mal de possiblité.