fix: Username customization in localized Windows XP versions (#596)

  {       echo "Set WshShell = WScript.CreateObject(\"WScript.Shell\")"

          echo "Set WshNetwork = WScript.CreateObject(\"WScript.Network\")"

          echo "Set oMachine = GetObject(\"WinNT://\" & WshNetwork.ComputerName)"

          echo "Set oInfoUser = GetObject(\"WinNT://\" & WshNetwork.ComputerName & \"/Administrator,user\")"

          echo "Set oUser = oMachine.MoveHere(oInfoUser.ADsPath,\"$username\")"

          echo "Set Domain = GetObject(\"WinNT://\" & WshNetwork.ComputerName)"

          echo ""

          echo "Function DecodeSID(binSID)"

          echo "  ReDim o(LenB(binSID))"

          echo ""

          echo "  For i = 1 To LenB(binSID)"

          echo "    o(i-1) = AscB(MidB(binSID, i, 1))"

          echo "  Next"

          echo ""

          echo "  sid = \"S-\" & CStr(o(0)) & \"-\" & OctetArrayToString _"

          echo "        (Array(o(2), o(3), o(4), o(5), o(6), o(7)))"

          echo "  For i = 8 To (4 * o(1) + 4) Step 4"

          echo "    sid = sid & \"-\" & OctetArrayToString _"

          echo "          (Array(o(i+3), o(i+2), o(i+1), o(i)))"

          echo "  Next"

          echo ""

          echo "  DecodeSID = sid"

          echo "End Function"

          echo ""

          echo "Function OctetArrayToString(arr)"

          echo "  v = 0"

          echo "  For i = 0 To UBound(arr)"

          echo "    v = v * 256 + arr(i)"

          echo "  Next"

          echo ""

          echo "  OctetArrayToString = CStr(v)"

          echo "End Function"

          echo ""

          echo "For Each DomainItem in Domain"

          echo "  If DomainItem.Class = \"User\" Then"

          echo "    sid = DecodeSID(DomainItem.Get(\"objectSID\"))"

          echo "    If Left(sid, 9) = \"S-1-5-21-\" And Right(sid, 4) = \"-500\" Then"

          echo "      LocalAdminADsPath = DomainItem.ADsPath"

          echo "      Exit For"

          echo "    End If"

          echo "  End If"

          echo "Next"

          echo ""

          echo "Call Domain.MoveHere(LocalAdminADsPath, \"$username\")"

          echo ""

  } | unix2dos > "$dir/\$OEM\$/admin.vbs"