Question : Comment j'ajoute mon attribut inaltérable en arrière avec un manuscrit de .vb

Salut - le

I AM essayant d'ajouter un attribut inaltérable de nouveau à un dossier par l'intermédiaire du vbscript, mais moi obtiens stumped par quelque chose que je peux donner sur et suis si tout va bien facile. Comme vous pouvez voir de mon extrait de code, est-ce que j'enlève d'abord l'arrangement inaltérable qui fonctionne très bien mais après que je suis fait avec remplacer le dossier, j'essaye d'ajouter le re-add l'attribut inaltérable en arrière et il ne fait pas ne fait pas simplement work.

What suis moi faisant mal ?

Thanks,
Jim class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
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 :
résumé " de " codeSnippet850177 d'id= " de 
On de class= après
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Placer WshShell = WScript.CreateObject (« WScript.Shell »)
Placer FSO = CreateObject (« Scripting.FileSystemObject »)

'Déclarations variables
ProgramFiles = WshShell.ExpandEnvironmentStrings (« %ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings (« %SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings (« %SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings (« %ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = parti (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) et « \ »
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir et « \ Success.txt »
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ données d'application \ client \ système bloqués de Cisco \ services de Cisco \ « 

'Créer le fichier de consignation
Placer InstLogFile = fso.CreateTextFile (ScriptFullName et « . Notation », vraies)
InstLogFile.WriteLine maintenant () et « commençant l'installation du """ et le ScriptFullName et le """. »


Si fso.fileexists (AllUsersProfile et CfgXMLPath et CfgXML) puis
	'fichier d'archives
	objFile réglé = FSO.GetFile (AllUsersProfile et CfgXMLPath et CfgXML)

	Si objFile.Attributes ET 1 puis
	    objFile.Attributes = objFile.Attributes = 0
	Finir si

	InstLogFile.WriteLine maintenant () et « a trouvé « Configuration.xml » dans le chemin d'Allusers.  Le soutenant. »
	fso.CopyFile AllUsersProfile et CfgXMLPath et CfgXML, AllUsersProfile et CfgXMLPath et CfgXMLbkp
	
	'copier le nouveau dossier
	InstLogFile.WriteLine maintenant () et « remplacement/insérant nouveau « Configuration.xml ». »
	fso.deletefile AllUsersProfile et CfgXMLPath et cfgXML
	fso.copyfile InstallDir et cfgxml, AllUsersProfile et CfgXMLPath et cfgXML

	Si objFile.Attributes ET 0 puis
	    objFile.Attributes = objFile.Attributes = 1
	Finir si
Autrement
	InstLogFile.WriteLine maintenant () et « « Configuration.xml » non trouvé.  CSSC supposants non installés. »

Finir si

InstLogFile.writeline maintenant () et « installation de """ et ScriptFullName et """ est de finition. »
InstLogFile.Close ()
Placent InstLogFile = rien

Placer FSO = rien
Placer WshShell = rien
class= de

Réponse : Comment j'ajoute mon attribut inaltérable en arrière avec un manuscrit de .vb

Ressemble à votre syntaxe était juste outre d'un peu.  Essayer ce 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 :

Sur l'erreur reprendre après
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Placer WshShell = WScript.CreateObject (« WScript.Shell »)
Placer FSO = CreateObject (« Scripting.FileSystemObject »)

'Déclarations variables
ProgramFiles = WshShell.ExpandEnvironmentStrings (« %ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings (« %SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings (« %SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings (« %ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = parti (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) et « \ »
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir et « \ Success.txt »
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ données d'application \ client \ système bloqués de Cisco \ services de Cisco \ « 

'Créer le fichier de consignation
Placer InstLogFile = fso.CreateTextFile (ScriptFullName et « . Notation », vraies)
InstLogFile.WriteLine maintenant () et « commençant l'installation du """ et le ScriptFullName et le """. »


Si fso.fileexists (AllUsersProfile et CfgXMLPath et CfgXML) puis
	'fichier d'archives
	objFile réglé = FSO.GetFile (AllUsersProfile et CfgXMLPath et CfgXML)

	Si objFile.Attributes ET 1 puis
	    objFile.Attributes = objFile.Attributes - 1
	Finir si

	InstLogFile.WriteLine maintenant () et « a trouvé « Configuration.xml » dans le chemin d'Allusers.  Le soutenant. »
	fso.CopyFile AllUsersProfile et CfgXMLPath et CfgXML, AllUsersProfile et CfgXMLPath et CfgXMLbkp
	
	'copier le nouveau dossier
	InstLogFile.WriteLine maintenant () et « remplacement/insérant nouveau « Configuration.xml ». »
	fso.deletefile AllUsersProfile et CfgXMLPath et cfgXML
	fso.copyfile InstallDir et cfgxml, AllUsersProfile et CfgXMLPath et cfgXML

	Sinon objFile.Attributes ET 1 puis
	    objFile.Attributes = objFile.Attributes + 1
	Finir si
Autrement
	InstLogFile.WriteLine maintenant () et « « Configuration.xml » non trouvé.  CSSC supposants non installés. »

Finir si

InstLogFile.writeline maintenant () et « installation de """ et ScriptFullName et """ est de finition. »
InstLogFile.Close ()
Placent InstLogFile = rien

Placer FSO = rien
Placer WshShell = rien
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us