class= " lineNumbers " do
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= do
id= " codeSnippet787221 " class= " do ' VBScript que incapacitará o feiticeiro do perfil da probabilidade e cria um perfil da probabilidade PARA USUÁRIOS NOVOS SOMENTE
'
Ajustar WSHShell = WScript.CreateObject (“WScript.Shell”)
Escurecer o fso, WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, trajeto
'
Ajustar o fso = o CreateObject (“Scripting.FileSystemObject”)
Ajustar WSHShell = CreateObject (“WScript.Shell”)
Ajustar WSHNetwork = CreateObject (“WScript.Network”)
DomainString = Wshnetwork.UserDomain
UserString = WSHNetwork.UserName
No resumo do erro em seguida
se não fso.FileExists (“\ \ fileserv \ usuários \” & UserString & “.” & DomainString & “\ dados de aplicação \ Microsoft \ probabilidade \ Outlook.NK2”) então
WshShell.RegDelete “HKEY_CURRENT_USER \ software \ Microsoft \ escritório \ 11.0 \ probabilidade \ Setup \ FirstRun”
WshShell.RegDelete “HKEY_CURRENT_USER \ software \ Microsoft \ escritório \ 11.0 \ probabilidade \ Setup \ Primeiro-Funciona”
WSHShell.RegWrite “HKEY_CURRENT_USER \ software \ Microsoft \ escritório \ 11.0 \ probabilidade \ Setup \ ImportPRF”, “c:\outlook.prf”, “REG_SZ”
terminar se
'
'Limpar a memória que nós nos usamos
ajustar fso=nothing
ajustar UserObj = nada
ajustar GroupObj = nada
ajustar WSHNetwork = nada
ajustar DomainString = nada
ajustar WSHSHell = nada
'Parar o certificado
wscript.quit
|