WINADMIN - GESTION RÉSEAU LOCAL

Commentaire de thierrydelepine le 10/01/2005 21:03:15

ca a l'air sympa, je le testerai.
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é.

Commentaire de kmachrafi le 11/01/2005 11:58:33

C'est super. Bravo

Commentaire de thierrydelepine le 11/01/2005 15:44:45

pour demarrer un service et ces dependances

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

Commentaire de Jackboy le 11/01/2005 20:19:42

bien moi j'ai teste, je trouve que les possibilité sont la mais manque un peu de contenu, j'ai tanté d'envoyer un message ou rebooter une machine et sans succes... jai tanté un remote sur un poste et impossible d'avoir acces.. bon bien bonne continuité

Commentaire de COlive le 26/01/2005 09:28:49

Je cherche de l'aide pour passer cette source en vB net.
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)

Commentaire de COlive le 20/07/2005 15:23:26

je ne travaille plus sur cette source mais sur celle en .net qui offre beaucoup plus de fonctionalité, pour le registre distant, ainsi que d'autre fonction système.

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

Commentaire de morpheus22170 le 22/12/2006 23:16:57

Ton code a l'air intéressant malheureusement dans le zip, il n' y a que le fichier .vbp. j'utilise visual studio .net et il me demande d'installer vb6. je voulais savoir s'il existe une version .net? merci de bien vouloir répondre.

Commentaire de COlive le 07/04/2007 00:37:33

Pourrais je savoir quel fichier ? et quel antivirus est utilisé ?
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).