Pergunta : Como eu adiciono meu atributo de leitura apenas para trás com um certificado de .vb

Olá! - o

I am que tenta adicionar um atributo de leitura apenas de volta a uma lima através do vbscript, mas eu está começ stumped por algo que eu posso negligenciar e sou esperançosamente fácil. Como você pode ver de minha pequena notícia de código, eu removo primeiramente o ajuste de leitura apenas que trabalha muito bem mas depois que eu estou feito com substituição da lima, eu tento adicionar para trás o re-add o atributo de leitura apenas e não faz apenas não faz work.

What é mim que faço erradamente?

Thanks,
Jim class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
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:
resumo notpretty do erro do >On " do class= " de " codeSnippet850177 do id= do
class= do

Resposta : Como eu adiciono meu atributo de leitura apenas para trás com um certificado de .vb

Olha como sua sintaxe estava apenas fora de um bocado.  Tentar este código.
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:

No erro recomeçar em seguida
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Ajustar WshShell = WScript.CreateObject (“WScript.Shell”)
Ajustar FSO = CreateObject (“Scripting.FileSystemObject”)

'Declarações variáveis
ProgramFiles = WshShell.ExpandEnvironmentStrings (“%ProgramFiles%")
SystemDrive = WshShell.ExpandEnvironmentStrings (“%SystemDrive%")
SystemRoot = WshShell.ExpandEnvironmentStrings (“%SystemRoot%")
AllUsersProfile = WshShell.ExpandEnvironmentStrings (“%ALLUSERSPROFILE%")
ScriptFullName = WScript.ScriptFullName
ScriptName = WScript.ScriptName
InstallDir = saido (ScriptFullName, Len (ScriptFullName) - Len (ScriptName) - 1) & “\”
WshShell.CurrentDirectory = InstallDir 
ManagedMarker=InstallDir & “\ Success.txt”
CfgXML= " Configuration.xml "
CfgXMLbkp= " configuration1.old "
CfgXMLPath= " \ dados de aplicação \ cliente \ sistema seguros de Cisco \ serviços de Cisco \ “

'Criar o ficheiro histórico
Ajustar InstLogFile = fso.CreateTextFile (ScriptFullName & “. Registro”, verdadeiros)
InstLogFile.WriteLine agora () & “começando a instalação do """ & o ScriptFullName & o """.”


Se fso.fileexists (AllUsersProfile & CfgXMLPath & CfgXML) então
	'lima de arquivo
	objFile ajustado = FSO.GetFile (AllUsersProfile & CfgXMLPath & CfgXML)

	Se objFile.Attributes E 1 então
	    objFile.Attributes = objFile.Attributes - 1
	Terminar se

	InstLogFile.WriteLine agora () & “encontrou “Configuration.xml” no trajeto de Allusers.  Suportando o acima.”
	fso.CopyFile AllUsersProfile & CfgXMLPath & CfgXML, AllUsersProfile & CfgXMLPath & CfgXMLbkp
	
	'copiar a lima nova
	InstLogFile.WriteLine agora () & “substituição/que introduz “Configuration.xml novo”.”
	fso.deletefile AllUsersProfile & CfgXMLPath & cfgXML
	fso.copyfile InstallDir & cfgxml, AllUsersProfile & CfgXMLPath & cfgXML

	Se não objFile.Attributes E 1 então
	    objFile.Attributes = objFile.Attributes + 1
	Terminar se
Mais
	InstLogFile.WriteLine agora () & ““Configuration.xml” não encontrado.  CSSC de suposição não instalados.”

Terminar se

InstLogFile.writeline agora () & a “instalação do """ & o ScriptFullName & o """ são Finished.”
InstLogFile.Close ()
Ajustam InstLogFile = nada

Ajustar FSO = nada
Ajustar WshShell = nada
Outras soluções  
 
programming4us programming4us