[2000/XP] Onvoldoende rechten in VBS script*

[Verwijderd]

Ik ben begonnen met het schrijven van een script dat afhankelijk van waar je aanmeld het juiste home folder pakt. Wij hebben gezien dat het te traag gaat om Home Folders te synchroniseren over het internet.

Dus had ik het volgende idee... Ik maak wel verbinding met de 2 homefolders (We hebben 2 locatie's) en switch tussen te twee home-folders.

Nu komt het probleem: De gebruikers hebben niet genoeg rechten om deze regel uit te voeren: Set WshSystemEnv = WshShell.Environment("SYSTEM")

Dit is erg vervelend. Welke rechten heeft een gebruiker nodig voor deze regel !?!? Ze hebben nu "Domain User" en "User" rechten.

Het gaat om een Windows 2003 Domain met Windows 2000/XP systemen... Als ik naar een dos-box ga dan krijg ik wel met "Echo %locatie%" "IS-MM-DS" te zien.

Volledige Script:

code:

Dim DriveLetter1, DriveLetter2, RemotePath1, RemotePath2
Dim objNetwork
Dim objEnv

Set objNetwork = CreateObject("WScript.Network") 
Set WshShell = CreateObject("WScript.Shell") 
Set objSysInfo = CreateObject("ADSystemInfo") 
Set objEnv = WshShell.Environment("PROCESS")

REM Set WshSystemEnv = WshShell.Environment("SYSTEM") 

REM if WshSystemEnv("locatie") = "is-mm-ds" then

DriveLetter1 = "R:"
DriveLetter2 = "S:"

RemotePath1 = "\\is-mm-ds\home$\" & objEnv("USERNAME")
RemotePath2 = "\\be-mm-ds\home$\" & objEnv("USERNAME") 

REM msgbox (driverletter1 & " " & RemotePath1)
On Error Resume Next
objNetwork.MapNetworkDrive DriveLetter1, RemotePath1
objNetwork.MapNetworkDrive DriveLetter2, RemotePath2
objNetwork.MapNetworkDrive "P:", "\\is-mm-ds\apps$"

REM else

REM DriveLetter1 = "R:"
REM DriveLetter2 = "S:"

REM RemotePath1 = "\\be-mm-ds\home$\" & objEnv("USERNAME")
REM RemotePath2 = "\\is-mm-ds\home$\" & objEnv("USERNAME") 

REM objNetwork.MapNetworkDrive DriveLetter1, RemotePath1
REM objNetwork.MapNetworkDrive DriveLetter2, RemotePath2

REM End if


Wscript.Quit

[mutsje]

login als administrator op een werkstation zet auditing aan security fail/success zet audit op Object access Failure aan en je zult er snel genoeg achter komen. Let wel dat je de logfile naar circa 5MB zet omdat Object loggings razendsnel opvullen.
Log hierna dus in als normale gebruiker en zie daar je krijgt veel failures om je oren.

[ Voor 16% gewijzigd door mutsje op 28-06-2004 13:11 ]

[dEADkIRK]

Probeer eens de volgende regel

WSHShell.ExpandEnvironmentStrings("SYSTEM")

Je gebruikt de verkeerde property voor jouw doeleinde (volgens mij), zoals jij hem gebruikt probeer je de variabele te zetten ipv uit te lezen.

[ Voor 24% gewijzigd door dEADkIRK op 29-06-2004 11:45 ]