Vraag : Hoe ik terug mijn read-only eigenschappen met een .vb manuscript toevoeg

Hallo -

I am een read-only attribuut terug naar een dossier via vbscript proberen toe te voegen, maar ik krijg stumped door iets die ik kan overzien en hopelijk gemakkelijk ben. Aangezien u van mijn codefragment kunt zien, verwijdert I eerst het read-only plaatsen die boete maar werkt nadat ik met het vervangen van het dossier word gedaan, probeer re-toevoeg ik de read-only attributen toe te voegen achter en het niet alleen niet work.

What ben verkeerd doen van I?

Thanks,
Jim
" codeBody " 
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:
49:
50:
51:
52:
53:
54:
de 
On hervat daarna
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Vastgestelde WshShell = WScript.CreateObject („WScript.Shell“)
Vastgesteld FSO = CreateObject („Scripting.FileSystemObject“)

'Veranderlijke Verklaringen
ProgramFiles = WshShell.ExpandEnvironmentStrings („%ProgramFiles%“)
SystemDrive = WshShell.ExpandEnvironmentStrings („%SystemDrive%“)
SystemRoot = WshShell.ExpandEnvironmentStrings („%SystemRoot%“)
AllUsersProfile = WshShell.ExpandEnvironmentStrings („%ALLUSERSPROFILE%“)
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = ging (weg ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) & „\“
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir & „\ Success.txt“
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
Van CfgXMLPath= " systeem \ van de Cliënt \ van de Diensten van de Gegevens \ Cisco \ Cisco van de \- Toepassing het Veilige „

'Cre�ër Logfile
Plaats InstLogFile = fso.CreateTextFile (ScriptFullName & „. Logboek“, Waar)
InstLogFile.WriteLine nu () & „Beginnende Installatie van """ & ScriptFullName & """.“


Als fso.fileexists (AllUsersProfile & CfgXMLPath & CfgXML) toen
	'archiefdossier
	Vastgestelde objFile = FSO.GetFile (AllUsersProfile & CfgXMLPath & CfgXML)

	Als objFile.Attributes EN 1 toen
	    objFile.Attributes = objFile.Attributes = 0
	Eind als

	InstLogFile.WriteLine nu () & „Gevonden „Configuration.xml“ in weg Allusers.  Steunend het.“
	fso.CopyFile AllUsersProfile & CfgXMLPath & CfgXML, AllUsersProfile & CfgXMLPath & CfgXMLbkp
	
	'exemplaar nieuw dossier
	InstLogFile.WriteLine nu () & „Vervangend/Opnemend nieuwe „Configuration.xml“.“
	fso.deletefile AllUsersProfile & CfgXMLPath & cfgXML
	fso.copyfile InstallDir & cfgxml, AllUsersProfile & CfgXMLPath & cfgXML

	Als objFile.Attributes EN 0 toen
	    objFile.Attributes = objFile.Attributes = 1
	Eind als
Anders
	InstLogFile.WriteLine nu () & „„gevonden niet Configuration.xml“.  Geïnstalleerdeu niet veronderstellen CSSC.“

Eind als

InstLogFile.writeline nu () & de „Installatie van """ & ScriptFullName & """ is Gebeëindigd.“
InstLogFile.Close ()
Vastgestelde InstLogFile = niets

Vastgesteld FSO = niets
Vastgestelde WshShell = niets

Antwoord : Hoe ik terug mijn read-only eigenschappen met een .vb manuscript toevoeg

Kijkt als uw syntaxis was enkel van een beetje.  Probeer deze code.
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:
49:
50:
51:
52:
53:
54:

Op Fout hervat daarna
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Vastgestelde WshShell = WScript.CreateObject („WScript.Shell“)
Vastgesteld FSO = CreateObject („Scripting.FileSystemObject“)

'Veranderlijke Verklaringen
ProgramFiles = WshShell.ExpandEnvironmentStrings („%ProgramFiles%“)
SystemDrive = WshShell.ExpandEnvironmentStrings („%SystemDrive%“)
SystemRoot = WshShell.ExpandEnvironmentStrings („%SystemRoot%“)
AllUsersProfile = WshShell.ExpandEnvironmentStrings („%ALLUSERSPROFILE%“)
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = ging (weg ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) & „\“
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir & „\ Success.txt“
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
Van CfgXMLPath= " systeem \ van de Cliënt \ van de Diensten van de Gegevens \ Cisco \ Cisco van de \- Toepassing het Veilige „

'Cre�ër Logfile
Plaats InstLogFile = fso.CreateTextFile (ScriptFullName & „. Logboek“, Waar)
InstLogFile.WriteLine nu () & „Beginnende Installatie van """ & ScriptFullName & """.“


Als fso.fileexists (AllUsersProfile & CfgXMLPath & CfgXML) toen
	'archiefdossier
	Vastgestelde objFile = FSO.GetFile (AllUsersProfile & CfgXMLPath & CfgXML)

	Als objFile.Attributes EN 1 toen
	    objFile.Attributes = objFile.Attributes - 1
	Eind als

	InstLogFile.WriteLine nu () & „Gevonden „Configuration.xml“ in weg Allusers.  Steunend het.“
	fso.CopyFile AllUsersProfile & CfgXMLPath & CfgXML, AllUsersProfile & CfgXMLPath & CfgXMLbkp
	
	'exemplaar nieuw dossier
	InstLogFile.WriteLine nu () & „Vervangend/Opnemend nieuwe „Configuration.xml“.“
	fso.deletefile AllUsersProfile & CfgXMLPath & cfgXML
	fso.copyfile InstallDir & cfgxml, AllUsersProfile & CfgXMLPath & cfgXML

	Als niet objFile.Attributes EN 1 toen
	    objFile.Attributes = objFile.Attributes + 1
	Eind als
Anders
	InstLogFile.WriteLine nu () & „„gevonden niet Configuration.xml“.  Geïnstalleerdeu niet veronderstellen CSSC.“

Eind als

InstLogFile.writeline nu () & de „Installatie van """ & ScriptFullName & """ is Gebeëindigd.“
InstLogFile.Close ()
Vastgestelde InstLogFile = niets

Vastgesteld FSO = niets
Vastgestelde WshShell = niets
Andere oplossingen  
 
programming4us programming4us