Frage : vbscript Problem, kopierennormal.dotm wird vom Aussichtinitiale Config-Zauberer überschrieben

Hallo alle,

ive einen ziemlich geschickten Index schreibend, der OS-Version und Büro vesrion überprüft und den Rückstellungsguß für Wort einstellt und Aussicht und wenn auf 2003 Ihr Aussicht profiles
(z.Z. begrenzt auf XP und gewinnen, 7 zwar aber leicht angepasst werden kann)

it herstellt auch das Schablonenfaltblatt verursacht, wenn es nicht bereits created

ive prüfte es auf irgendeinem OS gewesen, das laufendes Büro 2003 ist und es fine

now funktioniert, welches, das Problem ist, wenn ein Benutzer während des allerersten Males anmeldet der Index herstellen die Faltblätter und kopieren die normal.dotm und Ausrichtungs-Einstellungen in laufen lässt, aber wenn Aussicht oder Wort zum ersten Mal geöffnet, sie durch Aussichten die, das Standardannahmen, die während des wizard

the nur Gedankens der Sache I des Handelns ist die laufende Aussicht setzt in eine Verzögerung dann laufen lässt die rest
when Aussichten zum ersten Mal geöffnet, überschrieben er verursacht, verursacht seine Schablonen und Rückstellungsausrichtungs-Einstellungen, bevor der Zauberer vom Benutzer abgeschlossen?

thanks für irgendein help 
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:
6:
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 
  oReg = GetObject einstellen („winmgmts: {impersonationLevel=impersonate}! \ \. /root/default: StdRegProv“) 
  
  Schwaches objFSO: objFSO = CreateObject („Scripting.FileSystemObject“) einstellen
  objNetwork verdunkeln: objNetwork = CreateObject („Wscript.Network“) einstellen
  objShell verdunkeln: objShell = CreateObject („Wscript.Shell“) einstellen
  strProfilePath, strOS, strVerKey, strVersion, strProgFilesDir, strRegFilePath2003, strRegFilePath2007, strRegFilePath2010, strProgramPath verdunkeln
  sValuneName, SRegPre, SRegPost verdunkeln
objShell.Run „taskkill /IM winword.exe“, 1, zutreffend

strOS = objShell.ExpandEnvironmentStrings („%OS%")
Wenn strOS = „Windows_NT“ dann
   strVerKey = „HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \“
   strVersion = objShell.regread (strVerKey u. „ProductName“)
Sonst
  strVerKey = „HKLM \ SOFTWARE \ Microsoft \ Windows \ CurrentVersion \“
  strVersion = objShell.regread (strVerKey u. „ProductName“)
Beenden wenn
  
Wenn strVersion = „Fachmann Windows-7“ dann
 strProfilePath = objShell.ExpandEnvironmentStrings („%UserProfile%“) _
u. „\ AppData \ Durchstreifen \ Microsoft \ Schablonen“ 
	
	Wenn nicht objFSO.FolderExists (strProfilePath) dann
    	objFolder = objFSO.CreateFolder (strProfilePath) einstellen
	Beenden wenn

ElseIf strVersion = „Microsoft Windows XP“ dann
 strProfilePath = objShell.ExpandEnvironmentStrings („%UserProfile%“) _
u. „\ Anwendungs-Daten \ Microsoft \ Schablonen“ 

	Wenn nicht objFSO.FolderExists (strProfilePath) dann
    	objFolder = objFSO.CreateFolder (strProfilePath) einstellen
	Beenden wenn
	
Beenden wenn

  sValueName = „Weg“ 
  sRegPre = „SOFTWARE \ Microsoft \ Büro \“ 
  sRegPost = „\ Common \ InstallRoot“ 
  Wenn oReg.GetStringValue (_ 
       HKLM, sRegPre u. „14.0“ u. sRegPost, sValueName, sValue) = 0 dann 
'###################### ANFANG VON ##################### 2010  

Wenn objFSO.FileExists (strProfilePath u. „normal.dotm“) dann
      Wenn objFSO.FolderExists (strProfilePath u. „\ alt-normal“) = falsch dann
            objFSO.CreateFolder strProfilePath u. „\ alt-normal“
      Beenden wenn
      objFSO.CopyFile strProfilePath u. „\ normal.dotm“, strProfilePath u.“ \ alt-normal \ „
Beenden wenn
objFSO.CopyFile „\ \ domain.local \ Anteil \ LOGON \ Guss \ Office2007-10 \ Normal.dotm“, strProfilePath u.“ \ „, zutreffend

strRegFilePath2010 = „\ \ domain.local \ Anteil \ LOGON \ Guss \ Office2007-10 \ Outlook2010.reg“
objShell.Run „regedit /s """ u. strRegFilePath2010 u. """"

'####################### ENDE VON ###################### 2010  
  Elseif oReg.GetStringValue (_ 
       HKLM, sRegPre u. „12.0“ u. sRegPost, sValueName, sValue) = 0 dann 
'###################### ANFANG VON ##################### 2007  

Wenn objFSO.FileExists (strProfilePath u. „normal.dotm“) dann
      Wenn objFSO.FolderExists (strProfilePath u. „\ alt-normal“) = falsch dann
            objFSO.CreateFolder strProfilePath u. „\ alt-normal“
      Beenden wenn
      objFSO.CopyFile strProfilePath u. „\ normal.dotm“, strProfilePath u.“ \ alt-normal \ „
Beenden wenn
objFSO.CopyFile „\ \ domain.local \ Anteil \ LOGON \ Guss \ Office2007-10 \ Normal.dotm“, strProfilePath u.“ \ „, zutreffend

strRegFilePath2007 = „\ \ domain.local \ Anteil \ LOGON \ Guss \ Office2007-10 \ Outlook2007.reg“
objShell.Run „regedit /s """ u. strRegFilePath2007 u. """"

'####################### ENDE VON ###################### 2007  

  Elseif oReg.GetStringValue (_ 
       HKLM, sRegPre u. „11.0“ u. sRegPost, sValueName, sValue) = 0 dann 
       
'###################### ANFANG VON ##################### 2003   
    
Wenn objFSO.FileExists (strProfilePath u. „normal.dot“) dann
      Wenn objFSO.FolderExists (strProfilePath u. „\ alt-normal“) = falsch dann
            objFSO.CreateFolder strProfilePath u. „\ alt-normal“
      Beenden wenn
      objFSO.CopyFile strProfilePath u. „\ normal.dot“, strProfilePath u.“ \ alt-normal \ „
Beenden wenn
objFSO.CopyFile „\ \ domain.local \ Anteil \ LOGON \ Guss \ Office2003 \ Normal.dot“, strProfilePath u.“ \ „, zutreffend

strRegFilePath2003 = „\ \ domain.local \ Anteil \ LOGON \ Guss \ Office2003 \ Outlook2003.reg“
objShell.Run „regedit /s """ u. strRegFilePath2003 u. """"

strProgramPath = „Outlook.exe /importprf \ \ domain.local \ Anteil \ LOGON \ profile.prf“
objShell.Run strProgramPath
'####################### ENDE VON ###################### 2003

  Sonst 
    MsgBox „Büro angebracht nicht auf Ihren PC in Verbindung treten mit IHM bitte Unterstützung.“.
  Beenden wenn
  objShell einstellen = nichts

Antwort : vbscript Problem, kopierennormal.dotm wird vom Aussichtinitiale Config-Zauberer überschrieben

Ich einverstanden sein mit einer Registereintragung

Chris
Weitere Lösungen  
 
programming4us programming4us