Start Menu Script Problem

[phillipmillward]

I have been trying to write a script to copy a startmenu to the local drive of a machine from a network share but i need to do it on a room basis.

 

For example

 

If computername begins with A16 then copy a certain start menu from the server

 

Hop someone can help

 

Phil

[6Foot2]

I am not 100% sure this will work, as I am just about to try something similar myself, but why not use a GPO in Active Directory?

 

If the computer A16???? is in the A16 OU, for example, edit the GPO for that OU (or create on if it is not already there) go to User Configuration/Windows Settings/Folder Redirection/Start Menu. Right click the Start Menu folder icon.

 

Select setting: 'Basic - Redirect everyone's folder to the same location.

 

Target folder location: 'Redirect to the following location'

 

Root path: Specify a path where the items can be copied from (e.g: \\servername.domain.local\SYSVOL\Common Folders\Start Menus\My A16 Start Menu Items

 

It should work. I am successfully redirecting other items this way. If it doesn't it can easily be undone.

[phillipmillward]

The reason that i want to redirect the start menu to a local folder on the machine is so that it runs quicker becuase at the moment it takes a while for the start menu to become useable

[ChrisH]

You want a start up script to copy the start menus to the local machine. You then want to ise the GPO as suggested above to redirect everybodys start menus to something like c:\startmenus\students.

[mac_shinobi]

' ------------------------------------------

' Retrieve OU that the computer resides in -

' ------------------------------------------

 

dim filesys

set filesys=CreateObject("Scripting.FileSystemObject")

 

Dim adstring

adstring = CreateObject("ADSystemInfo").ComputerName

 

Dim oubits

oubits = split(adstring, ",")

 

Dim ou

ou = split(oubits(1), "=")

 

Select Case ou(1)

 

Case "ROOM_NAME"

 

If filesys.FolderExists("c:\sourcefolder\website") Then

filesys.CopyFolder "c:\sourcefolder\website", "c:\destfolder\"

End If

 

End Select

 

'-----------------

 

 

obviously if you want more or have more rooms, just create more case statements with the relevant code chunks , I just did one above as an example and obviously insert the room name inside the quotes of the case.

 

You will have to alter the directory paths for the source and destination of where the start menu folder is. If you just want to copy a file then that will be different.

 

Hope this helps

 

*NOTE* --> However I do recomend you listen to the other suggestion with regards to using GPO and not a vbscript