Vraag : Hoe ik toestemmingen op geïnstalleerdeg omslag app aan zodat plaatste iedereen heeft toegang schrijven

Hoe kan ik plaatsen installeren omslagentoestemming zodat heeft iedereen schrijven toegang wanneer ik app installeer?

Antwoord : Hoe ik toestemmingen op geïnstalleerdeg omslag app aan zodat plaatste iedereen heeft toegang schrijven

Hallo,

Dit zal Volledige controle voor „iedereen“ in uw omslag terwijl het handhaven van huidige toestemmingen op die omslag plaatsen:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Functie SetPermissions ()
	Schemerige strHomeFolder, strHome, strUser
	Schemerige intRunError, objShell, objFSO

	strHomeFolder = „C:\Test“

	Reeks objShell = CreateObject („Wscript.Shell“)
	Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
	Als objFSO.FolderExists (strHomeFolder) Dan
		intRunError = objShell.Run („%COMSPEC% /c Echo Y| cacls“ _
		& strHomeFolder & „/e /c /g iedereen: F“, 2, Waar)
		
		Als intRunError <> 0 toen
			Wscript.Echo „Fout die toestemmingen voor gebruiker“ toewijzen _
			& strUser & „aan huisomslag“ & strHomeFolder
		Eind als
	Eind als
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us