Computer Performance, Windows 2003, Exchange 2003, Logon Scripts

Guy recommends :
Free Solarwinds
VM Console

Solarwinds VM Console Free Download

Find out which of your VMs are a waste of space and which VMs need more resources.
Custom Search

Guy recommends:
Free network monitor

Solarwinds Network Device Monitor

Solarwinds' free monitor makes it easy to check the performance and health of a router or firewall.

Download your free Network Device Monitor

Guy's Review of
Computer Utilities

 1) FreePing
 2) Engineer's Toolset
 3) Xobni
 4) PuTTY
 5) WMI Monitor
 6) BgInfo
 7) Net-SNMP
 8) IP Address Tracker
 9) DNS Stuff
10) WinDiff Compare

VBScript - Simple script to create computers

VBScript to create computer accounts

Note1 : I have a new script to create a computer.

Note 2: I have a VBScript to create a computer from an Excel Spreadsheet

 ♦

VBScript Create Computer Accounts

What the script does is to connect to Active Directory, then create a XPSimple in the 'Computer' container. 

GetObject connects to ("LDAP://rootDSE") that is why the script will work on any domain.  Then it extracts the domain name ("defaultNamingContext") and builds the path to the "Computer" container.

' VBScript to create one computer
' Guy Thomas January 2003

strComputer = "XPSimple"

Set objRootDSE = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://cn=Computers," & _
objRootDSE.Get("defaultNamingContext"))

Set objLeaf = objContainer.Create("Computer", "cn=" & strComputer)
objLeaf.Put "sAMAccountName", strComputer & "$"
objLeaf.Put "userAccountControl", 4096
objLeaf.SetInfo

Learning Points

  • UserAccountControl 512 is Enabled,  514 is disabled.
  • strComputer is a string variable for the name of the computer.  Feel free to change strComputer = "XPSimple" to a different computer name.
  • Even though this is a computer object, it still needs the sAMAccountName.

And then the script developed into this monster!

Goals for the 'Monster Script'

I decided I wanted the script to create machine accounts, not in the 'Computer' container, but an OU of my choice.

One computer was not enough, I wanted to make 10 (or more).

' VBScript
' Created by Guy Thomas January 2003
' Script to create ten computers in strOU

Option Explicit
Dim objLeaf, objRootDSE, objDomain, objOU, objComputer
Dim strXPStation, strOU, strSam, strDomain
Dim intComputerNum

strXPStation = "XPMachine"
strOU = "Accounts"
strSam = "sAMAccountName"


' Get Domain name from RootDSE object.
Set objRootDSE = GetObject("LDAP://RootDSE")
strDomain = objRootDSE.Get("DefaultNamingContext")

' Create OU = strOU
Set objDomain = GetObject("LDAP://" &strDomain )
Set objOU = objDomain.Create("organizationalUnit", "ou=" & strOU)
objOU.SetInfo


' Create Computers
For intComputerNum = 1 To 10
Set objLeaf = objOU.Create("Computer", "cn=" & StrXPStation & intComputerNum)
objLeaf.Put strSam, strXPStation & intComputerNum & "$"

' 512 means Enable the Account
objLeaf.Put "userAccountControl",512
objLeaf.SetInfo

objLeaf.SetInfo
Next
intComputerNum = intComputerNum -1
WScript.Echo intComputerNum & " Machines created in " & strOU & " OU"
WScript.Quit

Guy Recommends:  Solarwinds' Free Bulk Import ToolFree Download Bulk Import Tool

Import users from a spreadsheet.  Just provide a list of the users with their fields in the top row, and save as .csv file.  Then launch this FREE utility and match your fields with AD's attributes, click and import the users.  Optionally, you can provide the name of the OU where the new accounts will be born.

There are also two bonus tools in the free download, and all 3 have been approved by Microsoft:

  1. Bulk-import new users into Active Directory.
  2. Seek and zap unwanted user accounts.
  3. Find inactive computers.

Download your FREE bulk import tool.

Note1 : I have a new script to create a computer.

Note 2: I have a VBScript to create a computer from an Excel Spreadsheet

Learning Points

  • This script creates an OU that you specify with the strOU.  So feel free to alter strOU = "Accounts" to another name.
  • The 'For ...... Next' loop is responsible for making multiple machines, each with a different digit at the end of the XPMachine name.


Download your eBook:  How to create users with a VBScript- only $6.25

How to create users with a VBScriptSave hours of frustration and buy Guy's eBook.  The features include: detailed examples on how to import LDAP properties from a spreadsheet, Do...Loop Until  explained, connect to your domain with RootDSE.

You get a printer friendly version with copy enabled, and no expiry date.

 

See Also

 *

Custom Search

Guy Recommends: WMI Monitor and It's Free!Solarwinds WMI Monitor

Windows Management Instrumentation (WMI) is one of the hidden treasures of Microsoft operating systems.

Fortunately, Solarwinds have created the Free WMI Monitor so that you can actually see and understand these gems of performance information.  Take the guess work out of which WMI counters to use for applications like Microsoft Active Directory, SQL or Exchange Server.

Download your free copy of WMI Monitor

 

Home Copyright © 1999-2012 Computer Performance LTD All rights reserved

Please report a broken link, or an error.