在NT移植期间改变用户帐户的属性
在把用户从NT的备份域控制器向Windows 2000移植的过程中，我们需要改变用户的资料档案的路径。这个脚本是由其它的代码的片断以及一些巧妙的方法综合而成的。这使得修改其它用户的属性变得相当容易。
===================================================
' Name:
moduser.vbs
' Description:
Modify profile path of user accounts.
Only those with a current roaming profile are udpated.
' Original:
13 Jun 05
'
'=================================================
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection
WScript.StdOut.WriteLine "Enter search criteria.
Wildcards can be used."
strUserName = WScript.StdIn.ReadLine
WScript.Echo
objCommand.CommandText = _
"<LDAP://dc=,dc=;"
& _
"(&(objectCategory=user)(sAMAccountName=" & strUserName & "));" & _
"sAMAccountName,profilePath,ADsPath;subtree"
Set objRecordSet = objCommand.Execute
If objRecordset.EOF Then
Wscript.Echo "No user account(s) found with the specified criteria."
Else
Wscript.Echo "User account(s) with the specified criteria:"
While Not objRecordset.EOF
Wscript.Echo objRecordset.Fields("sAMAccountName") & " : " & _
objRecordset.Fields("profilePath")
objRecordset.MoveNext
WEnd
End If
WScript.Echo
strNewProfPath = ""
While strNewProfPath = ""
WScript.StdOut.WriteLine "Enter new profile server and share: "
StrNewProfPath = WScript.StdIn.ReadLine WEnd WScript.Echo
' Refresh record set to apply new path.
Set objRecordSet = objCommand.Execute
While Not objRecordset.EOF
If IsNull(objRecordSet.Fields("profilePath")) Then
WScript.Echo objRecordSet.Fields("sAMAccountName") & " has no roaming profile."
WScript.Echo
Else
strADsPath = objRecordSet.Fields("ADsPath")
Set objUser = GetObject(strADsPath)
objUser.Put "profilePath", strNewProfPath & "" & _
objRecordset.Fields("sAMAccountName") & ".USR"
objUser.SetInfo
End If
objRecordset.MoveNext
WEnd
' Refresh record set to view new profile path.
Set objRecordSet = objCommand.Execute
WScript.Echo "User account(s) with the new target data:"
While Not objRecordset.EOF
'WScript.Echo objRecordSet.Fields("profilePath")
If objRecordSet.Fields("profilePath") < " " Then
Wscript.Echo objRecordset.Fields("sAMAccountName") & " : " & _
objRecordset.Fields("profilePath")
End If
objRecordset.MoveNext
WEnd
objConnection.Close
