[scripting] Odd script request - something I can push via sccm that will add all the user profiles that logged in to local admin

[Burke, John]

I have a script that is working but the delimitation is mucking it up.  It 
works if you have just your domain\userid in the profile list in registry. But 
if you have domain\userdid.domain it bombs because of the ..

Wondering if anyone would be able to look at it and see a simle change i can 
make to make it work properly (or maybe there is a better way to do it. Even if 
i had something that i could run on a standard user, that would add the 
currently logged in user to local admin via sccm that would wrok too).


**** it's pretty small script ****
On Error Resume Next

Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."

Set objRegistry=GetObject("winmgmts:\\" & _
    strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList"
objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys

For Each objSubkey In arrSubkeys
    strValueName = "ProfileImagePath"
    strSubPath = strKeyPath & "\" & objSubkey
    objRegistry.GetExpandedStringValue 
HKEY_LOCAL_MACHINE,strSubPath,strValueName,strValue
    profilearray = Split(strvalue,"\")
    For Each x In profilearray
     UserID=x
    Next
    Set objLocalAdminGroup = GetObject("WinNT://" & strComputer & 
"/Administrators")
 objLocalAdminGroup.Add("WinNT://domain1/" & UserID)
 objLocalAdminGroup.Add("WinNT://domain2/" & UserID)
Next