WDForge.org - Forums

Re: [WD8 / WD7.5] Extraction informations des raccourcis.

Sujet: Re: [WD8 / WD7.5] Extraction informations des raccourcis.
par Anonyme sur 5/1/2004 11:17:34

Objet com accesible en WL????

C'est fantastique ce que tu dit la met comment ?`

Pour l'instant j'ai trouver une solution avec un script WHS qui écrit un ".ini".

Voila le code vbscript :
---------------------
If WScript.Arguments.Count = 0 Then
WScript.Quit
Else
Dim ws,fso,iniout
Dim SCPath,SCTarget,SCDescription,SCArguments,SCHotKey,SCWindowStyle,SCWorkingDir,SCIcon
Dim CFPath

SCPath=WScript.Arguments.Item(0)
CFPath=WScript.Arguments.Item(1)

Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set iniout = fso.CreateTextFile(CFPath,TRUE)

With ws.CreateShortcut(SCPath)
SCTarget=.TargetPath
SCDescription=.Description
SCArguments=.Arguments
SCHotKey=.HotKey
SCWindowStyle=.WindowStyle
SCWorkingDir=.WorkingDirectory
SCIcon=.IconLocation
End With

iniout.WriteLine("[LNK]")
iniout.WriteLine("DESCRIPTION=" & SCDescription)
iniout.WriteLine("TARGET=" & SCTarget)
iniout.WriteLine("ARGUMENTS=" & SCArguments)
iniout.WriteLine("WORKINGDIR=" & SCWorkingDir)
iniout.WriteLine("ICON=" & SCIcon)
iniout.WriteLine("HOTKEY=" & SCHotKey)
iniout.WriteLine("STYLE=" & SCWindowStyle)
End If
-----------------------

Alors comment faire sa :
Set ws = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

En w-langage ?

Merci bcp.