Fixing ConvertGlobalToUniversalGroup.vbs in HMC 4.0 Migration Kit

kip.ng — Mon, 01 Jun 2009 08:29:00 GMT

Alright, this is a quick one.

For those who are planning to migrate from HMC 3.5 to HMC 4.0, and if you are using the HMC 4.0 Migration Kit (http://www.microsoft.com/downloads/details.aspx?FamilyId=636571AA-6582-49D6-B59E-81E9C27FE240&displaylang=en), you may want to take note that the ConvertGlobalToUniversalGroup.vbs provided for in-place upgrade in the Sample Migration Scripts does not work well.

The script is supposed to convert the groups in each organization from Global to Universal. However, when you run this VBScript, you will find that it will run and it will complete without error and nothing will be converted.

The problem is in the ConvertGroup function where the MyArray was not properly defined and also the error number is not properly reset when it is called again. However, because On Error Resume Next is in place, the error was skipped. If you want to see the error, comment out “On Error Resume Next”.

To fix it, just add the highlighted area in the function as the following,

Function ConvertGroup(objUser)

Wscript.echo "Converting Group = " & objUser.Name
On Error Resume Next
Err.Number = 0

MyArray = Split(objUser.DistinguishedName, "@")

'if this is a built in MPS group, skip it.
If MyArray(0) = "CN=Admins" Then
       Err.Number = 42
       ConvertGroup = Err.Number
       Exit Function
End If

If MyArray(0) = "CN=CSRAdmins" Then
       Err.Number = 42
       ConvertGroup = Err.Number
       Exit Function
End If

' convert 0067roup

Set objGroup = GetObject ("LDAP://" & objUser.DistinguishedName)

' NOTE: If you want to make this a Security group instead of a Distribtuion group,
' then simply add the following to the below command: OR ADS_GROUP_TYPE_SECURITY_ENABLED.

objGroup.Put "groupType", ADS_GROUP_TYPE_UNIVERSAL_GROUP
objGroup.SetInfo

ConvertGroup = err.Number

End Function

provtest AllAboutHMC.xml : Migration

Fixing ConvertGlobalToUniversalGroup.vbs in HMC 4.0 Migration Kit