Dużą wadą profilów mandatoryjnych jest to że użytkownik
nie może nic zapisywać na desktopie. Aby to obejść możemy do startupu
dołączyć poniższy skrypcik:
On Error Resume Next
Dim WshShell
Dim fso
Dim MyFile
Dim d , s
Dim DriveSpec
Dim WshNetwork
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName("\\Z\"&WshNetwork.UserName))
If (d.FreeSpace/1024>2000) Then
If (fso.FolderExists("\\Z\"&WshNetwork.UserName&"\Desktop")) Then
Else
fso.CreateFolder("\\Z\"&WshNetwork.UserName&"\Desktop")
End if
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Desktop", "Z:\Desktop", "REG_SZ"
End IF
Skrypt ten sprawdza czy istnieje share \\z\nazwa_uzytkownika
i ile uzytkownika ma wolnego na podanym sharze miejsca do zapisu. Jeśli
więcej niz 2MB(wielkość podana przypadkowo) to sprawdzane jest czy
istnieje katalog desktop, jesli nie to katalog ten jest zakładany.
Nastepnie zapisujemy sciezkę do katalogu w rejestrze.
W podobny sposób mozna zapisywac ustawienia IE uzytkownika:
On Error Resume Next
Dim WshShell
Dim fso
Dim MyFile
Dim d , s
Dim DriveSpec
Dim WshNetwork
Set WshShell = WScript.CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetDrive(fso.GetDriveName("\\Z\"&WshNetwork.UserName))
If (d.FreeSpace/1024>2000) Then
If (fso.FolderExists("\\Z\"&WshNetwork.UserName&"\IE")) Then
Else
fso.CreateFolder("\\Z\"&WshNetwork.UserName&"\IE")
End if
If (fso.FolderExists("\\Z\"&WshNetwork.UserName&"\IE\Favorites")) Then
Else
fso.CreateFolder("\\Z\"&WshNetwork.UserName&"\IE\Favorites")
End if
If (fso.FolderExists("\\Z\"&WshNetwork.UserName&"\IE\Cookies")) Then
Else
fso.CreateFolder("\\Z\"&WshNetwork.UserName&"\IE\Cookies")
End if
If (fso.FolderExists("\\Z\"&WshNetwork.UserName&"\IE\History")) Then
Else
fso.CreateFolder("\\Z\"&WshNetwork.UserName&":\IE\History")
End if
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Favorites", "Z:\IE\Favorites", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Cookies", "Z:\IE\Cookies", "REG_SZ"
WshShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\History", "Z:\IE\History", "REG_SZ"
End IF