Scripts Thread, Start Menu Script Needed in Coding and Web Development; Having been having trouble with Windows 7 Start Menu Redirection, I even created a new policy (No other ones running) ...
15th January 2010, 01:31 PM #1
Start Menu Script Needed
Having been having trouble with Windows 7 Start Menu Redirection, I even created a new policy (No other ones running) justt with Desktop and start menu redirection. Works in XP fine but soon has I use Windows 7 and soon has I try to use shorcuts that are redirected from the server, the programe does not start up. Its fine lanching shorcuts that are on the actual hard drive.
So need a script made
Would like one that looks at the computer name ie
Star means it does anything after that, gussing you know that
Once it finds the computer name it copys a set of shorcuts over, for example, ICT would have a set of shorcuts called ICT Start Menu. These shorcuts would be different than the COMM Room, has it has different software on these computers
Thanks in advance
IDG Tech News
15th January 2010, 01:50 PM #2
This code probably wont work straight off as I just pasted a few of my scripts together and I am in a rush.
It assumes your different startmenus are stored like:
It grabs the first 4 letters of the comp name to identify. There is stuff from other scripts that is not needed but it should be a start.
In a GPO redirect start menus to c:\StartMenus
' Begin Variable declaration
Set ObjShell = CreateObject("Shell.Application")
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = CreateObject("WScript.Network")
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
'Begin Constant Declaration
Const Robo_Options = "/e /zb /copyall /r:3 /w:1 /purge"
Const Start_Menu_Source = "\\server\share\apps\StartMenus\"
Const Start_Menu_Destination = "C:\StartMenus"
'Begin Object Declaration
Set ObjShell = CreateObject("WScript.Shell")
StrComputerName = Left(LCase(WshNetwork.ComputerName),4)
Select Case (Left(StrComputerName, 4))
strStartMenuPath = Start_Menu_Source & "ict1"
strStartMenuPath = Start_Menu_Source & "ict2"
strStartMenuPath = Start_Menu_Source & "comm"
' WScript.Echo "No default printers added"
End Select 'End printer Case Statements
'If the folder StartMenus Exists then Delete it
If objFSO.FolderExists(Start_Menu_Destination) Then
'Copy the folder StartMenus from the network share
By projector1 in forum Scripts
Last Post: 12th March 2008, 10:55 AM
By Andi in forum Network and Classroom Management
Last Post: 5th December 2007, 02:48 PM
Last Post: 18th October 2007, 05:48 PM
By FN-GM in forum Scripts
Last Post: 17th October 2007, 06:33 PM
By phillipmillward in forum Windows
Last Post: 23rd November 2006, 09:50 AM
Users Browsing this Thread
There are currently 1 users browsing this thread. (0 members and 1 guests)