'==========================================================================
'
' NAME: Create AD Search Shortcut.vbs
'
' AUTHOR: Scott Bradshaw, MCSE, MCDBA, MCT
' DATE  : 5/14/2002
'
' COMMENT: Creates a shortcut on the desktop that opens a window to search AD.
'
'==========================================================================

Set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oShellLink = WshShell.CreateShortcut(strDesktop & "\Search Active Directory.lnk")
oShellLink.IconLocation = "%systemroot%\system32\dsadmin.dll ,0"
oShellLink.TargetPath = "%systemroot%\system32\rundll32.exe"
oShellLink.Arguments = "dsQuery,OpenQueryWindow"
oShellLink.Description = "Search Active Directory"
oShellLink.Save