' Add Users to a Local Group



strComputer = "atl-ws-01"
strGroup = "Administrators"
arrUsers = Array("kenmyer", "adambarr", "lewjudy")
Set objGroup = GetObject("WinNT://" & strComputer & "/" & strGroup & ",group")
For Each strUser In arrUsers
  Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser & ",user")
  objGroup.Add(objUser.ADsPath)
Next
search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft