[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 supprimer le compte adminse3
   4  ' Stephane Boireau AS Bernay/Pont-Audemer (27)
   5  ' 08 juillet 2005
   6  
   7  'Option Explicit
   8  Dim oWsh 'Windows Script Host Shell object
   9  Dim oWshEnvironment 'Windows Script Host environment object
  10  
  11  Dim OpSysSet, OpSys
  12  Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
  13  For Each OpSys In OpSysSet
  14      OpSys.Reboot()
  15  Next
  16  WScript.Quit