Local Accounts and Windows NT 4.0 Accounts

Groups

Delete Users from a Local Group








' Delete Users from 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.Remove(objUser.ADsPath)
Next



search for scripts

VbsEdit contains all these sample scripts!

Download Now!