Discussion :

[patricktoulon]

Bonjour a tous

je suis entrain de faire une archive self extractive (winrar sfx)

dans la quelle il y a deux fichiers
1petit exe et un vbs
dans ce vbs je recherche dans la base de registre le chemin de "AcroR32exe" (adobe reader)
et avec scripting file je deplace le petit exe extrait sur le bureau de l'utilisateur dans ce dossier
probleme je n'ai pas les autorisations

j'ai bien essayé icals/cals mais la retranscription de la ligne de commande n'est pas une sinécure

je me demande donc si il n'y aurais pas une ame charitable qui me donnerait cette ligne de commande en batch
je me debrouillerais soit en executant un cmd soit en retranscrivant la ligne de commande en vbs


pour info voila les chemins depart et final du petit exe
---------------------------

C:\Users\polux\Desktop\pdftotext32.exe

C:\Program Files (x86)\Adobe\Reader 9.0\Reader\pdftotext32.exe '' je n'est pas les autorisations pour celui la
---------------------------
merci d'avance

[hackoofr]

Postez-nous votre vbs pour avoir une idée et pour pouvoir aussi tester avec vous ce petit programme

[patricktoulon]

a ben voila !

tiens le script du unloker est bsé sur ton exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 chemin=Replace(Wscript.ScriptFullName,Wscript.ScriptName,"")
Const Key = "HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\"
Set WshShell= CreateObject("WScript.Shell")
 CleRegistre = WshShell.RegRead(Key & "AcroRd32.exe\")
  fichierREG=WshShell.SpecialFolders("Desktop") &"\Cle.reg" 'chemin du fichier reg 
 adob=Replace(CleRegistre , "AcroRd32.exe", "")
UnlockFolder adob
adobread = Replace(CleRegistre , "AcroRd32.exe", "pdftotext32.exe")
     
Set fso =CreateObject("Scripting.FileSystemObject")
     Set NewFichier = fso.CreateTextFile(FichierREG, True)
    ' code du fichier reg 
     cle = "Windows Registry Editor Version 5.00" & vbcrlf
     cle =cle &"[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\pdftotext32.exe]" & vbcrlf
     cle =cle &"@=""" & Replace(adobread,"\","\\") &""""
     ' ecriture dans le fichier 
     NewFichier.Write(cle) 
     NewFichier.close
WshShell.Run "Regedit.exe /s " & fichierREG,0, true
fso.DeleteFile(fichierREG)  
msgbox chemin & "pdftotext32.exe" & vbcrlf & adobread
 'fso.CopyFile chemin & "pdftotext32.exe", chemin & "pdftotext322.exe" ' celui la fonctionne 
fso.CopyFile chemin & "pdftotext32.exe", adob
'===============================
Sub UnlockFolder(strFolder) 
    ' Merci à hackoofr pour cette procédure à laquelle j'ai ajouté un 
    ' paramètre pour pouvoir l'utiliser sur d'autres dossiers
     Dim WshNetwork, Com, Com1, UsrName, Ret
     Set WshNetwork = CreateObject("WScript.Network")
     UsrName = WshNetwork.UserName
     Set  WshShell= CreateObject("Wscript.Shell")
    Set fso = CreateObject("Scripting.FileSystemObject")
     If fso.FolderExists(strFolder) Then
         Com1 = "%COMSPEC% /c attrib -s -h -r " & strFolder
         WshShell.Run Com1, 0, True
         'Com = "%COMSPEC% /c Echo o| ICACLS " & strFolder & " /g " & DblQuote(UsrName) & ":f Administrateurs:f"
          Com = "%COMSPEC% /c Echo ICACLS "& """ & strFolder &""" &" /GRANT *S-1-1-0:(D,WD)"
Ret = WshShell.Run(Com,0,True)
         'msgbox ret
         If Ret <> 0 Then
            MsgBox "Opération de déblocage non réussie", vbCritical, "Débloquer un dossier"
         End If
     End if 
End Sub
'=======================
Function DblQuote(strIn)
   DblQuote = Chr(34) & strIn & Chr(34)
End Function