' VBScript który obezwładniać światopogląd profilowy czarownik i tworzyć światopogląd profil DLA NOWY UŻYTKOWNIK TYLKO
'
Ustalony WSHShell = WScript.CreateObject ("WScript.Shell")
Ciemnawy fso, WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Ścieżka
'
Ustalony fso = CreateObject ("Scripting.FileSystemObject")
Ustalony WSHShell = CreateObject ("WScript.Shell")
Ustalony WSHNetwork = CreateObject ("WScript.Network")
DomainString = Wshnetwork.UserDomain
UserString = WSHNetwork.UserName
Na Błąd Życiorys Następnie
jeśli nie fso.FileExists ("\ \ fileserv \ użytkownik \" & UserString & "." & DomainString & "\ Podaniowy Dane \ Microsoft \ Światopogląd \ Outlook.NK2") wtedy
WshShell.RegDelete "HKEY_CURRENT_USER \ Oprogramowanie \ Microsoft \ Biuro \ 11.0 \ Światopogląd \ Ustawianie \ FirstRun"
WshShell.RegDelete "HKEY_CURRENT_USER \ Oprogramowanie \ Microsoft \ Biuro \ 11.0 \ Światopogląd \ Ustawianie \ Pierwszy-Bieg"
WSHShell.RegWrite "HKEY_CURRENT_USER \ Oprogramowanie \ Microsoft \ Biuro \ 11.0 \ Światopogląd \ Ustawianie \ ImportPRF", "c:\outlook.prf", "REG_SZ"
kończyć jeżeli
'
'Czyścić Używać Pamięć My Używać
ustawiać fso=nothing
ustawiać UserObj = Nic
ustawiać GroupObj = Nic
ustawiać WSHNetwork = Nic
ustawiać DomainString = Nic
ustawiać WSHSHell = Nic
'Rezygnować the Pismo
wscript.quit
|