Questione : Come aggiungo il mio attributo passivo indietro con uno scritto di .vb

Ciao - il

I che prova ad aggiungere un attributo passivo di nuovo ad una lima via vbscript, ma io sto ottenendo stumped da qualcosa che posso trascurare ed eventualmente sono facile. Come potete vedere dal mio frammento di codice, in primo luogo rimuovo la regolazione passiva che funziona benissimo ma dopo che sono fatto con la sostituzione della lima, provo ad aggiungere il re-add l'attributo passivo indietro e non fa appena non fa work.

What sono io che faccio male?

Thanks,
Jim class= > " libero " del
> " del codeSnippet " del class= del
class= " lineNumbers " del
class= del 
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:
riassunto notpretty di errore del >On " del class= " " di codeSnippet850177 del id= del
class= del

Risposta : Come aggiungo il mio attributo passivo indietro con uno scritto di .vb

Assomiglia alla vostra sintassi era appena fuori da una punta.  Provare questo codice.
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:

Sull'errore riprendere dopo
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Regolare WshShell = WScript.CreateObject (“WScript.Shell„)
Regolar FSO = CreateObject (“Scripting.FileSystemObject„)

'Dichiarazioni variabili
ProgramFiles = WshShell.ExpandEnvironmentStrings (“%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings (“%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings (“%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings (“%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = andato (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) & “\„
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir & “\ Success.txt„
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ dati di applicazione \ cliente \ sistema sicuri servizi di Cisco \ di Cisco \ “

'Generare il Logfile
Regolare InstLogFile = fso.CreateTextFile (ScriptFullName & “. Ceppo„, allineare)
InstLogFile.WriteLine ora () & “iniziando installazione di """ & ScriptFullName & """.„


Se fso.fileexists (AllUsersProfile & CfgXMLPath & CfgXML) allora
	'lima di archivio
	objFile stabilito = FSO.GetFile (AllUsersProfile & CfgXMLPath & CfgXML)

	Se objFile.Attributes E 1 allora
	    objFile.Attributes = objFile.Attributes - 1
	Concluder se

	InstLogFile.WriteLine ora () & “ha trovato “Configuration.xml„ in percorso di Allusers.  Appoggiandolo in su.„
	fso.CopyFile AllUsersProfile & CfgXMLPath & CfgXML, AllUsersProfile & CfgXMLPath & CfgXMLbkp
	
	'copiare la nuova lima
	InstLogFile.WriteLine ora () & “sostituire/che inserisce nuovo “Configuration.xml„.„
	fso.deletefile AllUsersProfile & CfgXMLPath & cfgXML
	fso.copyfile InstallDir & cfgxml, AllUsersProfile & CfgXMLPath & cfgXML

	Se non objFile.Attributes E 1 allora
	    objFile.Attributes = objFile.Attributes + 1
	Concluder se
Altrimenti
	InstLogFile.WriteLine ora () & ““Configuration.xml„ non trovato.  CSSC presupponenti non installati.„

Concluder se

InstLogFile.writeline ora () & “l'installazione di """ & ScriptFullName & il """ è Finished.„
InstLogFile.Close ()
Regolano InstLogFile = niente

Regolar FSO = niente
Regolare WshShell = niente
Altre soluzioni  
 
programming4us programming4us