class= " lineNumbers "
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=
id= " codeSnippet787221 " class= " ' VBScript выведет чудодея из строя профиля внешнего вида и создает профиль внешнего вида ДЛЯ НОВЫХ ПОТРЕБИТЕЛЕЙ ТОЛЬКО
'
Установите WSHShell = WScript.CreateObject («WScript.Shell»)
Затемните fso, WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, курс
'
Установите fso = CreateObject («Scripting.FileSystemObject»)
Установите WSHShell = CreateObject («WScript.Shell»)
Установите WSHNetwork = CreateObject («WScript.Network»)
DomainString = Wshnetwork.UserDomain
UserString = WSHNetwork.UserName
На резюме ошибки затем
если НЕ fso.FileExists, то («\ \ fileserv \ потребители \» & UserString & «.» & DomainString & «\ данные по применения \ Майкрософт \ внешний вид \ Outlook.NK2») после этого
WshShell.RegDelete «HKEY_CURRENT_USER \ средство программирования \ Майкрософт \ офис \ 11.0 \ внешний вид \ Setup \ FirstRun»
WshShell.RegDelete «HKEY_CURRENT_USER \ средство программирования \ Майкрософт \ офис \ 11.0 \ внешний вид \ Setup \ Перв-Бежит»
WSHShell.RegWrite «HKEY_CURRENT_USER \ средство программирования \ Майкрософт \ офис \ 11.0 \ внешний вид \ Setup \ ImportPRF», «c:\outlook.prf», «REG_SZ»
закончитесь если
'
'Очистьте вверх память, котор мы использовали
установите fso=nothing
установите UserObj = ничего
установите GroupObj = ничего
установите WSHNetwork = ничего
установите DomainString = ничего
установите WSHSHell = ничего
'Прекратите сценарий
wscript.quit
|