oOption Explicit

Dim objNetwork
Dim objWshShell

Dim strRemotePath, strLocalPath, strUserName
Dim strRegPath, strRegKey
' Dim strLogonPath

Set objNetwork = WScript.CreateObject("WScript.Network")
Set objWshShell = CreateObject("WScript.Shell")

strRemotePath = "\\srv01\Reprezent"
strLocalPath = "\\localhost\Profiles$\"
strUserName = objNetwork.UserName

' strLogonPath = Left( Wscript.ScriptFullName, ( InstrRev( Wscript.ScriptFullName, "\") -1))

strRegKey = "HKCU\Software\Microsoft\VisualFoxPro\9.0\Options\"
strRegPath = "D:\Profiles\" & strUserName

' objWshShell.Run "%COMSPEC% /C " & chr(34) & "IF exist T:\ ( SUBST T: /D >NUL 2>&1 ) ELSE ( SUBST T: %USERPROFILE%\Reprezent >NUL 2>&1 )" & chr(34)
objWshShell.Run "SUBST.EXE T: " & "%USERPROFILE%\Reprezent", 0, False

objNetwork.MapNetworkDrive "S:", strRemotePath
' objNetwork.MapNetworkDrive "T:", strLocalPath & strUserName & "\Reprezent"

objWshShell.RegWrite strRegKey & "_STARTUP", chr(34) & "T:" & "\reprezent.fxp" & chr(34), "REG_SZ"
objWshShell.RegWrite strRegKey & "PATH", "T:" & "\exe\", "REG_SZ"
objWshShell.RegWrite strRegKey & "DEFAULT", "T:" & "\tmp", "REG_SZ"
objWshShell.RegWrite strRegKey & "TMPFILES", "T:" & "\tmp", "REG_SZ"

' objWshShell.Run "%COMSPEC% /c " & "regedit.exe -s " & strLogonPath & "\foxik.reg", 0, False

Set objNetwork = Nothing
Set objWshShell = Nothing

----------------------------------------------------------------------

Ce parola vrea, tin sa precizez ca Grupul Everyone are full access pe folder-ul "Reprezent", poate tre sa adaug alta grupa sau un utilizator, nu prea inteleg,

Astept raspuns, mersi anticipat.