[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  'Set nomWorkgroup = "test"
  15  
  16  strComputer = "."
  17  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
  18  Set colCompSystems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
  19  For Each objComputer in colCompSystems
  20      'intunjoindomain=objComputer.JoinDomainOrWorkgroup(nomWorkgroup,"","",0)
  21      intunjoindomain=objComputer.JoinDomainOrWorkgroup("test","","",0)
  22  next
  23