Option Explicit Dim WS,FS,Ag,RT,i,FL Set WS = CreateObject("WScript.Shell") Set FS = CreateObject("Scripting.FileSystemObject") Set Ag = WScript.Arguments If Ag.Count > 0 Then For i = 0 to corArgs.Count - 1 FL = Chr(34) & FS.GetAbsolutePathName(Ag(i)) & Chr(34) RT = WS.Run("C:\Program Files\Unlocker\Unlocker.exe " & FL & " /S" , 1, true) Next End If Set Ag = Nothing Set FS = Nothing Set WS = Nothing WScript.Quit()
