Vraag : vbscript wordt het probleem, het kopiëren normal.dotm beschreven door de tovenaar van vooruitzichten aanvankelijke config

Hallo leidt allen,

ive een vrij handig manuscript schrijven dat OS versie en vesrion van het Bureau controleert en de standaarddoopvont voor woord en vooruitzichten plaatst en als op 2003 uw die vooruitzichten profiles
(momenteel tot XP wordt beperkt en win niettemin 7 maar kan gemakkelijk worden aangepast)

it ook cre�ërt tot de malplaatjesomslag als het reeds created

ive testte het op om het even welke os is geweest die bureau 2003 in werking stelt en het fine

now werkt het probleem is wanneer een gebruiker voor de allereerste tijd het programma opent het manuscript cre�ërt de omslagen en kopi�ërt normal.dotm en Reg. montages zal lopen in maar wanneer de vooruitzichten of het woord voor het eerst worden geopend, in werking stelt zij worden door vooruitzichten standaarddiemontages beschreven tijdens het wizard

the slechts ding worden gecre�ërd i gedachte van het doen vooruitzichten aanbrengend een vertraging die dan in werking stellen de voor het eerst geopende rest
when vooruitzichten, het zijn malplaatjes zal creëren en Reg. montages in gebreke zal blijven alvorens de tovenaar door de gebruiker wordt voltooid?

thanks voor om het even welke help
" 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:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE 
  Reeks oReg = GetObject („winmgmts: {impersonationLevel=impersonate}! \ \. /root/default: StdRegProv“) 
  
  Schemerige objFSO: Reeks objFSO = CreateObject („Scripting.FileSystemObject“)
  Schemerige objNetwork: reeks objNetwork = CreateObject („Wscript.Network“)
  Schemerige objShell: Reeks objShell = CreateObject („Wscript.Shell“)
  Schemerige strProfilePath, strOS, strVerKey, strVersion, strProgFilesDir, strRegFilePath2003, strRegFilePath2007, strRegFilePath2010, strProgramPath
  Schemerige sValuneName, SRegPre, SRegPost
objShell.Run „taskkill /IM winword.exe“, 1, waar

strOS = objShell.ExpandEnvironmentStrings („%OS%“)
Als strOS = „Windows_NT“ toen
   strVerKey = „HKLM \ de Vensters NT \ CurrentVersion \ van de SOFTWARE \ Microsoft \“
   strVersion = objShell.regread (strVerKey & „ProductName“)
Anders
  strVerKey = „HKLM \ de Vensters \ CurrentVersion \ van de SOFTWARE \ Microsoft \“
  strVersion = objShell.regread (strVerKey & „ProductName“)
Eind als
  
Als strVersion = „Vensters 7 Beroeps“ toen
 strProfilePath = objShell.ExpandEnvironmentStrings („%UserProfile%“) _
& „\ AppData die \ de Malplaatjes van \ zwerven Microsoft \“ 
	
	Als niet objFSO.FolderExists (strProfilePath) Dan
    	Reeks objFolder = objFSO.CreateFolder (strProfilePath)
	Eind als

strVersion van ElseIf = „Microsoft Windows XP“ toen
 strProfilePath = objShell.ExpandEnvironmentStrings („%UserProfile%“) _
& „de Malplaatjes van de Gegevens \ Microsoft \ van de \- Toepassing“ 

	Als niet objFSO.FolderExists (strProfilePath) Dan
    	Reeks objFolder = objFSO.CreateFolder (strProfilePath)
	Eind als
	
Eind als

  sValueName = „Weg“ 
  sRegPre = het „Bureau \ van de SOFTWARE \ Microsoft \“ 
  sRegPost = „\ Gemeenschappelijke \ InstallRoot“ 
  Als oReg.GetStringValue (_ 
       HKLM, sRegPre & „14.0“ & sRegPost, sValueName, sValue) = 0 toen 
'###################### BEGIN VAN ##################### VAN 2010  

Als objFSO.FileExists (strProfilePath & „normal.dotm“) Dan
      Als objFSO.FolderExists (strProfilePath & „oud-normale \“) = Vals toen
            objFSO.CreateFolder strProfilePath & „oud-normale \“
      Eind als
      objFSO.CopyFile strProfilePath & „\ normal.dotm“, strProfilePath &“ \ oud-normale \ „
Eind als
objFSO.CopyFile „de Doopvont \ office2007-10 \ Normal.dotm“, strProfilePath &“ \ „\ van de Opening van een sessie \ van het \ \ domain.local \ aandeel, Waar

strRegFilePath2010 = „\ \ domain.local \ de Doopvont \ office2007-10 \ Outlook2010.reg van de aandeel\ Opening van een sessie \“
objShell.Run „regedit /s """ & strRegFilePath2010 & """"

'####################### EIND VAN ###################### VAN 2010  
  Elseif oReg.GetStringValue (_ 
       HKLM, sRegPre & „12.0“ & sRegPost, sValueName, sValue) = 0 toen 
'###################### BEGIN VAN ##################### VAN 2007  

Als objFSO.FileExists (strProfilePath & „normal.dotm“) Dan
      Als objFSO.FolderExists (strProfilePath & „oud-normale \“) = Vals toen
            objFSO.CreateFolder strProfilePath & „oud-normale \“
      Eind als
      objFSO.CopyFile strProfilePath & „\ normal.dotm“, strProfilePath &“ \ oud-normale \ „
Eind als
objFSO.CopyFile „de Doopvont \ office2007-10 \ Normal.dotm“, strProfilePath &“ \ „\ van de Opening van een sessie \ van het \ \ domain.local \ Aandeel, Waar

strRegFilePath2007 = „\ \ domain.local \ de Doopvont \ office2007-10 \ Outlook2007.reg van de aandeel\ Opening van een sessie \“
objShell.Run „regedit /s """ & strRegFilePath2007 & """"

'####################### EIND VAN ###################### VAN 2007  

  Elseif oReg.GetStringValue (_ 
       HKLM, sRegPre & „11.0“ & sRegPost, sValueName, sValue) = 0 toen 
       
'###################### BEGIN VAN ##################### VAN 2003   
    
Als objFSO.FileExists (strProfilePath & „normal.dot“) Dan
      Als objFSO.FolderExists (strProfilePath & „oud-normale \“) = Vals toen
            objFSO.CreateFolder strProfilePath & „oud-normale \“
      Eind als
      objFSO.CopyFile strProfilePath & „\ normal.dot“, strProfilePath &“ \ oud-normale \ „
Eind als
objFSO.CopyFile „de Doopvont \ Office2003 \ Normal.dot“, strProfilePath &“ \ „\ van de Opening van een sessie \ van het \ \ domain.local \ Aandeel, Waar

strRegFilePath2003 = „\ \ domain.local \ de Doopvont \ Office2003 \ Outlook2003.reg van de aandeel\ Opening van een sessie \“
objShell.Run „regedit /s """ & strRegFilePath2003 & """"

strProgramPath = „de Opening van een sessie \ profile.prf van het Aandeel \ domain.local \ \ van Outlook.exe /importprf \“
objShell.Run strProgramPath
'####################### EIND VAN ###################### VAN 2003

  Anders 
    MsgBox „Bureau is niet op uw PC gelieve te geïnstalleerd# de Steun van IT contacteren.“
  Beëindig als
  Plaats objShell = niets

Antwoord : vbscript wordt het probleem, het kopiëren normal.dotm beschreven door de tovenaar van vooruitzichten aanvankelijke config

Ik zou met een registratieingang akkoord gaan

Chris
Andere oplossingen  
 
programming4us programming4us