Set oWMI = GetObject("winmgmts:\\.\root\CIMV2") For each oItem In oWMI.ExecQuery("SELECT Domain FROM Win32_ComputerSystem",,48) sDomain = oItem.Domain Next Set oDomain = GetObject("WinNT://" & sDomain) oDomain.Filter = Array("Computer") For Each oItem In oDomain AddScheduledTask sDomain, oItem.Name Next Sub AddScheduledTask(Domain, ComputerName, User, Password) .... End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question