Users/Groups Delete Disabled Users Delete Disabled Users Enum. Users Enum. Users Delete Users Add Users Enum. Groups Enum. Groups Change Groups Add Group Active Directory Enum. AD Groups Enum. AD Users List AD Users w/Prop Join AD Users NIC/IP Addresses Get IP Addresses Get IP Addresses Backup and Restore IP's Add IP's NIC Settings OS/Hardware OS Info Script OS Info Script All OS Info Script All OS System Count Hardware Info Script Hardware Info Script #1 Hardware Info Script #2 CPU Settings Enum. Printers Disk Quotas Disable Disk Quota Enable Disk Quota Disk Quota Query Disk Quota Update Shares/Files/Sessions Enum. Shares Enum. Shares Enum. All Shares Enum. Open Files Enum. Open Files Enum. Open Sessions Others Servers Uptime DNS Stuff Services Enum Services Enum Enum Processes Enum Hot Fixes MS FTP Server FTP VD Query FTP VD Delete FTP Site Enum. MS WWW Server WWW Site Enum. Enum Mime Types Enum Mime Types Application Pools Application Pool Enum Application Pool Enum Create Application Pool Create Application Pool Delete Application Pool Enum Apps in App Pool Enum App Pool Settings Move Apps Between App Pools Others IIS Component Probe IIS Status Enum SQL Dbases Backup SQL Dbases Orphan SQL Users List AD/WG My AD/WG Name My PC Name Enum AD Computers Contact Us Form SM Login Form Code Imail Login Form Code Enum. Domains in Imail Enum. Users in Imail CDONTS Component CDOSYS Component SA SMTP Component App Pool Monitor Ping and Tracert Hard Drive Monitoring Uptime Monitoring Desktop Lock CD Key Revealer MIK Restarter Site Map About the Site RSS Feeds I Read Custom Scripts Visitor #:     windowsadminscripts.com www     Script: Change Groups This script will move users from one group to another group. If the group you are moving users to does not exist it will create the group for you. You will also have the option to delete the group you are moving the users from. '************************************************************* ' Script Witten by Larry Heintz ' March 2006 www.windowsadminscripts.com ' This script will move users from one group to another group. ' If the group you are moving users to does not exist it will ' create the group for you. You will also have the option to ' delete the group you are moving the users from. '************************************************************* Dim objStdOut,objStdIn,computername,oldgroup,newgroup Set objStdOut = Wscript.stdOut Set objStdIn = Wscript.stdIn 'Gets Computer Name objStdOut.write "Computer Name to Move Users From:" computername = trim(objStdIn.ReadLine) if len(computername) = 0 then wscript.echo "** Script failed due to no Computer Name being entered. Please start script over again." objStdOut.close objStdIn.close set objStdOut = nothing set objStdIn = nothing wscript.quit else computername = computername end if 'Gets Old Group Name objStdOut.write "Old Group Name to Move Users From:" oldgroup = trim(objStdIn.ReadLine) if len(oldgroup) = 0 then wscript.echo "** Script failed due to no Group Name being entered. Please start script over again." objStdOut.close objStdIn.close set objStdOut = nothing set objStdIn = nothing wscript.quit else oldgroup = lcase(oldgroup) end if 'Gets New Group Name objStdOut.write "New Group Name to Move Users To:" newgroup = trim(objStdIn.ReadLine) if len(newgroup) = 0 then wscript.echo "** Script failed due to no Group Name being entered. Please start script over again." objStdOut.close objStdIn.close set objStdOut = nothing set objStdIn = nothing wscript.quit else newgroup = lcase(newgroup) end if wscript.echo "" Call OldGroupEx() Call deleteOldGroup() Sub OldGroupEx() Call groupArray() if instr(groupArray(),lcase(oldgroup)) <> 0 then ' Old Group exists check to see if new one does Call NewGroupEx() else wscript.echo "** Script failed due to " & ucase(oldgroup) & " Group not existing on " & ucase(computername) & " **" objStdOut.close objStdIn.close set objStdOut = nothing set objStdIn = nothing wscript.quit end if End Sub Sub NewGroupEx() if instr(groupArray(),lcase(newgroup)) <> 0 then ' Group Exists now get users Call enumOldGroupUsers() else ' Group Doesnt Exists lets create it Call createGroup() ' Group Exists now get users Call enumOldGroupUsers() end if End Sub Sub deleteOldGroup() ' Deletes group if reply is Y objStdOut.write "Delete " & ucase(oldgroup) & " Group (Y/N):" delgroup = trim(objStdIn.ReadLine) if ucase(delgroup) = "N" then wscript.echo "** Group " & ucase(oldgroup) & " will not be deleted from " & ucase(computername) & " **" objStdOut.close objStdIn.close set objStdOut = nothing set objStdIn = nothing wscript.quit elseif ucase(delgroup) = "Y" then Set group = GetObject("WinNT://" & computername) call group.delete("Group",oldgroup) Set group = nothing wscript.echo "** Group " & ucase(oldgroup) & " has been deleted from " & ucase(computername) & " **" objStdOut.close objStdIn.close set objStdOut = nothing set objStdIn = nothing wscript.quit end if End Sub Function createGroup() ' Creates group if it does not already exist Set Container = GetObject("WinNT://" & computername) Set Group = Container.Create("Group", newgroup) Group.SetInfo Set Group = nothing Set Container = nothing wscript.echo "The Group " & ucase(newgroup) & " has been created on " & ucase(computername) & "." End Function Function changeGroup(username) ' Changes group user is in Set User = GetObject("WinNT://" & computername & "/" & username & ",User") Set Group = GetObject("WinNT://" & computername & "/" & newgroup & ",Group") Group.Add(User.ADsPath) Group.SetInfo set User = nothing set Group = nothing wscript.echo username & " --> " & newgroup End Function Function enumOldGroupUsers() ' Gets all users in group and then calls function to change group Set group = GetObject("WinNT://" & computername & "/" & oldgroup & ",group") for each member in group.members changeGroup(member.name) next Set group = nothing wscript.echo "All users have been moved to " & ucase(newgroup) End Function Function groupArray() ' Gets all groups on computer and add them to array Set Container = GetObject("WinNT://" & computername) container.filter = Array("group") For Each group in Container groupArray = groupArray + lcase(group.name) & "," Next Set Container = nothing End Function Click HERE to download the VB Script. Copyright 2006 WindowsAdminScripts.com all rights reserved.