Hi alla, vara
ive handstil som ett ganska nifty skrivar att kontrollOS-versionen och kontorsvesrionen och uppsättningar standardstilsorten för uttrycker och framtidsutsikten och, om på 2003 skapar din
it för framtidsutsiktprofiles
för närvarande (som begränsas till XP och, segra, 7 though men kan lätt anpassas) skapar också mallmappen, om det inte har redan varit created
ive testade den på något OS som är det rinnande kontoret 2003, och den fungerar fine
now, problemet är när en användare loggar in för mycket den första tiden den skriva ska körningen skapar mapparna och kopierar normal.dotm- och reg-inbrotten men när framtidsutsikten eller uttrycker öppnas för den första tiden de överskrivs av framtidsutsikter, standard sominställningar som skapas under tanken för ting i för wizard
the endast av att göra, är den rinnande framtidsutsikten som sätter i ett spring för fördröjning därefter, framtidsutsikterna för rest
when öppnade för den första tiden, ska det skapa dess mallar och standardreg-inställningar, för trollkarlen avslutas av användaren?
thanks för någon help
> för
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:
" codeBody "
Const för class= " HKLM = &H80000002 'HKEY_LOCAL_MACHINE
Fastställd oReg = GetObject (”winmgmts: {impersonationLevel=impersonate}! \ \. /root/default: StdRegProv”)
Dunkel objFSO: Fastställd objFSO = CreateObject (”Scripting.FileSystemObject”)
Dunkel objNetwork: fastställd objNetwork = CreateObject (”Wscript.Network”)
Dunkel objShell: Fastställd objShell = CreateObject (”Wscript.Shell”)
Dunkel strProfilePath, strOS, strVerKey, strVersion, strProgFilesDir, strRegFilePath2003, strRegFilePath2007, strRegFilePath2010, strProgramPath
Dunkel sValuneName, SRegPre, SRegPost
objShell.Run ”taskkill /IM winword.exe”, 1 som är riktig
strOS = objShell.ExpandEnvironmentStrings (”%OS%”)
Om strOS = ”Windows_NT” därefter
strVerKey = ”HKLM \ PROGRAMVARA \ Microsoft \ Windows NT \ CurrentVersion \”,
strVersion = objShell.regread (strVerKeyen & ”ProductName”)
Annars
strVerKey = ”HKLM \ PROGRAMVARA \ Microsoft \ Windows \ CurrentVersion \”,
strVersion = objShell.regread (strVerKeyen & ”ProductName”)
Avsluta om
Om strVersion = ”yrkesmässiga Windows 7” därefter
strProfilePath = objShell.ExpandEnvironmentStrings (”%UserProfile%”) _,
& ”\ AppData \ ströva omkring \ Microsoft \ mallar”,
Om inte objFSO.FolderExists (strProfilePath) därefter
Fastställd objFolder = objFSO.CreateFolder (strProfilePath)
Avsluta om
ElseIf strVersion = ”Microsoft Windows XP” därefter
strProfilePath = objShell.ExpandEnvironmentStrings (”%UserProfile%”) _,
& ”\ applikationdata \ Microsoft \ mallar”,
Om inte objFSO.FolderExists (strProfilePath) därefter
Fastställd objFolder = objFSO.CreateFolder (strProfilePath)
Avsluta om
Avsluta om
sValueName = ”bana”,
sRegPre = ”PROGRAMVARA \ Microsoft \ kontor \”,
sRegPost = ”\ vanligt \ InstallRoot”,
Om oReg.GetStringValue (_,
HKLM, sRegPre & ”14.0” & sRegPost, sValueName, sValue) = 0 därefter
'######################START AV ##################### 2010
Om objFSO.FileExists (strProfilePath & ”normal.dotm”) därefter
Om objFSO.FolderExists (strProfilePath & ”\ gammal-det normala”) = falskt därefter
objFSO.CreateFolder-strProfilePath & ”\ gammal-det normala”,
Avsluta om
objFSO.CopyFile-strProfilePath & ”\ normal.dotm”, strProfilePath &” \ gammal-det normala \ ”,
Avsluta om
objFSO.CopyFile-”\ \ domain.local \ aktie \ inloggning \ stilsort \ Office2007-10 \ Normal.dotm”, strProfilePath &” \ ”, riktigt
strRegFilePath2010 = ”\ \ domain.local \ aktie \ inloggning \ stilsort \ Office2007-10 \ Outlook2010.reg”,
objShell.Run-”regedit/s """ & strRegFilePath2010 & """",
'####################### AVSLUTAR AV ###################### 2010
Elseif oReg.GetStringValue (_,
HKLM, sRegPre & ”12.0” & sRegPost, sValueName, sValue) = 0 därefter
'######################START AV ##################### 2007
Om objFSO.FileExists (strProfilePath & ”normal.dotm”) därefter
Om objFSO.FolderExists (strProfilePath & ”\ gammal-det normala”) = falskt därefter
objFSO.CreateFolder-strProfilePath & ”\ gammal-det normala”,
Avsluta om
objFSO.CopyFile-strProfilePath & ”\ normal.dotm”, strProfilePath &” \ gammal-det normala \ ”,
Avsluta om
objFSO.CopyFile-”\ \ domain.local \ aktie \ inloggning \ stilsort \ Office2007-10 \ Normal.dotm”, strProfilePath &” \ ”, riktigt
strRegFilePath2007 = ”\ \ domain.local \ aktie \ inloggning \ stilsort \ Office2007-10 \ Outlook2007.reg”,
objShell.Run-”regedit/s """ & strRegFilePath2007 & """",
'####################### AVSLUTAR AV ###################### 2007
Elseif oReg.GetStringValue (_,
HKLM, sRegPre & ”11.0” & sRegPost, sValueName, sValue) = 0 därefter
'######################START AV ##################### 2003
Om objFSO.FileExists (strProfilePath & ”normal.dot”) därefter
Om objFSO.FolderExists (strProfilePath & ”\ gammal-det normala”) = falskt därefter
objFSO.CreateFolder-strProfilePath & ”\ gammal-det normala”,
Avsluta om
objFSO.CopyFile-strProfilePath & ”\ normal.dot”, strProfilePath &” \ gammal-det normala \ ”,
Avsluta om
objFSO.CopyFile-”\ \ domain.local \ aktie \ inloggning \ stilsort \ Office2003 \ Normal.dot”, strProfilePath &” \ ”, riktigt
strRegFilePath2003 = ”\ \ domain.local \ aktie \ inloggning \ stilsort \ Office2003 \ Outlook2003.reg”,
objShell.Run-”regedit/s """ & strRegFilePath2003 & """",
strProgramPath = ”\ för Outlook.exe /importprf \ domain.local \ aktie \ inloggning \ profile.prf”,
objShell.Run-strProgramPath
'####################### AVSLUTAR AV ###################### 2003
Annars
MsgBox ”kontor installeras inte på din PC behar kontakten DET service.”,
Avsluta om
Fastställd objShell = ingenting
" klar "
|
