Hallo,
Ik ben op zoek naar een simpel loginscript wat een nieuwe user die al bestaat tijdens het inloggen voorziet van de juiste profile-instellingen en een homeshare. Hiervoor heb ik dit scriptje geschreven, maar dat werkt op een af andere manier niet.
ON ERROR RESUME NEXT
Dim WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Path
Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
'Automatically find the domain name
Set objDomain = getObject("LDAP://rootDse")
DomainString = objDomain.Get("dnsHostName")
'Find the Windows Directory
WinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")
'Grab the user name
UserString = WSHNetwork.UserName
strUser = objUser.userstring
strHomeDirectory = "\\ADD001\home\" & struser
objUser.homeDirectory = strHomeDirectory
objUser.homeDrive = "H:"
objUser.SetInfo
Alle hulp is welkom
Ik ben op zoek naar een simpel loginscript wat een nieuwe user die al bestaat tijdens het inloggen voorziet van de juiste profile-instellingen en een homeshare. Hiervoor heb ik dit scriptje geschreven, maar dat werkt op een af andere manier niet.
ON ERROR RESUME NEXT
Dim WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Path
Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
'Automatically find the domain name
Set objDomain = getObject("LDAP://rootDse")
DomainString = objDomain.Get("dnsHostName")
'Find the Windows Directory
WinDir = WshShell.ExpandEnvironmentStrings("%WinDir%")
'Grab the user name
UserString = WSHNetwork.UserName
strUser = objUser.userstring
strHomeDirectory = "\\ADD001\home\" & struser
objUser.homeDirectory = strHomeDirectory
objUser.homeDrive = "H:"
objUser.SetInfo
Alle hulp is welkom
