' VBScript, das Aussichtprofil-Zauberer sperrt und ein Aussichtprofil FÜR NUR NEUE BENUTZER verursacht
'
WSHShell = WScript.CreateObject („WScript.Shell“) einstellen
Fso, WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Weg verdunkeln
'
Fso = CreateObject („Scripting.FileSystemObject“) einstellen
WSHShell = CreateObject („WScript.Shell“) einstellen
WSHNetwork = CreateObject („WScript.Network“) einstellen
DomainString = Wshnetwork.UserDomain
UserString = WSHNetwork.UserName
Auf Störungs-Zusammenfassung zunächst
wenn NICHT fso.FileExists („\ \ fileserv \ Benutzer \“ u. UserString u. „.“ U. DomainString u. „\ Anwendungs-Daten \ Microsoft \ Aussicht \ Outlook.NK2“) dann
WshShell.RegDelete „HKEY_CURRENT_USER \ Software \ Microsoft \ Büro \ 11.0 \ Aussicht \ gründete, \ FirstRun“
WshShell.RegDelete „HKEY_CURRENT_USER \ Software \ Microsoft \ Büro \ 11.0 \ Aussicht \ gründete, \ Erst-Lässt“ laufen
WSHShell.RegWrite „HKEY_CURRENT_USER \ Software \ Microsoft \ Büro \ 11.0 \ Aussicht \ gründete, \ ImportPRF“, „c:\outlook.prf“, „REG_SZ“
beenden wenn
'
'Gedächtnis aufräumen, das wir verwendeten
das Fso=nothing einstellen
UserObj einstellen = nichts
GroupObj einstellen = nichts
WSHNetwork einstellen = nichts
DomainString einstellen = nichts
WSHSHell einstellen = nichts
'Den Index verlassen
wscript.quit
|