Você quer algo +ou- assim.
OBS: faça um teste antes de executar em todos.
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
' Programa: user-scriptPath.vbs
' -----------------------------------------------------------------'
'Option Explicit
Dim objOU, objUser, objRootDSE, intCounter
Dim strContainer, strLastUser, strDNSDomain
Dim strCurrentscriptPath, strNewscriptPath, strCurrentLogin
Set objRootDSE = GetObject("LDAP://RootDSE")
strDNSDomain = objRootDSE.Get("DefaultNamingContext")
strContainer = "OU=Usuarios,"
strContainer = strContainer & strDNSDomain
set objOU = GetObject("LDAP://" & strContainer )
set fso = CreateObject("Scripting.FileSystemObject")
intCounter = 0
For each objUser in objOU
If objUser.class="user" Then
'On Error Resume Next
strCurrentLogin = objUser.Get("sAMAccountName")
objUser.Put "ProfileptPath", "caminho do profile"
objUser.Put "scriptPath", "script .bat ou .cmd"
objUser.Put "homeDirectory", "\\SRVW2K3\usuarios$\" & strCurrentLogin
objUser.Put "homeDrive", "U:"
objUser.SetInfo
intCounter = intCounter + 1
End if
Next
WScript.Echo "( " & intCounter & " ) usuários alterados"
WScript.Quit
