class= " lineNumbers " 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 :
|
class= de
id= " codeSnippet787221 " class= " de ' VBScript qui désactivera le magicien de profil de perspectives et crée un profil de perspectives POUR de NOUVEAUX UTILISATEURS SEULEMENT
'
Placer WSHShell = WScript.CreateObject (« WScript.Shell »)
Obscurcir le fso, WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, chemin
'
Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
Placer WSHShell = CreateObject (« WScript.Shell »)
Placer WSHNetwork = CreateObject (« WScript.Network »)
DomainString = Wshnetwork.UserDomain
UserString = WSHNetwork.UserName
Sur le résumé d'erreur après
sinon fso.FileExists (« \ \ fileserv \ utilisateurs \ » et UserString et « . » Et DomainString et « \ données d'application \ Microsoft \ perspectives \ Outlook.NK2 ») puis
WshShell.RegDelete « HKEY_CURRENT_USER \ logiciel \ Microsoft \ bureau \ 11.0 \ perspectives \ a installé \ FirstRun »
WshShell.RegDelete « HKEY_CURRENT_USER \ logiciel \ Microsoft \ bureau \ 11.0 \ perspectives \ a installé \ Premier-Court »
WSHShell.RegWrite « HKEY_CURRENT_USER \ logiciel \ Microsoft \ bureau \ 11.0 \ perspectives \ a installé \ ImportPRF », « c:\outlook.prf », « REG_SZ »
finir si
'
'Nettoyer la mémoire que nous avons employée
placer fso=nothing
placer UserObj = rien
placer GroupObj = rien
placer WSHNetwork = rien
placer DomainString = rien
placer WSHSHell = rien
'Stopper le manuscrit
wscript.quit
|
