Package\Script to copy files and folders to Client machine
I need help on creating some package or a script which i can deploy to client machines prefereably using Altiris which can add shortcuts to IE Favorites. any suggestions...
0 Comments
[ + ] Show comments
Answers (4)
Please log in to answer
Posted by:
karanmalhotra
17 years ago
I wish to add few links to favorites to all profiles on enterprise wide systems. I though there could be some package which can be installed for all users.
then finally i worked on a vbscript script... attaching the same in case some can suggest better...
' Add a Web Site to the Favorites Menu
' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : No
Const ADMINISTRATIVE_TOOLS = 6
Const FAVORITES = &H6&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)'dooo
Set objFolderItem = objFolder.Self
'WScript.Echo objFolderItem.Path
objFolder.NewFolder ("Navigate Extreme")
'objFavoriteItem.NewFolder("Navigate Extreme")
Set fav = objFolder.ParseName("Navigate Extreme")
'WScript.Echo fav.Path
Set objshell = CreateObject("Shell.Application")
Set objfav = objshell.NameSpace(favorites)
Set objfav1 = objfav.ParseName("Navigate Extreme").GetFolder
objfav1.NewFolder ("Sales")
objfav1.NewFolder ("General")
objfav1.NewFolder ("Connectivity and Applications")
Set objfav2 = objFav1.ParseName ("Sales")
'WScript.Echo objfav2.Path
pathsales = objfav2.Path'assign path to variable for sales
'WScript.Echo pathsales'printing variable value for testing
Set objfav2 = objFav1.ParseName ("General")
'WScript.Echo objfav2.Path
pathgeneral = objfav2.Path'assign path to variable for general
'WScript.Echo pathgeneral'printing variable value for testing
Set objfav2 = objFav1.ParseName ("Connectivity and Applications")
'WScript.Echo objfav2.Path
pathconnect = objfav2.Path'assign path to variable for connectivity and applications
'WScript.Echo pathconnect'printing variable value for testing
'Set objFolderItem = objFolder.ParseName("Navigate Extreme")
'objFolderItem.Path
'WScript.Echo objFolderItem.Path
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
'Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\MSDN.url")
'objURLShortcut.TargetPath = "http://msdn.microsoft.com"
'objURLShortcut.Save
'******************************** Connectivity and Apps
Set objURLShortcut = objShell.CreateShortcut(pathconnect & "\Webmail.url")
objURLShortcut.TargetPath = "https://mail.extremenetworks.com/exchange/logon.asp"
objURLShortcut.Save
'******************************** Connectivity and Apps
Set objURLShortcut = objShell.CreateShortcut(pathconnect & "\Connect to Extreme Networks.url")
objURLShortcut.TargetPath = "http://www.extremenetworks.com/connect/index.html"
objURLShortcut.Save
'******************************** General
Set objURLShortcut = objShell.CreateShortcut(pathgeneral & "\Facilities.url")
objURLShortcut.TargetPath = "http://intranet.extremenetworks.com/DMS/home/content/Facilities"
objURLShortcut.Save
this will only add to logged in user's profile...also it's in a raw state ..need refinement
then finally i worked on a vbscript script... attaching the same in case some can suggest better...
' Add a Web Site to the Favorites Menu
' Windows Server 2003 : Yes
' Windows XP : Yes
' Windows 2000 : Yes
' Windows NT 4.0 : Yes
' Windows 98 : No
Const ADMINISTRATIVE_TOOLS = 6
Const FAVORITES = &H6&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)'dooo
Set objFolderItem = objFolder.Self
'WScript.Echo objFolderItem.Path
objFolder.NewFolder ("Navigate Extreme")
'objFavoriteItem.NewFolder("Navigate Extreme")
Set fav = objFolder.ParseName("Navigate Extreme")
'WScript.Echo fav.Path
Set objshell = CreateObject("Shell.Application")
Set objfav = objshell.NameSpace(favorites)
Set objfav1 = objfav.ParseName("Navigate Extreme").GetFolder
objfav1.NewFolder ("Sales")
objfav1.NewFolder ("General")
objfav1.NewFolder ("Connectivity and Applications")
Set objfav2 = objFav1.ParseName ("Sales")
'WScript.Echo objfav2.Path
pathsales = objfav2.Path'assign path to variable for sales
'WScript.Echo pathsales'printing variable value for testing
Set objfav2 = objFav1.ParseName ("General")
'WScript.Echo objfav2.Path
pathgeneral = objfav2.Path'assign path to variable for general
'WScript.Echo pathgeneral'printing variable value for testing
Set objfav2 = objFav1.ParseName ("Connectivity and Applications")
'WScript.Echo objfav2.Path
pathconnect = objfav2.Path'assign path to variable for connectivity and applications
'WScript.Echo pathconnect'printing variable value for testing
'Set objFolderItem = objFolder.ParseName("Navigate Extreme")
'objFolderItem.Path
'WScript.Echo objFolderItem.Path
Set objShell = WScript.CreateObject("WScript.Shell")
strDesktopFld = objFolderItem.Path
'Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\MSDN.url")
'objURLShortcut.TargetPath = "http://msdn.microsoft.com"
'objURLShortcut.Save
'******************************** Connectivity and Apps
Set objURLShortcut = objShell.CreateShortcut(pathconnect & "\Webmail.url")
objURLShortcut.TargetPath = "https://mail.extremenetworks.com/exchange/logon.asp"
objURLShortcut.Save
'******************************** Connectivity and Apps
Set objURLShortcut = objShell.CreateShortcut(pathconnect & "\Connect to Extreme Networks.url")
objURLShortcut.TargetPath = "http://www.extremenetworks.com/connect/index.html"
objURLShortcut.Save
'******************************** General
Set objURLShortcut = objShell.CreateShortcut(pathgeneral & "\Facilities.url")
objURLShortcut.TargetPath = "http://intranet.extremenetworks.com/DMS/home/content/Facilities"
objURLShortcut.Save
this will only add to logged in user's profile...also it's in a raw state ..need refinement
Posted by:
Byoung4now
17 years ago
Rating comments in this legacy AppDeploy message board thread won't reorder them,
so that the conversation will remain readable.
so that the conversation will remain readable.