Home | Chi sono | Contattami
 

Progr. lineare

Delphi
 
Componenti
  Database
 
Miei articoli

Windows

Miei articoli 

 

Ripristino della barra di Avvio Rapido (Quick Launch)
 

Con questo script viene ripristinata la barra di Avvio Veloce, nel caso non sia presente o alcuni dei suoi elementi di default non siano piÓ presenti: gli elementi che vengono presi in esame sono il collegamento ad Internet Explorer, il collegamento ad Outllok Express, e Mostra Desktop

Dim fso, fldr, tf Set oShell = CreateObject("WScript.Shell") sCurrUsrPath = oShell.ExpandEnvironmentStrings("%APPDATA%") Set fso = CreateObject("Scripting.FileSystemObject") if not (fso.FolderExists(sCurrUsrPath & _ "\Microsoft\Internet Explorer\Quick Launch")) then Set fldr = fso.CreateFolder(sCurrUsrPath & _ "\Microsoft\Internet Explorer\Quick Launch") end if if not (fso.FileExists(sCurrUsrPath & _ "\Microsoft\Internet Explorer\Quick Launch\Mostra Desktop.scf")) then Set tf = fso.CreateTextFile(sCurrUsrPath & _ "\Microsoft\Internet Explorer\Quick Launch\Mostra Desktop.scf", True) tf.WriteLine("[Shell]") tf.WriteLine("Command=2") tf.WriteLine("IconFile=explorer.exe,3") tf.WriteLine("[Taskbar]") tf.WriteLine("Command=ToggleDesktop") tf.Close end if '///////////////////// if not (fso.FileExists(sCurrUsrPath & _ "\Microsoft\Internet Explorer\Quick Launch\Avvia il browser Internet Explorer.lnk")) then Set oShortCut = oShell.CreateShortcut(sCurrUsrPath & _ "\Microsoft\Internet Explorer\Quick Launch\Avvia il browser Internet Explorer.lnk") oShortCut.TargetPath = "C:\Programmi\Internet Explorer\IEXPLORE.EXE" oShortCut.IconLocation = "C:\Programmi\Internet Explorer\IEXPLORE.EXE,0" oShortCut.Save end if Set oShortCut = Nothing '/////////////////// if not (fso.FileExists(sCurrUsrPath & _ "\Microsoft\Internet Explorer\Quick Launch\Avvia Outlook Express.lnk")) then Set oShortCut = oShell.CreateShortcut(sCurrUsrPath & _ "\Microsoft\Internet Explorer\Quick Launch\Avvia Outlook Express.lnk") oShortCut.TargetPath = "C:\Programmi\Outlook Express\msimn.exe" oShortCut.IconLocation = "C:\Programmi\Outlook Express\msimn.exe,0" oShortCut.Save end if Set oShortCut = Nothing Set fso = Nothing

 

 

 
 
 
Your Ad Here