[Summary view] [Print] [Text view]

   1  ' D'après le script rejoin_se3_XP.vbs de:
   2  ' Sandrine Dangreville matice creteil
   3  ' Il s'agit de rejoindre un groupe de travail 'XXX'
   4  ' Stephane Boireau AS Bernay/Pont-Audemer (27)
   5  ' 26 juillet 2005
   6  
   7  'Option Explicit
   8  Dim oWsh 'Windows Script Host Shell object
   9  
  10  Set oWsh = CreateObject("WScript.Shell")
  11  Set oWshEnvironment = oWsh.Environment("Process")
  12  Set oWshnet= Wscript.CreateObject("WScript.Network")
  13  
  14  strComputer = "."
  15  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  16  Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
  17  For Each objComputer in colCompSystems
  18      intunjoindomain=objComputer.JoinDomainOrWorkgroup("test","","",0)
  19  next
  20  
  21  ' Est-ce que cela fonctionne aussi sous WNT/2K?