UMnieDziala.pl

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