Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
AD Computer move automation
Script to dump pcs to txt: Const ADS_SCOPE_SUBTREE = 2 Const ForAppending = 8 Dim fso Set fso = CreateObject("Scripting.FileSystemObject") Dim outFile Set outFile = fso.OpenTextFile("Computers_dump.txt", ForAppending, True) Set objADSysInfo = CreateObject("ADSystemInfo") Dim... -
AD Computer move automation
Hi I have a bit of a problem. I need to move all the computers in the default computers container in AD to an OU according to witch subnet they are located in in AD sites and services or according to IP address. At the moment I run a script to extract the computer names out of the default...
