class= " lineNumbers " del
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= del
id= " codeSnippet787221 " class= " del ' VBScript que inhabilitará a mago del perfil de la perspectiva y crea un perfil de la perspectiva PARA LOS NUEVOS USUARIOS SOLAMENTE
'
Fijar WSHShell = WScript.CreateObject (“WScript.Shell”)
Amortiguar el fso, WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, trayectoria
'
Fijar el fso = CreateObject (“Scripting.FileSystemObject”)
Fijar WSHShell = CreateObject (“WScript.Shell”)
Fijar WSHNetwork = CreateObject (“WScript.Network”)
DomainString = Wshnetwork.UserDomain
UserString = WSHNetwork.UserName
En curriculum vitae del error después
si no fso.FileExists (“\ \ fileserv \ usuarios \” y UserString y “.” Y DomainString y “\ datos de uso \ Microsoft \ perspectiva \ Outlook.NK2”) entonces
WshShell.RegDelete “HKEY_CURRENT_USER \ software \ Microsoft \ oficina \ 11.0 \ perspectiva \ fijó \ FirstRun”
WshShell.RegDelete “HKEY_CURRENT_USER \ software \ Microsoft \ oficina \ 11.0 \ perspectiva \ fijó \ Primero-Funciona”
WSHShell.RegWrite “HKEY_CURRENT_USER \ software \ Microsoft \ oficina \ 11.0 \ perspectiva \ fijó \ ImportPRF”, “c:\outlook.prf”, “REG_SZ”
terminar si
'
'Limpiar la memoria que utilizamos
fijar fso=nothing
fijar UserObj = nada
fijar GroupObj = nada
fijar WSHNetwork = nada
fijar DomainString = nada
fijar WSHSHell = nada
'Parar la escritura
wscript.quit
|